ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020
Source File: \t3datsw.asm
CALL DATSW
2 | *************************************************** T3A00020
3 | * * T3A00030
4 | * SUBROUTINE NAME- * T3A00040
5 | * FULL NAME- DATA ENTRY SWITCHES TEST * T3A00050
6 | * CODE NAME- DATSW * T3A00060
7 | * PURPOSE- DATSW PERMITS EXTERNAL CHECKING OF * T3A00070
8 | * THE DATA SWITCHES TO DETERMINE A FLOW * T3A00080
9 | * OF LOGIC WITHIN A PROGRAM. * T3A00090
10 | * METHOD-N/A * T3A00100
11 | * CAPABILITIES AND LIMITATIONS-N/A * T3A00110
12 | * SPECIAL FEATURES-N/A * T3A00120
13 | * ADDITIONAL INFORMATION- * T3A00130
14 | * ESTIMATED EXECUTION TIME-N/A * T3A00140
15 | * * T3A00150
16 | *************************************************** T3A00160
17 | * TEST DATA ENTRY SWITCHES * T3A00170
18 | ENT DATSW T3A00180
0000 0000 19 | DATSW DC *-* REC ADDR OF ARGUMENTS T3A00190
0001 C480 0000R 20 | LD I DATSW PICK UP ARGUMENTS T3A00200
0003 D009 21 | STO SS1+1 T3A00210
0004 7401 0000R 22 | MDX L DATSW,+1 STEP TO NEXT ARGUMENT ADDR T3A00220
0006 C480 0000R 23 | LD I DATSW T3A00230
0008 D00A 24 | STO SS2+1 T3A00240
0009 0812 25 | XIO SS3 READ CONSOLE SWITCHES T3A00250
000A C013 26 | LD SS4 LOAD SWITCH WORD TO ACC T3A00260
000B 6909 27 | STX 1 SSRT+1 SAVE XR1 IN SSRT T3A00270
000C 6580 0000 28 | SS1 LDX I1 *-* T3A00280
000E 1100 29 | SLA 1 T3A00290
000F 4C28 001AR 30 | BSC L SSON,+Z IF NEG, SS ON GOTO SSON T3A00300
0011 C00E 31 | LD TWO T3A00310
0012 D400 0000 32 | SS2 STO L *-* STORE ONE OR TWO IN ARG2 T3A00320
0014 6500 0000 33 | SSRT LDX L1 *-* RESTORE XR1 T3A00330
0016 7401 0000R 34 | MDX L DATSW,+1 STEP TO RETURN ADDR T3A00340
0018 4C80 0000R 35 | BSC I DATSW RETURN T3A00350
001A C004 36 | SSON LD ONE T3A00360
001B 70F6 37 | MDX SS2 T3A00370
001C 38 | BSS E 0 XIO CONSTANTS T3A00380
001C 001ER 39 | SS3 DC SS4 ADDR OF BIT SW STATUS T3A00390
001D 3A00 40 | DC /3A00 AREA CODE T3A00400
001E 0000 41 | SS4 DC *-* READ SWITCHES INTO HERE T3A00410
001F 0001 42 | ONE DC 1 CONSTANT T3A00420
0020 0002 43 | TWO DC 2 CONSTANT T3A00430
0021 44 | END T3A00440
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
DATSW 0000R 19 20 22 23 34 35
ONE 001FR 42 36
SS1 000CR 28 21
SS2 0012R 32 24 37
SS3 001CR 39 25
SS4 001ER 41 26 39
SSON 001AR 36 30
SSRT 0014R 33 27
TWO 0020R 43 31