ibm:ibm1130-lib:dmsr2v12:t3datsw_lst
T3DATSW
| Table Of Contents |
|---|
|
- t3datsw.lst
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
ibm/ibm1130-lib/dmsr2v12/t3datsw_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator