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