ibm:ibm1130-lib:dmsr2v12:t5readz_lst
T5READZ
Table Of Contents |
---|
|
- t5readz.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020 Source File: \t5readz.asm 1 | * JULY 6,1967 T5J00010 READZ 3 | LIBR T5J00030 4 | ISS 04 READZ 4 T5J00040 5 | *************************************************** T5J00050 6 | * * T5J00060 7 | *STATUS-VERSION 2, MODIFICATION 5 * T5J00070 8 | * * T5J00080 9 | *FUNCTION/OPERATION- * T5J00090 10 | * READZ IS CALLED BY FORTRAN PROGRAMS TO READ * T5J00100 11 | * CARDS FROM THE 2501 CARD READER. * T5J00110 12 | * * T5J00120 13 | *ENTRY POINTS- * T5J00130 14 | * * READZ-CALL PORTION-ENTERED FROM SFIO * T5J00140 15 | * * RZ060-INTERRUPT PORTION-ENTERED FROM THE ILS* T5J00150 16 | * * T5J00160 17 | *INPUT- * T5J00170 18 | * * XR1 CONTAINS THE I/O BUFFER ADDRESS * T5J00180 19 | * * T5J00190 20 | *OUTPUT- * T5J00200 21 | * * A BUFFER OF DATA IN EBC CODE * T5J00210 22 | * * T5J00220 23 | *EXTERNAL REFERENCES- * T5J00230 24 | * * $PRET * T5J00240 25 | * * $PST4 * T5J00250 26 | * * $EXIT * T5J00260 27 | * * HOLEZ * T5J00270 28 | * * T5J00280 29 | *EXITS- * T5J00290 30 | * NORMAL- * T5J00300 31 | * * CALL PORTION-RZ040, BACK TO SFIO * T5J00310 32 | * * INTERRUPT PORTION-RZ060, BACK TO ILS * T5J00320 33 | * * $EXIT WHEN // CARD ENCOUNTERED * T5J00330 34 | * * T5J00340 35 | * ERROR- * T5J00350 36 | * * $PRET-PRE-OPERATIVE ERROR TRAP WHEN * T5J00360 37 | * DEVICE NOT READY * T5J00370 38 | * * $PST4-POST OPERATIVE ERROR TRAP WHEN * T5J00380 39 | * ERROR CONDITION * T5J00390 40 | * * T5J00400 41 | *TABLES/WORK AREAS-N/A * T5J00410 42 | * * T5J00420 43 | *ATTRIBUTES-RELOCATABLE * T5J00430 44 | * * T5J00440 45 | *NOTES-REGISTERS NOT SAVED * T5J00450 46 | * * T5J00460 47 | *************************************************** T5J00470 48 | *************************************************** T5J00480 READZ 50 | * * T5J00500 51 | * NOTE-COMMENTS START IN COL 45 FOR * T5J00510 52 | * FUTURE CHANGES * T5J00520 53 | * * T5J00530 54 | *************************************************** T5J00540 55 | * T5J00550 56 | * WORDS FROM COMMA T5J00560 57 | * T5J00570 0028 58 | $PRET EQU /28 PRE-OPERATIVE ERROR TRAP T5J00580 008D 59 | $PST4 EQU /8D POST-OPERATIVE ERROR TRAP T5J00590 0038 60 | $EXIT EQU /38 SYSTEM EXIT ADDR T5J00600 61 | * T5J00610 62 | * PROGRAM ENTRY FROM SFIO T5J00620 63 | * T5J00630 0000 7016 64 | READZ MDX RZ100 BRANCH TO CALL PROCESSING T5J00640 0001 4C80 0000 65 | RZ020 BSC I *-* LOADER STORES TV ADDRESS. T5J00650 0003 3000 66 | RZ040 DC /3000 CONSTANT - HOLLERITH /. T5J00660 67 | * MUST BE ODD ADDR FOR SD T5J00670 0004 0000 68 | RZ060 DC *-* INTERRUPT ENTRANCE. T5J00680 69 | * T5J00690 70 | * INTERRUPT PROCESSING T5J00700 71 | * T5J00710 0005 082C 72 | XIO RZ340 SENSE WITH RESET. T5J00740 0006 1002 73 | SLA 2 TEST FOR ERROR. T5J00750 0007 4C28 000DR 74 | BSC L RZ080,Z+ BR IF THERE WAS AN ERROR T5J00760 0009 1010 75 | SLA 16 CLEAR ACC 2-5 T5J00762 000A D02C 76 | STO RZ380 RESET INT SWITCH 2-5 T5J00764 000B 4C80 0004R 77 | RZ070 BSC I RZ060 RETURN TO ILS T5J00770 000D C024 78 | RZ080 LD RZ340 SET UP NEW ENTRY POINT T5J00780 000E D480 000C 79 | STO I 12 *FOR RETRY OF OPERATION. T5J00790 80 | * T5J00800 81 | * POST OPERATIVE ERROR TRAP T5J00810 82 | * T5J00820 0010 C025 83 | LD RZ370 LOAD ERROR INDICATOR WORD T5J00830 0011 4400 008D 84 | BSI L $PST4 BR TO POST-OP ERROR T5J00840 0013 70F7 85 | MDX RZ070 BR TO INTERRUPT EXIT T5J00850 86 | * T5J00860 87 | * PRE-OPERATIVE ERROR T5J00870 88 | * T5J00880 0014 C021 89 | RZ090 LD RZ370 GET ERR DISPLAY CONSTANT T5J00890 0015 4400 0028 90 | BSI L $PRET BR TO PRE-OPERATIVE ERROR T5J00900 91 | * T5J00910 92 | * CALL PROCESSING T5J00920 93 | * T5J00930 0017 081A 94 | RZ100 XIO RZ340 SENSE WITH RESET. T5J00940 0018 4804 95 | BSC E SKIP IF 2501 IS READY. T5J00950 0019 70FA 96 | MDX RZ090 BR TO PRE-OP ERROR TRAP T5J00960 97 | * T5J00970 001A C01D 98 | LD RZ390 SET WORD COUNT INTO READ T5J00980 001B D1FF 99 | STO 1 -1 *BUFFER T5J00990 100 | * T5J01000 001C 6917 101 | STX 1 RZ360 SAVE ADDR I/O BUFFER T5J01010 001D 74FF 0034R 102 | MDX L RZ360,-1 POINT AT WD CNT T5J01020 001F 0814 103 | XIO RZ360 READ A CARD. T5J01030 104 | * T5J01040 105 | * WAIT FOR INTERRUPT T5J01050 106 | * T5J01060 0020 7400 0037R 107 | RZ110 MDX L RZ380,0 TEST INTERRUPT SW T5J01070 0022 70FD 108 | MDX RZ110 SWITCH NOT SET, WAIT T5J01080 109 | * T5J01090 0023 6813 110 | STX RZ380 SET SW FOR NEXT INTERRUPT T5J01100 111 | * T5J01110 112 | * TEST FOR // CONTROL RECORD T5J01120 113 | * T5J01130 0024 C900 114 | LDD 1 0 LOAD 1ST 2 WORDS OF BUFFER. T5J01140 0025 98DD 115 | SD RZ040 SUBTR DOUBLE HEX 3000 3000. T5J01150 0026 4C20 002ER 116 | BSC L RZ130,Z BR IF WORD WAS NOT A SLASH T5J01160 0028 1090 117 | SLT 16 SHIFT IN 2ND WORD OF BUFFER T5J01170 0029 4C20 002ER 118 | BSC L RZ130,Z BR IF WORD WAS NOT A SLASH T5J01180 002B C102 119 | LD 1 2 LOAD 3RD WORD OF BUFFER. T5J01190 002C 4818 120 | BSC +- SKIP IF WORD NOT A BLANK T5J01200 002D 6038 121 | LDX $EXIT EXIT TO MONITOR CONTROL T5J01210 002E 6250 122 | RZ130 LDX 2 80 PUT CNT OF CHARS TO CONVERT T5J01220 002F 1010 123 | SLA 16 CLEAR ACCUMULATOR. T5J01230 0030 0859*3169 124 | LIBF HOLEZ CONVERT BUFFER TO EBCDIC. T5J01240 0031 70CF 125 | MDX RZ020 BRANCH TO RETURN TO USER. T5J01250 0032 126 | BSS E 0 T5J01260 0032 0017R 127 | RZ340 DC RZ100 ERROR RETRY ENTRY POINT. T5J01270 0033 4F01 128 | DC /4F01 WRD 2 OF SENSE W/RESET IOCC T5J01280 0034 0000 129 | RZ360 DC *-* READ T5J01290 0035 4E00 130 | DC /4E00 *IOCC. T5J01300 0036 4000 131 | RZ370 DC /4000 ERROR ID T5J01310 0037 0038R 132 | RZ380 DC * INTERRUPT SW. SET NON ZERO T5J01320 0038 0050 133 | RZ390 DC 80 COUNT OF CHARACTERS TO RD T5J01330 0039 134 | END T5J01340 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $EXIT 0038 60 121 $PRET 0028 58 90 $PST4 008D 59 84 READZ 0000R 64 RZ020 0001R 65 125 RZ040 0003R 66 115 RZ060 0004R 68 77 RZ070 000BR 77 85 RZ080 000DR 78 74 RZ090 0014R 89 96 RZ100 0017R 94 64 127 RZ110 0020R 107 108 RZ130 002ER 122 116 118 RZ340 0032R 127 72 78 94 RZ360 0034R 129 101 102 103 RZ370 0036R 131 83 89 RZ380 0037R 132 76 107 110 RZ390 0038R 133 98
ibm/ibm1130-lib/dmsr2v12/t5readz_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator