ibm:ibm1130-lib:dmsr2v12:t3fctst_lst
T3FCTST
| Table Of Contents |
|---|
|
- t3fctst.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020 Source File: \t3fctst.asm CALL FCTST 2 | *************************************************** T3C00020 3 | * * T3C00030 4 | * SUBROUTINE NAME- * T3C00040 5 | * FULL NAME- FUNCTIONAL ERROR TEST * T3C00050 6 | * CODE NAME- FCTST * T3C00060 7 | * PURPOSE- FCTST IS UTILIZED BY THE FUNCTIONAL * T3C00070 8 | * SUBROUTINES TO CHECK ERROR CONDITIONS. * T3C00080 9 | * (SEE SUBROUTINE LIBRARY MANUAL) * T3C00090 10 | * METHOD-N/A * T3C00100 11 | * CAPABILITIES AND LIMITATIONS-N/A * T3C00110 12 | * SPECIAL FEATURES-N/A * T3C00120 13 | * ADDITIONAL INFORMATION- * T3C00130 14 | * ESTIMATED EXECUTION TIME-N/A * T3C00140 15 | * * T3C00150 16 | *************************************************** T3C00160 17 | * * T3C00170 18 | * FCTST ON ERR, I EQUALS 1, J EQUALS TV INDR * T3C00180 19 | * AND THE TV INDR IS SET TO ZERO * T3C00190 20 | * FCTST NO ERR, I EQUALS 2, J EQUALS ZERO * T3C00200 21 | * * T3C00210 22 | ENT FCTST T3C00220 0000 0000 23 | FCTST DC *-* T3C00230 0001 C480 0000R 24 | LD I FCTST PICKUP ADDR OF I T3C00240 0003 D00C 25 | STO SET1+1 ST ADDR IN SET1 T3C00250 0004 7401 0000R 26 | MDX L FCTST,+1 INCR POINTER T3C00260 0006 C480 0000R 27 | LD I FCTST PICKUP ADDR OF J T3C00270 0008 D00F 28 | STO SET2+1 ST ADDR IN SET2 T3C00280 0009 C37C 29 | LD 3 +124 PICK UP THE TV INDR T3C00290 000A 4C18 0017R 30 | BSC L SET2,+- BRANCH IF NO ERR T3C00300 000C D480 0018R 31 | STO I SET2+1 ST TV INDR IN J T3C00310 000E C00D 32 | LD ONE LD ACC WITH ONE T3C00320 000F D400 0000 33 | SET1 STO L *-* ST 2 IN I T3C00330 0011 1010 34 | SLA 16 T3C00340 0012 D37C 35 | STO 3 +124 ZERO THE TV INDR T3C00350 0013 7401 0000R 36 | MDX L FCTST,+1 INCR. RETURN ADDR T3C00360 0015 4C80 0000R 37 | BSC I FCTST EXIT T3C00370 0017 D400 0000 38 | SET2 STO L *-* ST ZERO IN J T3C00380 0019 C001 39 | LD TWO LOAD THE ACC WITH 2 T3C00390 001A 70F4 40 | MDX SET1 BRANCH TO SET I TO ONE T3C00400 001B 0002 41 | TWO DC 2 CONSTANT T3C00410 001C 0001 42 | ONE DC 1 CONSTANT T3C00420 001D 43 | END T3C00430 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced FCTST 0000R 23 24 26 27 36 37 ONE 001CR 42 32 SET1 000FR 33 25 40 SET2 0017R 38 28 30 31 TWO 001BR 41 39
ibm/ibm1130-lib/dmsr2v12/t3fctst_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator