ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020 Source File: \t3slite.asm CALL SLITE 2 | *************************************************** T3G00020 3 | * STATUS-VERSION 2,MODIFICATION 9 * T3G00025 4 | * * T3G00030 5 | * SUBROUTINE NAME- * T3G00040 6 | * FULL NAME-SENSE LIGHT CONTROL AND TEST * T3G00050 7 | * CODE NAME-SLITE * T3G00060 8 | * PURPOSE-SIMULATE CONSOLE SENSE LIGHTS * T3G00070 9 | * METHOD-N/A * T3G00080 10 | * CAPABILITIES AND LIMITATIONS-4 SENSE LIGHTS * T3G00090 11 | * SPECIAL FEATURES-SIMULATES SENSE LIGHTS * T3G00100 12 | * ADDITIONAL INFORMATION- * T3G00110 13 | * ESTIMATED EXECUTION TIME-N/A * T3G00120 14 | * * T3G00130 15 | *************************************************** T3G00140 16 | * * T3G00150 17 | ENT SLITE T3G00160 18 | ENT SLITT T3G00170 0000 0000 19 | SLITE DC *-* RECORD ADDR OF PARAMETERS T3G00180 0001 C480 0000R 20 | LD I SLITE ADD OF ARG TO ACC T3G00190 0003 D011 21 | STO SET+1 T3G00200 0004 C480 0015R 22 | LD I SET+1 ARG TO ACC T3G00210 0006 4C20 000ER 23 | BSC L NONZ,Z BR IF NON ZERO T3G00220 0008 D400 00EF 24 | STO L $SNLT ZERO SENSE LIGHT INDR 2-9 T3G00230 000A 7401 0000R 25 | SLRTN MDX L SLITE,+1 T3G00240 000C 4C80 0000R 26 | BSC I SLITE RETURN ---EXIT--- T3G00250 000E 4C08 000AR 27 | NONZ BSC L SLRTN,+ GOTO RETURN IF ARG IS NEG T3G00260 0010 900F 28 | S FOUR T3G00270 0011 4C30 000AR 29 | BSC L SLRTN,-Z GOTO RETURN IF ARG GT 4 T3G00280 0013 6909 30 | STX 1 RESTR+1 SAVE XR1 T3G00290 0014 6580 0000 31 | SET LDX I1 *-* ARG TO XR1 T3G00300 0016 C008 32 | LD ONE SET ACTUAL 2-9 T3G00310 0017 1100 33 | SLA 1 *BIT IN 2-9 T3G00320 0018 EC00 00EF 34 | OR L $SNLT *SENSE LIGHT 2-9 T3G00330 001A D400 00EF 35 | STO L $SNLT *INDICATOR 2-9 T3G00340 36 | * 2-9 T3G00350 001C 6500 0000 37 | RESTR LDX L1 *-* RESTORE XR1 T3G00360 001E 70EB 38 | MDX SLRTN GOTO RETURN T3G00370 00EF 39 | $SNLT EQU /00EF SENSE LIGHT INDICATOR 2-9 T3G00380 001F 0001 40 | ONE DC 1 CONSTANT T3G00390 0020 0004 41 | FOUR DC 4 CONSTANT T3G00400 42 | * * T3G00410 43 | *************************************************** T3G00420 0021 0000 44 | SLITT DC *-* RECORD ADDR OF PARAMETERS T3G00430 0022 C480 0021R 45 | LD I SLITT ADD OF ARG1 TO ACC T3G00440 0024 D010 46 | STO LDA1+1 T3G00450 0025 7401 0021R 47 | MDX L SLITT,+1 T3G00460 0027 C480 0021R 48 | LD I SLITT ADD OF ARG2 TO ACC T3G00470 0029 D013 49 | STO STA2+1 T3G00480 002A C0F6 50 | LD SLITT T3G00490 002B D0D4 51 | STO SLITE T3G00500 002C 69F0 52 | STX 1 RESTR+1 T3G00510 002D C480 0035R 53 | LD I LDA1+1 ARG1 TO ACC T3G00520 002F 4C08 003BR 54 | BSC L LOFF,+ GOTO LOFF IF NEG T3G00530 0031 90EE 55 | S FOUR T3G00540 0032 4C30 003BR 56 | BSC L LOFF,-Z GOTO LOFF IF GT 4 T3G00550 0034 6580 0000 57 | LDA1 LDX I1 *-* ARG1 TO XR1 T3G00560 0036 C400 00EF 58 | LD L $SNLT 2-9 T3G00570 0038 1980 59 | SRT 1 LITE TO POS 0 T3G00580 0039 4804 60 | BSC E T3G00590 003A 7004 61 | MDX BITON GOTO BITON IF LITE ON T3G00600 003B C009 62 | LOFF LD TWO TWO TO ACC T3G00610 003C D400 0000 63 | STA2 STO L *-* ACC TO ARG2 T3G00620 003E 70DD 64 | MDX RESTR T3G00630 003F 90DF 65 | BITON S ONE TURN LITE OFF T3G00640 0040 1180 66 | SLT 1 T3G00650 0041 D400 00EF 67 | STO L $SNLT SET SENSE LIGHT INDR 2-9 T3G00660 0043 C0DB 68 | LD ONE ONE TO ACC T3G00670 0044 70F7 69 | MDX STA2 T3G00680 0045 0002 70 | TWO DC 2 CONSTANT T3G00690 0046 71 | END T3G00700 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $SNLT 00EF 39 24 34 35 58 67 BITON 003FR 65 61 FOUR 0020R 41 28 55 LDA1 0034R 57 46 53 LOFF 003BR 62 54 56 NONZ 000ER 27 23 ONE 001FR 40 32 65 68 RESTR 001CR 37 30 52 64 SET 0014R 31 21 22 SLITE 0000R 19 20 25 26 51 SLITT 0021R 44 45 47 48 50 SLRTN 000AR 25 27 29 38 STA2 003CR 63 49 69 TWO 0045R 70 62