ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \jlptface.asm
PFACE- RESIDENT COMMA 2 AUG 67
2 | ABS J1200020
0005 3 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE J1200030
0006 4 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 J1200040
0007 5 | $COMN EQU /7 WORD COUNT OF COMMON J1200050
000E 6 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) J1200060
000F 7 | $CTSW EQU /F MCR SW,NON-ZERO=// RECD TRAPPED J1200070
0010 8 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED J1200080
0011 9 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) J1200090
0012 10 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O J1200100
0013 11 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY J1200110
0014 12 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS J1200120
0028 13 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP J1200130
002C 14 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE J1200140
002D 15 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 J1200150
0032 16 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS J1200160
0033 17 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD J1200170
0034 18 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP J1200180
0035 19 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ J1200190
0036 20 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY J1200200
0037 21 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS J1200210
0038 22 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT J1200220
0039 23 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT J1200230
003F 24 | $DUMP EQU /3F ADDR OF CALL DUMP, ENTRY POINT J1200240
0077 25 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR J1200250
0078 26 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE J1200260
0079 27 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA J1200270
007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE J1200280
007B 29 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD J1200290
007C 30 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW J1200300
007D 31 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE J1200310
007E 32 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP J1200320
007F 33 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 J1200330
0080 34 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 J1200340
0081 35 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 J1200350
0085 36 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 J1200360
0089 37 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 J1200370
008D 38 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 J1200380
0091 39 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP J1200390
0095 40 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 J1200400
009A 41 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 J1200410
009F 42 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 J1200420
00A4 43 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 J1200430
00B3 44 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 J1200440
00B8 45 | $I205 EQU /B8 J1200450
00B9 46 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 J1200460
00C4 47 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 J1200470
00D3 48 | $I405 EQU /D3 J1200480
00D4 49 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 J1200490
00D5 50 | $I410 EQU /D5 J1200500
00EE 51 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY J1200510
01CB 52 | $BYSW EQU /1CB BYPASS SW,NOP IF FETCHING SOCAL J1200520
00F2 53 | DZ000 EQU /0F2 DISKZ ENTRY POINT J1200530
01E0 54 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ J1200540
7FA0 56 | C EQU /7FA0 CATCO POINTER SET TO MIDDLE J1200560
57 | *************************************************** J1200570
58 | * * J1200580
59 | * INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * J1200590
60 | * FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT * J1200600
61 | * USING XR 1 FOR OTHER REASONS MUST RESTORE. * J1200610
62 | * ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * J1200620
63 | * VALUE THAT INDICATES THEIR RELATIVE LOCATION * J1200630
64 | * FROM .C. * J1200640
65 | * * J1200650
66 | *************************************************** J1200660
67 | * * J1200670
68 | * CATCO DCOM IMAGE * J1200680
69 | * EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * J1200690
70 | * * J1200700
71 | *************************************************** J1200710
FF84 72 | #NAME EQU 4-/80 NAME OF PROGRAM J1200720
FF86 73 | #DBCT EQU 6-/80 DISK BLOCK COUNT OF PROGRAM J1200730
FF87 74 | #FCNT EQU 7-/80 FILES SW,ZERO = NO FILES J1200740
FF88 75 | #SYSC EQU 8-/80 NON-ZERO,SYSTEM CARTRIDGE J1200750
FF89 76 | #JBSW EQU 9-/80 JOB SW,NON-ZERO='T' MODE J1200760
FF8A 77 | #CBSW EQU 10-/80 CLB SW,NON-ZERO=STORECI J1200770
FF8B 78 | #LCNT EQU 11-/80 NO. OF LOCALS J1200780
FF8C 79 | #MPSW EQU 12-/80 NON-ZERO, CORE MAP DESIRED J1200790
FF8D 80 | #MDF1 EQU 13-/80 NO. OF DUP CTRL RCDS J1200800
FF8E 81 | #MDF2 EQU 14-/80 ADDR OF MODIF BUFFER J1200810
FF8F 82 | #NCNT EQU 15-/80 NO. OF NOCALS J1200820
FF90 83 | #ENTY EQU 16-/80 RELATIVE ENTRY ADDR OF PROG J1200830
FF91 84 | #RP67 EQU 17-/80 IF NON-ZERO,1442 MOD 6,7 J1200840
85 | * J1200850
86 | * NEGATIVE VALUE REPRESENTS DEFAULT CONDITION * J1200860
FF92 87 | #TODR EQU 18-/80 DR CODE OF 'TO' DRIVE J1200870
FF93 88 | #FRDR EQU 19-/80 DR CODE OF 'FROM' DRIVE J1200880
89 | * * J1200890
FF94 90 | #FHOL EQU 20-/80 ADDR OF LARGEST FXA HOLE J1200900
FF95 91 | #FSZE EQU 21-/80 BLK CNT LARGEST HOLE IN FXA J1200910
FF96 92 | #UHOL EQU 22-/80 ADDR OF LARGEST UA HOLE J1200920
FF97 93 | #USZE EQU 23-/80 BLK CNT LARGEST HOLE IN UA J1200930
FF98 94 | #DCSW EQU 24-/80 NON-ZERO=DUP CALL J1200940
FF99 95 | #PIOD EQU 25-/80 PRINC. I/O INDICATOR J1200950
FF9A 96 | #PPTR EQU 26-/80 PRINC. PRINTER INDICATOR J1200960
FF9B 97 | #CIAD EQU 27-/80 WD NO. SCTR 0,CIL ADDR J1200970
FF9C 98 | #ACIN EQU 28-/80 AVAILABLE CARTRIDGE INDR2-8 J1200980
FF9D 99 | #GRPH EQU 29-/80 2250 INDICATOR 2-8 J1200990
FF9E 100 | #GCNT EQU 30-/80 NO. G2250 RECORDS 2-8 J1201000
FF9F 101 | #LOSW EQU 31-/80 LOCAL-CALLS-LOCAL INDR 2-8 J1201010
FFA0 102 | #X3SW EQU 32-/80 SPECIAL ILS SWITCH 2-8 J1201020
FFA1 103 | #ECNT EQU 33-/80 NO. OF EQUAT RCDS 2-8 J1201030
FFA3 104 | #ANDU EQU 35-/80 END OF UA (ADJ) LOG DR 0-4 J1201040
FFA8 105 | #BNDU EQU 40-/80 END OF UA (BASE) LOG DR 0-4 J1201050
FFAD 106 | #FPAD EQU 45-/80 FILE PROTECT ADDR (BASE) J1201060
FFB2 107 | #PCID EQU 50-/80 CART ID, PHYS DR 0-4 J1201070
FFB7 108 | #CIDN EQU 55-/80 CART ID, LOG DR 0-4 J1201080
FFBC 109 | #CIBA EQU 60-/80 CIB ADDR, LOG DR 0-4 J1201090
FFC1 110 | #SCRA EQU 65-/80 SCRA, LOG DR 0-4 J1201100
FFC6 111 | #FMAT EQU 70-/80 WS FORMAT, LOG DR 0-4 J1201110
FFCB 112 | #FLET EQU 75-/80 FLET ADDR, LOG DR 0-4 J1201120
FFD0 113 | #ULET EQU 80-/80 LET ADDR, LOG DR 0-4 J1201130
FFD5 114 | #WSCT EQU 85-/80 WS BLK CNT, LOG DR 0-4 J1201140
FFDA 115 | #CSHN EQU 90-/80 CUSHION END SCTR ADDR, 0-4 J1201150
0001 116 | #DCOM EQU 1 SCTR ADDR OF DCOM J1201160
0007 117 | #HDNG EQU 7 SCTR WITH PAGE HEADING J1201170
0FB0 118 | @SBFR EQU /FB0 2-8 J1201180
CONCATENATED COMMON AREA (CATCO)
120 | *************************************************** J1201200
121 | * * J1201210
122 | * CATCO IOAR HDRS FOR DUP PHASES J1201220
123 | * * J1201230
124 | *************************************************** J1201240
FFF0 125 | ORG -/10 J1201250
FFF0 126 | DCHDR BSS 2 DUP CONTROL PH02 J1201260
FFF2 127 | STHDR BSS 2 STORE PH03 J1201270
FFF4 128 | FLHDR BSS 2 FILEQ PH04 J1201280
FFF6 129 | DMHDR BSS 2 DUMP PH05 J1201290
FFF8 130 | DLHDR BSS 2 DUMPLET PH06 J1201300
FFFA 131 | DTHDR BSS 2 DELETE PH07 J1201310
FFFC 132 | DFHDR BSS 2 DEFINE PH08 J1201320
FFFE 133 | DXHDR BSS 2 DUP EXIT PH09 J1201330
0000 134 | UCHDR BSS 2 DUP UPCOR PH13 J1201340
0002 135 | PIHDR BSS 2 PRINCIPAL I/O BLOCK PH14 J1201350
0004 136 | SIHDR BSS 2 PRINC I/O (W/O KB) BLK PH15 J1201360
0006 137 | PTHDR BSS 2 PAPER TAPE I/O BLOCK PH16 J1201370
0008 138 | CIHDR BSS 2 CI PHASE READ BY CL BUILDER J1201380
000A 139 | MUHDR BSS 2 MACRO UPDATE PH206 2-8 J1201390
000C 140 | D2HDR BSS 2 DUP CONTROL 2 PH205 2-8 J1201400
PFACE- CATCO DUP SWITCHES
142 | *************************************************** J1201420
143 | * J1201430
144 | * CATCO DUP SWITCHES * J1201440
145 | * WORDS USED FOR COMMUNICATION OF DATA J1201450
146 | * BETWEEN DUP ROUTINES. J1201460
147 | * * J1201470
148 | * INITIALIZED TO ZERO BY .REST. OF DUPCO * J1201480
149 | * J1201490
150 | *************************************************** J1201500
000E 151 | CL1 EQU * J1201510
000E 152 | ASMSW BSS 1 NON ZERO IF DEFINE VOID ASM J1201520
000F 153 | BITSW BSS 1 NON ZERO TO ALLOW MDUMP-S J1201530
0010 154 | BLKSW BSS 1 NON ZERO IF BYPASSING REC J1201540
0011 155 | CIERR BSS 1 ERROR NO DETECTED BY PH 17 J1201550
0012 156 | CISW BSS 1 NON ZERO IF STORE CI J1201560
0013 157 | CLBSW BSS 1 NON ZERO IF PRECI EXECUTED J1201570
0014 158 | CNTNO BSS 1 RECORD NO BEING PCHD OR RD J1201580
159 | * * J1201590
160 | * .DATSW. IS FILLED WITH THE CNT FIELD OF THE * J1201600
161 | * DUP CONTROL RECORD. * J1201610
162 | * USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * J1201620
163 | * USED FOR COUNT OF RECORDS TO READ AFTER A * J1201630
164 | * STORE CI DUP CONTROL RECORD. * J1201640
0015 165 | DATSW BSS 1 RECORDS VALUE IN CNT FIELD J1201650
0016 166 | DBADR BSS 1 DB ADDR OF REFERENCED PROG J1201660
0017 167 | DELSW BSS 1 ADDR OF REQ LET ENTRY - 1 J1201670
0018 168 | DFNSW BSS 1 NON ZERO IF DEFINE FXA J1201680
0019 169 | DKSAD BSS 1 DK SCTR ADDR W/O DR CODE J1201690
001A 170 | DUMPP BSS E 2 LAST LIMITS FOR PRNTR DUMP J1201700
001C 171 | FORSW BSS 1 NON ZERO IF DEFINE VOID FOR J1201710
001D 172 | FRWS BSS 1 NON ZERO IF FROM FLD IS WS J1201720
001E 173 | FXSW BSS 1 NON ZERO IF FIXED AREA REQD J1201730
001F 174 | HOLSW BSS 1 NON ZERO IF NO CONV REQD J1201740
0020 175 | IOSW BSS 1 NON ZERO IF IN/OUT REQD J1201750
176 | * * J1201760
177 | * DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * J1201770
178 | * PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* J1201780
179 | * NEG. VALUE REQUIRES PRINT OF FLET ONLY * J1201790
0021 180 | LETSW BSS 1 NON ZERO,PRINT LET OR FLET* J1201800
0022 181 | LSTLF BSS 1 LAST LET/FLET SECT PROCESSD J1201810
0023 182 | MODSW BSS 1 NON ZERO IF STORE MOD FUNC J1201820
0024 183 | NAMSW BSS 1 NON ZERO IF NAME IN LET/F J1201830
0025 184 | NEGSW BSS 1 NON ZERO IF SHRINKING FXA J1201840
0026 185 | PGMHL BSS 1 WORD COUNT OF THE PROG HDR J1201850
0027 186 | PRSW BSS 1 NON ZERO IF PRINTING OUTPUT J1201860
0028 187 | PTSW BSS 1 NON ZERO IF PAPER TAPE REQD J1201870
0029 188 | SKWDS BSS 1 WDS TO SEARCH IN L/F SECT J1201880
002A 189 | STCSW BSS 1 NON ZERO IF STORE DATA CI J1201890
002B 190 | STSW BSS 1 NON ZERO IF STORE TYPE J1201900
002C 191 | TEMP1 BSS E 1 1ST WD OF BINEB OUTPUT J1201910
002D 192 | TEMP2 BSS 1 2ND WD OF BINEB OUTPUT J1201920
002E 193 | TOWS BSS 1 NON ZERO IF TO FIELD IS WS J1201930
002F 194 | T3MSW BSS 1 TYPE 3,4 SOCAL LEVEL CELL J1201940
0030 195 | UASW BSS 1 NON ZERO IF USER AREA REQD J1201950
0031 196 | WSSW BSS 1 NON ZERO IF WORK STG REQD J1201960
0032 197 | XEQSW BSS 1 NON ZERO IF NOT RET FR GET J1201970
0033 198 | EBCSW BSS 1 NON ZERO IF EBC DATA OP 2E2 J1201980
0034 199 | HDNSW BSS 1 NON ZERO IF NAME IN HDR 2-8 J1201990
0035 200 | RPGSW BSS 1 NON Z IF DEFINE VOID RPG2-8 J1202000
0036 201 | DFLSW BSS 1 NON ZERO IF *DFILE 2-8 J1202010
0037 202 | BSS 1 RESERVED FOR ADDITION 2-8 J1202020
0037 203 | CL2 EQU *-1 J1202030
PFACE- CATCO DUP SWITCHES
205 | *************************************************** J1202050
206 | * * J1202060
207 | * CATCO DUP SWITCHES * J1202070
208 | * INITIALIZED BY DCTL AND NOT RESET BY .REST. * J1202080
209 | * * J1202090
210 | *************************************************** J1202100
0038 211 | IOREQ BSS 1 MON-ZERO,AUX I/O SET REQ J1202110
0039 212 | PH2 BSS 1 NON-ZERO IF DCTL IN CORE J1202120
003A 213 | PH3 BSS 1 NON-ZERO IF STORE IN CORE J1202130
003B 214 | PH4 BSS 1 NON-ZERO IF DUMP IN CORE J1202140
215 | ************************************************2-8 J1202150
216 | * 2-8 J1202160
217 | * CATCO SWITCH INITIALIZED TO ZERO 2-8 J1202170
218 | * BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 J1202180
219 | * 2-8 J1202190
220 | ************************************************2-8 J1202200
003C 221 | DUPCR BSS 1 NON ZERO IF DUP CTRL RCD2-8 J1202210
222 | *************************************************** J1202220
223 | * * J1202230
224 | * CATCO DUP SWITCHES SET BY CCAT SUBR * J1202240
225 | * * J1202250
226 | *************************************************** J1202260
003D 227 | ADDR2 BSS 1 KB INTERRUPT ADDRESS J1202270
003E 228 | KBREQ BSS 1 CONTENTS OF LOC 13 J1202280
229 | * THE FOLLOWING SWITCH IS SET TO INDICATE THE J1202290
230 | * PRINCIPAL INPUT DEVICE J1202300
231 | * - IS PAPER TAPE J1202310
232 | * 0 IS CARD J1202320
233 | * + IS KEYBOARD J1202330
003F 234 | INOUT BSS 1 PRINCIPAL INPUT SWITCH J1202340
235 | * J1202350
0040 236 | PTPON BSS 1 NON-ZERO IF PAPER TP ON SYS J1202360
237 | *************************************************** J1202370
238 | * * J1202380
239 | * LEVEL 4 INTERRUPT BRANCH TABLE * J1202390
240 | * ADDRESSES. INITIALIZED BY CCAT, * J1202400
241 | * AND CARD/PAPER TAPE INTERFACES. * J1202410
242 | * * J1202420
243 | *************************************************** J1202430
0049 244 | ORG /0049 J1202440
0049 245 | IBT BSS 9 9 WD INTRPT BRANCH TABLE J1202450
246 | *************************************************** J1202460
247 | * * J1202470
248 | * CATCO I/O ADDRESSES REQUIRED BY DUP * J1202480
249 | * * J1202490
250 | *************************************************** J1202500
0052 251 | P1442 BSS E 2 SYS 1442 IOAR HEADER J1202510
0054 252 | PRPAR BSS 2 DEFAULT LIMITS TO PRINT J1202520
0056 253 | PHDUP BSS 1 LAST DUP PHASE IN CORE J1202530
0057 254 | CRBUF BSS 1 81 WD BFR FOR DUP CTRL RCDS J1202540
0058 255 | DCADR BSS 1 ADDR FOR DUP CTRL IOAR HDR J1202550
0059 256 | HDBUF BSS 1 ADDR OF PAGE HEADING BFR J1202560
005A 257 | IOBLK BSS 1 ADDR OF DUP I/O PHASE J1202570
005B 258 | SDBUF BSS 1 STORE/DUMP BUFFER J1202580
005C 259 | LETAR BSS 1 ADDR OF LET SEARCH BUFFER J1202590
005D 260 | PEBUF BSS 1 41 WD BFR FOR PACKED EBCDIC J1202600
005E 261 | THIS BSS 1 ADDR OF DOUBLE BFR, BFR 1 J1202610
005F 262 | NEXT BSS 1 ADDR OF DOUBLE BFR, BFR 2 J1202620
00F2 264 | DISKZ EQU DZ000 DISKZ ENTRY POINT J1202640
01DE 265 | B EQU $ZEND-2 J1202650
01DE 266 | DMPLC EQU B IOAR CORE ADDR FOR DMPLT J1202660
01DE 267 | EXITC EQU B IOAR CORE ADDR FOR DEXIT J1202670
01DE 268 | MUPC EQU B IOAR CORE ADDR FOR MUP 2-8 J1202680
11E0 269 | DCTL EQU B+/1002 ENTRY ADDRESS OF DCTL J1202690
11DE 270 | DCTLC EQU B+/1000 IOAR CORE ADDR FOR DCTL J1202700
21DE 271 | WSDC EQU B+/2000 IOAR CORE ADDR FOR STORE J1202710
41DE 272 | DUMPC EQU B+/4000 IOAR CORE ADDR FOR DDUMP J1202720
7DB0 273 | DUPCO EQU /7DB0 ADDR OF RESIDENT DUPCO J1202730
7F1E 274 | CATCO EQU /7F20-2 ADDR OF DCOM IOAR HEADER J1202740
275 | * * J1202750
276 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * J1202760
277 | * * J1202770
7DB0 278 | ORG DUPCO J1202780
7DB0 279 | BINEB BSS 1 CONVERSION BINARY TO EBCDIC J1202790
7DB1 280 | WRTDC BSS 1 WRITE DCOM(S) SUBROUTINE J1202800
7DB2 281 | ENTER BSS 1 SAVE XR-S AND CONDITIONS J1202810
7DB3 282 | GET BSS 1 READ FROM DISK USING DISKZ J1202820
7DB4 283 | LEAVE BSS 1 HANDLES ALL EXITS FROM DUP J1202830
7DB5 284 | LINE BSS 1 SPACES PRINTER 1 LINE J1202840
7DB6 285 | MASK BSS 1 INHIBITS KB INT REQUEST J1202850
7DB7 286 | MDUMP BSS 1 PRINTS SELECTED CORE LOC-S J1202860
7DB8 287 | PAGE BSS 1 SKIPS TO NEXT PAGE J1202870
7DB9 288 | PHID BSS 1 RECORDS PHASE ID J1202880
7DBA 289 | PHIDM BSS 1 RECORDS PHASE AND MODIFIER J1202890
7DBB 290 | PRINT BSS 1 USE SYS PR SUBR TO PRINT J1202900
7DBC 291 | PUT BSS 1 WRITES TO DISK USING DISKZ J1202910
7DBD 292 | REST BSS 1 RESTORE CATCO,GO TO DCTL J1202920
7DBE 293 | RTURN BSS 1 RESTORE XR-S AND CONDITIONS J1202930
294 | * * J1202940
295 | * INPUT/OUTPUT PARAMETERS , CORE ADDRESSES * J1202950
296 | * * J1202960
7D91 297 | BUF6 EQU DUPCO-/1F ADDR OF PAGE HEADING BUFFER J1202970
7C50 298 | PRPNT EQU BUF6-/141 IOAR ADDR FOR PRINC. PTR J1202980
7A06 299 | IOADR EQU BUF6-/38B START OF I/O INTERFACE J1202990
7A0A 300 | GETHO EQU IOADR+4 ENTRY FOR READING HOLL TYPE J1203000
7A0B 301 | GETBI EQU IOADR+5 ENTRY FOR READING BINARY J1203010
7A0C 302 | PACKB EQU IOADR+6 ENTRY TO PACK BINARY J1203020
7A0D 303 | PCHBI EQU IOADR+7 ENTRY TO PUNCH BINARY J1203030
79B5 304 | BUF1 EQU IOADR-/51 ADDR OF NEXT BUFFER J1203040
7963 305 | BUF2 EQU BUF1-/52 ADDR OF THIS BUFFER J1203050
7925 306 | BUF3 EQU BUF2-/3E ADDR OF PACKED EBC BUFFER J1203060
78D3 307 | BUF4 EQU BUF3-/52 ADDR OF CONTROL RCD BUFFER J1203070
7782 308 | BUF5 EQU IOADR-/284 ADDR OF LET SCTR BFR J1203080
0640 309 | BUF7 EQU BUF5-/7142 ADDR OF STORE/DUMP BFR J1203090
PAPER TAPE INTERFACE (PFACE) PROLOGUE
311 | *************************************************** J1203110
312 | * * J1203120
313 | *STATUS - VERSION 2, MODIFICATION 8 * J1203130
314 | * * J1203140
315 | *FUNCTION/OPERATION-THIS DUP MODULE SERVES AS AN * J1203150
316 | * INTERFACE WITH I/O WHEN PAPER TAPE READING * J1203160
317 | * OR PUNCHING IS REQUIRED. IT ENABLES VARIOUS * J1203170
318 | * DUP FUNCTIONS TO PERFORM ONE OR MORE OF THE * J1203180
319 | * FOLLOWING OPERATIONS. * J1203190
320 | * * J1203200
321 | * * READ A PAPER TAPE RECORD PUNCHED IN PTTC/8 * J1203210
322 | * CODE AND CONVERT THE CONTENTS TO PACKED * J1203220
323 | * EBCDIC CHARACTERS. * J1203230
324 | * * READ A PAPER TAPE RECORD PUNCHED IN BINARY,* J1203240
325 | * WITH CHECKSUMMING IF REQUIRED, AND PACK THE* J1203250
326 | * RECORD FROM ONE FRAME TO TWO FRAMES * J1203260
327 | * PER WORD. * J1203270
328 | * * PUNCH A BINARY PAPER TAPE RECORD. * J1203280
329 | * * J1203290
330 | *ENTRY POINTS-THERE ARE FIVE ENTRY POINTS, THREE * J1203300
331 | * CORRESPONDING TO THE THREE FUNCTIONS DESCRIBED* J1203310
332 | * ABOVE, TWO SERVING AS DUMMIES TO MATCH * J1203320
333 | * CARD INTERFACE. THE CALLING SEQUENCE IS AS * J1203330
334 | * FOLLOWS- * J1203340
335 | * BSI I GETHO * J1203350
336 | * BSI I GETBI J1203360
337 | * BSI I PACKB (DUMMY ENTRY) J1203370
338 | * BSI I PCHBI J1203380
339 | * - - J1203390
340 | * - - J1203400
341 | * - - J1203410
342 | * GETHO DC IP000 J1203420
343 | * GETBI DC IP140 J1203430
344 | * PACKB DC IP190 J1203440
345 | * PCHBI DC IP250 J1203450
346 | * J1203460
347 | *INPUT- J1203470
348 | * * GETHO-PTTC/8 PAPER TAPE RECORDS J1203480
349 | * * GETBI-BINARY PAPER TAPE RECORDS J1203490
350 | * J1203500
351 | *OUTPUT-(PCHBI) BINARY PAPER TAPE RECORDS J1203510
352 | * J1203520
353 | *EXTERNAL REFERENCES- J1203530
354 | * SUBROUTINES J1203540
355 | * * PHIDM-MODIFY PHASE ID J1203550
356 | * * ENTER-SAVE INDEX REGISTERS,CONDITIONS, J1203560
357 | * AND ACCUMULATOR AND EXTENSION J1203570
358 | * * RTURN-RESTORE INDEX REGISTERS,CONDITIONS, J1203580
359 | * AND ACCUMULATOR AND EXTENSION J1203590
360 | * * 1134/1055 SYSTEM PAPER TAPE SUBROUTINE J1203600
361 | * COMMA/DCOM-N/A * J1203610
362 | * * J1203620
363 | *EXITS- * J1203630
364 | * NORMAL-RETURN TO CALLING DUP MODULE BY MEANS * J1203640
365 | * OF AN INDIRECT BSC INSTRUCTION WHERE THE * J1203650
366 | * INDIRECT ADDRESS IS THE ENTRY POINT ADDRESS. * J1203660
367 | * * J1203670
368 | * ERROR-IF CHECKSUM ERROR IS DETECTED IN GETBI, * J1203680
369 | * AN EXIT IS MADE THRU LEAVE IN DUPCO. * J1203690
370 | * DUP'S EXIT MODULE WILL PRINT THE * J1203700
371 | * APPROPRIATE ERROR MESSAGE. IF THE WORD * J1203710
372 | * COUNT EXCEEDS 54 IN GETBI OR PCHBI * J1203720
373 | * EXIT IS MADE THRU LEAVE FOR THE PRINTING* J1203730
374 | * OF THE APPROPRIATE ERROR MESSAGE. * J1203740
375 | * * J1203750
376 | *TABLES/WORK AREAS- * J1203760
377 | * * GETHO- USES AN 81 WORD BUFFER SPECIFIED * J1203770
378 | * BY CRBUF IN CATCO * J1203780
379 | * * GETBI- USES A ONE WORD BUFFER TO CONTAIN * J1203790
380 | * THE WORD COUNT OF THE RECORD TO BE * J1203800
381 | * READ, AND THEN USES A 162 WORD BUFFER* J1203810
382 | * SPECIFIED BY THIS IN CATCO. * J1203820
383 | * * PCHBI- USES AN 162 WORD BUFFER SPECIFIED * J1203830
384 | * BY THIS IN CATCO. * J1203840
385 | * * J1203850
386 | *ATTRIBUTES- * J1203860
387 | * SERIALLY REUSEABLE * J1203870
388 | * * J1203880
389 | *NOTES- * J1203890
390 | * THIS INTERFACE BECOMES PART OF DUP PHASE 16 * J1203900
391 | * IF PAPER TAPE IS INCLUDED IN THE SYSTEM * J1203910
392 | * CONFIGURATION. PHASE 16 IS CONSTRUCTED BY * J1203920
393 | * THE CCAT SUBROUTINE OF DUPCO. * J1203930
394 | * * J1203940
395 | *************************************************** J1203950
PFACE--DUP 1134/1055 INTERFACE
7A06 397 | ORG IOADR J1203970
7A06 0000 398 | DC *-* WD CNT FILLED BY SYS LDR J1203980
7A07 000C 399 | DC 12 PHASE ID FOR PAPT INTERFACE J1203990
7A08 0000 400 | DC *-* ADDR OF SYS PAPT SUBROUTINE J1204000
7A09 0000 401 | DC *-* WASTE ONE WORD J1204010
402 | *************************************************** J1204020
403 | * * J1204030
404 | * THE FOLLOWING 5 WORDS ARE ADDRESSES OF THE I/O* J1204040
405 | * INTERFACE ENTRY POINTS -- GETHO,CONV,GETBI, * J1204050
406 | * PACKB, AND PCHBI. * J1204060
407 | * * J1204070
408 | *************************************************** J1204080
7A0A 7A0E 409 | DC IP000 ENTRY FOR GETHO J1204090
7A0B 7A73 410 | DC IP140 ENTRY FOR GETBI J1204100
7A0C 7A93 411 | DC IP190 ENTRY FOR PACKB J1204110
7A0D 7AD2 412 | DC IP250 ENTRY FOR PCHBI J1204120
413 | *************************************************** J1204130
414 | * * J1204140
415 | * SUBROUTINE ENTERED VIA GETHO. THIS SUBROUTINE * J1204150
416 | * READS A RECORD, CHECKS TO SEE IF IT CONTAINS * J1204160
417 | * //,*S, OR *D, IN THE FIRST TWO COLUMNS, IF SO,* J1204170
418 | * THE RECORD IS CONVERTED TO PACKED EBC * J1204180
419 | * (VIA IP ). * J1204190
420 | * * J1204200
421 | *************************************************** J1204210
7A0E 0000 422 | IP000 DC *-* GETHO ENTRY POINT J1204220
7A0F 4480 7DBA 423 | BSI I PHIDM MODIFY PHASE ID J1204230
7A11 0900 424 | DC /0900 INPUT INTERFACE MODIFIER J1204240
7A12 4480 7DB2 425 | BSI I ENTER SAVE REGISTERS,CONDITIONS J1204250
426 | * * J1204260
7A14 6300 427 | LDX 3 0 SET SWITCH FOR READING J1204270
7A15 C157 428 | LD 1 CRBUF ADDR OF I/O AREA IN ACC J1204280
7A16 403F 429 | BSI IP080 GO READ PTTC/8 RECORD J1204290
7A17 C133 430 | LD 1 EBCSW SKIP //,*D,*M,*S TEST 2-8 J1204300
7A18 4C20 7A34 431 | BSC L IP040,Z *IF EBCSW SET (BY MUP) 2-8 J1204310
7A1A C201 432 | LD 2 +1 CHECK FRAME 1 FOR SLASH J1204320
7A1B 9034 433 | S IP916 J1204330
7A1C 4C20 7A27 434 | BSC L IP030,Z BRANCH IF 1ST FRAME NOT / J1204340
435 | * * J1204350
7A1E C202 436 | LD 2 +2 CHECK FRAME 2 FOR SLASH J1204360
7A1F 9030 437 | S IP916 J1204370
7A20 4C18 7A34 438 | BSC L IP040,+- BRANCH IF FRAMES 1,2 ARE // J1204380
439 | * * J1204390
7A22 D110 440 | IP010 STO 1 BLKSW SET BLANK RCD SW NON-ZERO J1204400
7A23 4480 7DBE 441 | IP020 BSI I RTURN RESTORE XR'S,CONDITIONS J1204410
7A25 4C80 7A0E 442 | BSC I IP000 EXIT GETHO J1204420
443 | * * J1204430
7A27 902A 444 | IP030 S IP920 CHECK FRAME 1 FOR ASTERISK J1204440
7A28 4C20 7A22 445 | BSC L IP010,Z BR IF 1ST FRAME NOT * J1204450
446 | * * J1204460
7A2A C202 447 | LD 2 +2 CHECK FRAME 2 FOR S J1204470
7A2B 9027 448 | S IP922 J1204480
7A2C 4C18 7A34 449 | BSC L IP040,+- BRANCH IF FRAMES 1,2 ARE *S J1204490
450 | * * J1204500
7A2E 9025 451 | S IP924 J1204510
7A2F 4C18 7A34 452 | BSC L IP040,+- BR IF FRAME 2 IS D 2-8 J1204520
453 | * * J1204530
7A31 9023 454 | S IP926 CHECK FRAME 2 FOR M 2-8 J1204540
7A32 4C20 7A22 455 | BSC L IP010,Z BRANCH IF FRAME 2 NOT M 2-8 J1204550
456 | * 2-8 J1204560
7A34 6228 457 | IP040 LDX 2 /28 SET WD CNT OF 40 IN FIRST J1204570
7A35 6E80 7FFD 458 | STX I2 PEBUF+C *WORD OF PACKED BUFFER. J1204580
7A37 6251 459 | LDX 2 81 XR2 IS CRBUF WD CNT PLUS 1 J1204590
7A38 6328 460 | LDX 3 40 XR3 IS PEBUF WD CNT J1204600
7A39 C157 461 | LD 1 CRBUF ADDR OF I/O BFR IN ACC J1204610
7A3A D004 462 | STO IP060+1 INITIALIZE INSTRUCTION J1204620
7A3B C15D 463 | LD 1 PEBUF INITIALIZE INST TO J1204630
7A3C D007 464 | STO IP070+1 *BUILD PACKED BUFFER J1204640
465 | * * J1204650
7A3D 72FE 466 | IP050 MDX 2 -2 NEXT UNPACKED WORDS J1204660
7A3E CE00 0000 467 | IP060 LDD L2 *-* PICK UP TWO UNPACKED WORDS J1204670
7A40 18D0 468 | RTE 16 *AND FORM J1204680
7A41 1008 469 | SLA 8 *TWO PACKED CHARACTERS J1204690
7A42 18C8 470 | RTE 8 *IN ACCUMULATOR J1204700
7A43 D700 0000 471 | IP070 STO L3 *-* STORE 2 PACKED CHARS J1204710
7A45 73FF 472 | MDX 3 -1 NEXT ADDR IN PACKED BFR J1204720
7A46 70F6 473 | MDX IP050 CONT LOOP IF XR3 NOT ZERO J1204730
7A47 70DB 474 | MDX IP020 BR TO EXIT GETHO J1204740
PFACE--CONSTANTS AND WORK AREAS
7A48 476 | BSS E 0 J1204760
7A48 7000 477 | IP902 DC /7000 READ PAPT W/O CONVERSION J1204770
7A49 7A4C 478 | DC IP910 ADDR FOR READING WD CNT J1204780
7A4A 0003 479 | IP906 DC 3 CONSTANT J1204790
7A4B 0050 480 | IP908 DC 80 CONSTANT J1204800
7A4C 0001 481 | IP910 DC 1 CNT TO READ WD CNT FRAME J1204810
7A4D 0000 482 | DC *-* READ WD CNT FRAME HERE J1204820
7A4E 7002 483 | IP912 DC /7002 READ PAPT WITH CONVERSION J1204830
7A4F 7001 484 | IP914 DC /7001 PUNCH PAPT W/O CONVERSION J1204840
7A50 0061 485 | IP916 DC ./ CONSTANT J1204850
7A51 0036 486 | IP918 DC /0036 MAX BINARY WD CNT J1204860
7A52 FFFB 487 | IP920 DC .*-./ CONSTANT J1204870
7A53 00E2 488 | IP922 DC .S CONSTANT J1204880
7A54 FFE2 489 | IP924 DC .D-.S CONSTANT J1204890
7A55 0010 490 | IP926 DC .M-.D CONSTANT 2-8 J1204900
PFACE--DUP 1134/1055 INTERFACE
492 | *************************************************** J1204920
493 | * * J1204930
494 | * THIS CLOSED SUBROUTINE PERFORMS THE * J1204940
495 | * PRELIMINARY INSTRUCTIONS NECESSARY TO READ * J1204950
496 | * OR PUNCH A RECORD. IT THEN GOES TO THE SYS * J1204960
497 | * PAPER TAPE SUBROUTINE WITH THE APPROPRIATE * J1204970
498 | * CALLING SEQUENCE. * J1204980
499 | * * J1204990
500 | *************************************************** J1205000
7A56 0000 501 | IP080 DC *-* ENTRY POINT J1205010
7A57 D007 502 | STO IP090+1 I/O BFR ADDR STORED IN J1205020
7A58 18D0 503 | RTE 16 *IP090 INSTRUCTION. J1205030
7A59 C0AE 504 | LD GETHO-2 J1205040
7A5A 80EF 505 | A IP906 SET UP INTERRUPT ADDR FOR J1205050
7A5B D151 506 | STO 1 IBT+8 *1134/1055 IN ILS04 IBT. J1205060
507 | * * J1205070
7A5C 1010 508 | SLA 16 J1205080
7A5D D110 509 | STO 1 BLKSW J1205090
510 | * * J1205100
7A5E 6600 0000 511 | IP090 LDX L2 *-* J1205110
512 | *************************************************** J1205120
513 | * * J1205130
514 | * DETERMINE FUNCTION TO BE PERFORMED * J1205140
515 | * * J1205150
516 | *************************************************** J1205160
7A60 7300 517 | MDX 3 0 J1205170
7A61 700B 518 | MDX IP110 FUNCTION NOT GETHO J1205180
519 | * * J1205190
7A62 C0E8 520 | LD IP908 J1205200
7A63 D200 521 | STO 2 0 WD CNT IS 72 J1205210
7A64 C0E9 522 | LD IP912 CODE TO READ W/CONVERSION J1205220
7A65 4480 7A08 523 | IP100 BSI I GETHO-2 BR TO SYS PAPT J1205230
7A67 C400 0013 524 | IP105 LD L $IBSY J1205240
7A69 4C20 7A67 525 | BSC L IP105,Z BR IF FUNCTION NOT COMPLETE J1205250
7A6B 4C80 7A56 526 | BSC I IP080 RETURN J1205260
527 | * * J1205270
7A6D 73FF 528 | IP110 MDX 3 -1 J1205280
7A6E 7002 529 | MDX IP120 FUNCTION IS PCHBI J1205290
530 | * * J1205300
7A6F C0D8 531 | LD IP902 FUNCTION CODE FOR GETBI J1205310
7A70 70F4 532 | MDX IP100 J1205320
533 | * * J1205330
7A71 C0DD 534 | IP120 LD IP914 FUNCTION CODE FOR PCHBI J1205340
7A72 70F2 535 | MDX IP100 J1205350
536 | *************************************************** J1205360
537 | * * J1205370
538 | * SUBROUTINE ENTERED BY GETBI. THIS SUBR READS * J1205380
539 | * A BINARY PAPER TAPE RECORD INTO THE BUFFER * J1205390
540 | * SPECIFIED BY THIS. * J1205400
541 | * * J1205410
542 | *************************************************** J1205420
7A73 0000 543 | IP140 DC *-* GETBI ENTRY POINT J1205430
7A74 4480 7DBA 544 | BSI I PHIDM MODIFY PHASE ID J1205440
7A76 0900 545 | DC /0900 READ CD/PAPT MODIFIER J1205450
7A77 4480 7DB2 546 | BSI I ENTER SAVE REGISTERS,CONDITIONS J1205460
547 | * * J1205470
7A79 C15F 548 | LD 1 NEXT J1205480
7A7A 915E 549 | S 1 THIS J1205490
7A7B 4C10 7A80 550 | BSC L IP150,- BR IF .THIS. LT .NEXT. J1205500
551 | * * J1205510
7A7D C95E 552 | LDD 1 THIS J1205520
7A7E 18D0 553 | RTE 16 INTERCHANGE DOUBLE BFR ADDR J1205530
7A7F D95E 554 | STD 1 THIS *SO THAT .THIS. LT .NEXT. J1205540
555 | *************************************************** J1205550
556 | * * J1205560
557 | * READ WORD COUNT OF BINARY RECORD * J1205570
558 | * * J1205580
559 | *************************************************** J1205590
7A80 C0C8 560 | IP150 LD IP902+1 ADDR FOR READING ONE FRAME J1205600
7A81 6301 561 | LDX 3 +1 XR3 IS CODE FOR GETBI J1205610
7A82 40D3 562 | BSI IP080 READ ONE FRAME J1205620
7A83 C0C9 563 | LD IP910+1 COMPARE FRAME JUST READ J1205630
7A84 1808 564 | SRA 8 *AGAINST MAX BINARY J1205640
7A85 90CB 565 | S IP918 *RECORD WORD COUNT J1205650
7A86 4C30 7A80 566 | BSC L IP150,-Z BR IF COUNT EXCEEDS MAX J1205660
567 | * * J1205670
7A88 C0C4 568 | IP170 LD IP910+1 J1205680
7A89 1807 569 | SRA 7 SET UP FRAME COUNT FOR J1205690
7A8A D480 7FFE 570 | STO I THIS+C *SYS PAPER TAPE SUBROUTINE J1205700
7A8C C15E 571 | LD 1 THIS ADDR OF PAPT INPUT BFR J1205710
7A8D 6301 572 | LDX 3 +1 XR3 IS CODE FOR GETBI J1205720
7A8E 40C7 573 | BSI IP080 READ BINARY PAPT RECORD J1205730
574 | * * J1205740
575 | * * J1205750
7A8F 4480 7DBE 576 | BSI I RTURN RESTORE REG'S CONDITIONS J1205760
7A91 4C80 7A73 577 | BSC I IP140 RETURN FROM GETBI J1205770
578 | *************************************************** J1205780
579 | * * J1205790
580 | * PACK BINARY RECORD, TWO FRAMES PER WORD * J1205800
581 | * * J1205810
582 | *************************************************** J1205820
7A93 0000 583 | IP190 DC *-* PACKB ENTRY POINT J1205830
7A94 4480 7DBA 584 | BSI I PHIDM MODIFY PHASE ID J1205840
7A96 0900 585 | DC /0900 CD/PAPT INTERFACE MODIFIER J1205850
7A97 4480 7DB2 586 | BSI I ENTER SAVE REGISTERS,CONDITIONS J1205860
587 | * * J1205870
7A99 C15E 588 | LD 1 THIS J1205880
7A9A 915F 589 | S 1 NEXT J1205890
7A9B 4C10 7AA0 590 | BSC L IP195,- BR IF .NEXT LT .THIS. J1205900
591 | * * J1205910
7A9D C95E 592 | LDD 1 THIS J1205920
7A9E 18D0 593 | RTE 16 INTERCHANGE DOUBLE BFR ADDR J1205930
7A9F D95E 594 | STD 1 THIS *SO THAT .NEXT. LT .THIS. J1205940
595 | * * J1205950
7AA0 C15F 596 | IP195 LD 1 NEXT INITIALIZE IP210+1 ADDR J1205960
7AA1 8009 597 | A IP210+1 *TO ADDR OF INPUT BFR + 55. J1205970
7AA2 D008 598 | STO IP210+1 J1205980
7AA3 62CA 599 | LDX 2 -54 XR2 IS LOOP COUNTER J1205990
7AA4 6780 7FFF 600 | LDX I3 NEXT+C XR3 IS ADDR OF INPUT BFR J1206000
7AA6 C301 601 | IP200 LD 3 +1 J1206010
7AA7 18D8 602 | RTE 24 J1206020
7AA8 C302 603 | LD 3 +2 PACK TWO FRAMES TO ONE WORD J1206030
7AA9 18C8 604 | RTE 8 J1206040
7AAA D600 0037 605 | IP210 STO L2 55 PACKED WORD TO BUFFER J1206050
7AAC 7302 606 | MDX 3 +2 NEXT TWO FRAMES J1206060
7AAD 7201 607 | MDX 2 +1 NEXT WORD IN INPUT BUFFER J1206070
7AAE 70F7 608 | MDX IP200 CONT IF COUNT NEGATIVE J1206080
7AAF 6237 609 | LDX 2 55 RESTORE INITIAL VALUE TO J1206090
7AB0 6AFA 610 | STX 2 IP210+1 *ADDR AT IP210 + 1. J1206100
611 | *************************************************** J1206110
612 | * * J1206120
613 | * CHECKSUM INPUT RECORD, IF REQUIRED * J1206130
614 | * * J1206140
615 | *************************************************** J1206150
7AB1 C115 616 | LD 1 DATSW DO NOT CHECKSUM DATA FORMAT J1206160
7AB2 4C20 7ACE 617 | BSC L IP240,Z BR IF READING DATA J1206170
618 | * * J1206180
7AB4 6680 7FFF 619 | LDX I2 NEXT+C XR2 IS ADDR OF INPUT WD - 1 J1206190
7AB6 C202 620 | LD 2 +2 J1206200
7AB7 4C18 7ACE 621 | BSC L IP240,+- BR, CHECKSUMMING NOT REQ J1206210
622 | * * J1206220
7AB9 C200 623 | LD 2 0 NUMBER OF WORDS TO BE J1206230
7ABA 1801 624 | SRA 1 *CHECKSUMMED IS ONE-HALF J1206240
7ABB D003 625 | STO IP220+1 *THE FRAME COUNT J1206250
7ABC 7401 7FB4 626 | MDX L CNTNO+C,1 INCR RECORD NUMBER J1206260
7ABE 6700 0000 627 | IP220 LDX L3 *-* XR3 IS LOOP COUNTER J1206270
7AC0 C114 628 | LD 1 CNTNO RECORD NUMBER J1206280
7AC1 8201 629 | IP230 A 2 +1 *ADD WORD FROM PACKED BFR. J1206290
7AC2 4802 630 | BSC C SKIP PAST ADD, IF CARRY OFF J1206300
7AC3 8088 631 | A IP910 ADD ONE TO INTERMEDIATE SUM J1206310
7AC4 7201 632 | MDX 2 +1 NEXT WORD TO ADD J1206320
7AC5 73FF 633 | MDX 3 -1 DECR LOOP COUNTER J1206330
7AC6 70FA 634 | MDX IP230 CONT IF COUNTER POSITIVE J1206340
635 | * * J1206350
7AC7 9400 7A4C 636 | S L IP910 IS CHECKSUM OK J1206360
7AC9 4C18 7ACE 637 | BSC L IP240,+- BR IF NO CHECKSUM ERROR J1206370
638 | * * J1206380
7ACB 4480 7DB4 639 | BSI I LEAVE GO TO DUP EXIT FOR ERR MSG J1206390
7ACD 005A 640 | DC 90 CHECKSUM ERROR J1206400
641 | * * J1206410
7ACE 4480 7DBE 642 | IP240 BSI I RTURN RESTORE REG'S,CONDITIONS J1206420
7AD0 4C80 7A93 643 | BSC I IP190 RETURN FROM PACKB J1206430
644 | *************************************************** J1206440
645 | * * J1206450
646 | * SUBROUTINE TO PUNCH BINARY PAPER TAPE * J1206460
647 | * * J1206470
648 | *************************************************** J1206480
7AD2 0000 649 | IP250 DC *-* PCHBI ENTRY POINT J1206490
7AD3 4480 7DBA 650 | BSI I PHIDM MODIFY PHASE ID J1206500
7AD5 0900 651 | DC /0900 CD/PAPT INTERFACE MODIFIER J1206510
7AD6 4480 7DB2 652 | BSI I ENTER SAVE REGISTERS,CONDITIONS J1206520
653 | * * J1206530
7AD8 C15F 654 | LD 1 NEXT ADDR OF OUTPUT BFR J1206540
7AD9 63FF 655 | LDX 3 -1 XR3 IS CODE FOR PCHBI J1206550
7ADA 4400 7A56 656 | BSI L IP080 PUNCH BINARY PAPT RECORD J1206560
657 | * * J1206570
7ADC 4480 7DBE 658 | BSI I RTURN RESTORE REG'S,CONDITIONS J1206580
7ADE 4C80 7AD2 659 | BSC I IP250 RETURN FROM PCHBI J1206590
660 | *************************************************** J1206600
7AE0 661 | END IP000 J1206610
There were no errors in this assembly
Program transfer address = 7A0E
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
#ACIN FF9C 98
#ANDU FFA3 104
#BNDU FFA8 105
#CBSW FF8A 77
#CIAD FF9B 97
#CIBA FFBC 109
#CIDN FFB7 108
#CSHN FFDA 115
#DBCT FF86 73
#DCOM 0001 116
#DCSW FF98 94
#ECNT FFA1 103
#ENTY FF90 83
#FCNT FF87 74
#FHOL FF94 90
#FLET FFCB 112
#FMAT FFC6 111
#FPAD FFAD 106
#FRDR FF93 88
#FSZE FF95 91
#GCNT FF9E 100
#GRPH FF9D 99
#HDNG 0007 117
#JBSW FF89 76
#LCNT FF8B 78
#LOSW FF9F 101
#MDF1 FF8D 80
#MDF2 FF8E 81
#MPSW FF8C 79
#NAME FF84 72
#NCNT FF8F 82
#PCID FFB2 107
#PIOD FF99 95
#PPTR FF9A 96
#RP67 FF91 84
#SCRA FFC1 110
#SYSC FF88 75
#TODR FF92 87
#UHOL FF96 92
#ULET FFD0 113
#USZE FF97 93
#WSCT FFD5 114
#X3SW FFA0 102
$1132 007F 33
$1403 0080 34
$ACDE 009F 42
$BYSW 01CB 52
$CH12 0006 4
$CIBA 0005 3
$COMN 0007 5
$CORE 000E 6
$CPTR 007E 32
$CTSW 000F 7
$CYLN 009A 41
$DABL 0011 9
$DADR 0010 8
$DBSY 00EE 51
$DCDE 0077 25
$DCYL 00A4 43
$DREQ 0012 10
$DUMP 003F 24
$EXIT 0038 22
$FPAD 0095 40
$HASH 0014 12
$I200 00B3 44
$I205 00B8 45 46
$I400 00C4 47
$I405 00D3 48 49
$I410 00D5 50
$IBSY 0013 11 524
$IBT2 00B9 46
$IBT4 00D4 49
$IOCT 0032 16
$IREQ 002C 14
$KCSW 007C 30
$LAST 0033 17
$LINK 0039 23
$NDUP 0034 18
$NXEQ 0035 19
$PBSY 0036 20
$PGCT 0037 21
$PHSE 0078 26
$PRET 0028 13
$PST1 0081 35
$PST2 0085 36
$PST3 0089 37
$PST4 008D 38
$STOP 0091 39
$UFDR 007D 31
$UFIO 0079 27
$ULET 002D 15
$WRD1 007B 29
$WSDR 007A 28
$ZEND 01E0 54 265
'SBFR 0FB0 118
ADDR2 003D 227
ASMSW 000E 152
B 01DE 265 266 267 268 269 270 271 272
BINEB 7DB0 279
BITSW 000F 153
BLKSW 0010 154 440 509
BUF1 79B5 304 305
BUF2 7963 305 306
BUF3 7925 306 307
BUF4 78D3 307
BUF5 7782 308 309
BUF6 7D91 297 298 299
BUF7 0640 309
C 7FA0 56 458 570 600 619 626
CATCO 7F1E 274
CIERR 0011 155
CIHDR 0008 138
CISW 0012 156
CL1 000E 151
CL2 0037 203
CLBSW 0013 157
CNTNO 0014 158 626 628
CRBUF 0057 254 428 461
D2HDR 000C 140
DATSW 0015 165 616
DBADR 0016 166
DCADR 0058 255
DCHDR FFF0 126
DCTL 11E0 269
DCTLC 11DE 270
DELSW 0017 167
DFHDR FFFC 132
DFLSW 0036 201
DFNSW 0018 168
DISKZ 00F2 264
DKSAD 0019 169
DLHDR FFF8 130
DMHDR FFF6 129
DMPLC 01DE 266
DTHDR FFFA 131
DUMPC 41DE 272
DUMPP 001A 170
DUPCO 7DB0 273 278 297
DUPCR 003C 221
DXHDR FFFE 133
DZ000 00F2 53 264
EBCSW 0033 198 430
ENTER 7DB2 281 425 546 586 652
EXITC 01DE 267
FLHDR FFF4 128
FORSW 001C 171
FRWS 001D 172
FXSW 001E 173
GET 7DB3 282
GETBI 7A0B 301
GETHO 7A0A 300 504 523
HDBUF 0059 256
HDNSW 0034 199
HOLSW 001F 174
IBT 0049 245 506
INOUT 003F 234
IOADR 7A06 299 300 301 302 303 304 308 397
IOBLK 005A 257
IOREQ 0038 211
IOSW 0020 175
IP000 7A0E 422 409 442 661
IP010 7A22 440 445 455
IP020 7A23 441 474
IP030 7A27 444 434
IP040 7A34 457 431 438 449 452
IP050 7A3D 466 473
IP060 7A3E 467 462
IP070 7A43 471 464
IP080 7A56 501 429 526 562 573 656
IP090 7A5E 511 502
IP100 7A65 523 532 535
IP105 7A67 524 525
IP110 7A6D 528 518
IP120 7A71 534 529
IP140 7A73 543 410 577
IP150 7A80 560 550 566
IP170 7A88 568
IP190 7A93 583 411 643
IP195 7AA0 596 590
IP200 7AA6 601 608
IP210 7AAA 605 597 598 610
IP220 7ABE 627 625
IP230 7AC1 629 634
IP240 7ACE 642 617 621 637
IP250 7AD2 649 412 659
IP902 7A48 477 531 560
IP906 7A4A 479 505
IP908 7A4B 480 520
IP910 7A4C 481 478 563 568 631 636
IP912 7A4E 483 522
IP914 7A4F 484 534
IP916 7A50 485 433 437
IP918 7A51 486 565
IP920 7A52 487 444
IP922 7A53 488 448
IP924 7A54 489 451
IP926 7A55 490 454
KBREQ 003E 228
LEAVE 7DB4 283 639
LETAR 005C 259
LETSW 0021 180
LINE 7DB5 284
LSTLF 0022 181
MASK 7DB6 285
MDUMP 7DB7 286
MODSW 0023 182
MUHDR 000A 139
MUPC 01DE 268
NAMSW 0024 183
NEGSW 0025 184
NEXT 005F 262 548 589 596 600 619 654
P1442 0052 251
PACKB 7A0C 302
PAGE 7DB8 287
PCHBI 7A0D 303
PEBUF 005D 260 458 463
PGMHL 0026 185
PH2 0039 212
PH3 003A 213
PH4 003B 214
PHDUP 0056 253
PHID 7DB9 288
PHIDM 7DBA 289 423 544 584 650
PIHDR 0002 135
PRINT 7DBB 290
PRPAR 0054 252
PRPNT 7C50 298
PRSW 0027 186
PTHDR 0006 137
PTPON 0040 236
PTSW 0028 187
PUT 7DBC 291
REST 7DBD 292
RPGSW 0035 200
RTURN 7DBE 293 441 576 642 658
SDBUF 005B 258
SIHDR 0004 136
SKWDS 0029 188
STCSW 002A 189
STHDR FFF2 127
STSW 002B 190
T3MSW 002F 194
TEMP1 002C 191
TEMP2 002D 192
THIS 005E 261 549 552 554 570 571 588 592 594
TOWS 002E 193
UASW 0030 195
UCHDR 0000 134
WRTDC 7DB1 280
WSDC 21DE 271
WSSW 0031 196
XEQSW 0032 197