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