/DEVICE DEPENDENT CODE FOR OS/8 MONITOR /THESE ARE CONDITIONAL PARAMETERS. SEE INTRODUCTORY COMMENTS. IFNDEF DIRECT /"DON'T REWRITE DIRECTORY" FLAG IFNDEF NOHSPT /"NO HIGH-SPEED PAPER TAPE" FLAG IFNDEF LIST IFNDEF RF08 IFNDEF LP08 IFNDEF LINCTAPE IFNDEF LINCSYS IFNDEF RK8 IFNDEF DF32 IFNDEF RK01 IFNDEF ROM IFNZRO ROM < TD8E=1 TD8ESYS=1 > IFNDEF TD8E IFNDEF TD8ESYS IFNDEF DECTAPE < IFZERO DF32+RF08+RK8+LINCSYS+TD8ESYS IFNZRO DF32+RF08+RK8+LINCSYS+TD8ESYS > IFNZRO DECTAPE < /CAN'T ALLOW TD8E AND DECTAPE!! IFNZRO TD8ESYS+TD8E < REASMB, BAD PARAMETERS >> SBLOCK=7776 /RANDOM DEFINITIONS FROM MAIN ASSEMBLY MFREE=70 /FIRST FREE BLOCK ON THE SYSTEMS DEVICE /(FIELD 1) SOFSET=7747 /NOT REALLY NECESSARY! FIELD 1 /LAST INITIAL DIRECTORY LOCATION. CHANGE IF NECESSARY. /THESE CONDITIONALS PUT IN DIRECTORY LENGTHS. *1413 IFNZRO DECTAPE+LINCSYS+TD8ESYS IFNZRO RF08 <6000^RF08+MFREE+6 /IF RF08> IFNZRO RK8 IFNZRO DF32 <7600^DF32+MFREE+6 /IF DF32> AASDNAME=564 /DEPENDS ON PS8 ASSEMBLY *AASDNAME /SYSTEM DEVICE NAME TABLE /THE ENTRIES ARE THE TWO WORD SUM OF THE SIXBIT FOR THE SYSTEM /DEVICES, WITH THE HIGH ORDER BIT FORCED ON /CHANGES IN SDNAME MUST BE ACCOMPANIED BY CHANGES IN /SDVHND. KEEP CORRESPONDENCE ONE TO ONE. SDNAME, 4631 /SYS 5723 /DSK 5524 /TTY 4020 /LPT 4604 /DTA0 4605 /DTA1 4606 /DTA2 4607 /DTA3 4610 /DTA4 4611 /DTA5 4612 /DTA6 4613 /DTA7 4024 /PTP 4224 /PTR 6504 /CDR IFNZRO TD8ESYS+TD8E < *572 /ZERO OUT DECTAPE NAMES ZBLOCK 6> AASDVHND=766 /DEPENDS ON PS8 ASSEMBLY *AASDVHND /SYSTEM HANDLER TABLE /CONTENTS: /BIT 0 - ON IF THE HANDLER IS A TWO-PAGE HANDLER /BITS 1-4 - OFFSET FROM "DVHORG-1" OF RECORD CONTAINING HANDLER /BITS 5-11 - ENTRY POINT OF HANDLER RELATIVE TO LOADING ADDRESS /EACH DEVICE HANDLER HAS AN ENTRY IN SDVHND. THE EQUATION /USED IN EACH ENTRY IS: OFFSET *200+ENTRY POINT-ASSEMBLY POINT /THE OFFSET IS BITS 1-4. /FOR A TWO PAGE HANDLER, ADD 4000. SDVHND, 0 /SYSTEM HANDLER HAD BETTER BE RESIDENT /OR PAGE 17600 IS PROBABLY BLOWN IFNZRO TD8ESYS <0> /BOTH SYS,DSK RESIDENT IFZERO TD8ESYS < IFZERO LINCSYS+DECTAPE-2 <5^200+DTA1-5000 /FOR MULTIPLE DECTAPE SYSTEMS,DTA1=DSK> IFNZRO LINCSYS+DECTAPE-2 <0 /OTHERS,DSK=SYS> > 2^200+TTY-7000 4^200+LPT-6200 5^200+DTA0-5000 5^200+DTA1-5000 5^200+DTA2-5000 5^200+DTA3-5000 5^200+DTA4-5000 5^200+DTA5-5000 5^200+DTA6-5000 5^200+DTA7-5000 1^200+PTP-6400 1^200+PTR-6400 3^200+CDR-5600+4000 /TWO PAGE HANDLER IFNZRO TD8ESYS <*772 ZBLOCK 10> /WIPE OUT TRACES OF DECTAPE IFNZRO TD8E <*772 5^200+DTA0-5000+4000 /2 PAGE HANDLER 5^200+DTA1-5000+4000 > IFNZRO TD8ESYS IFNZRO DECTAPE IFNZRO LINCSYS IFNZRO RF08 IFNZRO RK8 IFNZRO DF32 IFNZRO TD8E IFZERO TD8E FIELD 0 /NOTE:RBFLAG MUST BE AT LOC. 20 OF MAIN ASSEMBLY!!!! IFNZRO DIRECT <*20; 1 /DON'T REWRITE DIRECTORY OR ABSLDR> /DEVICE CONTROL BLOCK TABLE - ONE WORD PER DEVICE /BIT 0 - 1 IF FILE STRUCTURED DEVICE /BIT 1 - 1 IF READ ONLY DEVICE /BIT 2 - 1 IF WRITE ONLY DEVICE /BITS 3-8 - THE DEVICE TYPE /0 TELETYPE /1 HIGH SPEED READER /2 HIGH SPEED PUNCH /3 CARD READER (CR8/I) /4 LINE PRINTER /5 RK8 DISK /6 RF08 DISK(ONE PLATTER) /7 RF08 DISK(TWO PLATTERS) /10 RF08 DISK(THREE PLATTERS) /11 RF08 DISK(FOUR PLATTERS) /12 DF32 DISK(ONE PLATTER) /13 DF32 DISK(TWO PLATTERS) /14 DF32 DISK(THREE PLATTERS) /15 DF32 DISK(FOUR PLATTERS) /16 DECTAPE /17 LINCTAPE(PDP12 ONLY - FORMATTED 128 WDS/BLOCK) /20 IBM-COMPATIBLE MAGNETIC TAPE(TYPE 57A) /21 TD8E DECTAPE /22-77 TO BE ASSIGNED /BITS 9-11 - FLAG FOR WHETHER AN OUTPUT FILE IS CURRENTLY OPEN *7560 DCB, SYSD;SYSD;0;1040;DTADCB;DTADCB;DTADCB;DTADCB DTADCB;DTADCB;DTADCB;DTADCB;1020;2010;2030 /THIS HORRENDOUS CODE INSERTS THE RK8 HANDLERS. IFNZRO RK01 < IFZERO RK01-1 < *7573 4050 FIELD 1 *1001 6^200+RKA0-4600 *577 6373 /RKA0 > IFZERO RK01-2 < *7572 4050 4050 /RK8 DEVICE TYPE FIELD 1 *1000 6^200+RKA1-4600 6^200+RKA0-4600 *576 6374 6373 /RKA0 AND RKA1 > IFZERO RK01-3 < *7571 4050 4050 4050 FIELD 1 *777 6^200+RKA2-4600 6^200+RKA1-4600 6^200+RKA0-4600 *575 6375 6374 6373 /RKA0,RKA1, AND RKA2 > IFZERO RK01-4 < *7570 4050 4050 4050 4050 FIELD 1 *776 6^200+RKA3-4600 6^200+RKA2-4600 6^200+RKA1-4600 6^200+RKA0-4600 *574 6376 6375 6374 6373 /RKA0,RKA1,RKA2,RKA3 >> FIELD 0 IFNZRO TD8E <*7453;0;0;> /DTA0,1 NONRES. IFNZRO TD8ESYS < *7447 7607 /SYS ENTRY AT 7607 IFZERO TD8ESYS-2 <*7450;SDTA1> *7453 7607 /MAKE DTA0 AND DTA1 RESIDENT SDTA1 > *6777 /THIS IS SETUP FOR CD AT BUILD TIME 0 IFNZRO TD8ESYS <*6777;66> IFNZRO ROM <*6777;0> IFNZRO RK8 > IFZERO DECTAPE+LINCSYS-2 <*7450;0 /USE TAPE 1 AS DSK> IFNZRO DECTAPE+LINCSYS <*7453;7607 /DTA0 IS RESIDENT> /THE MAJOR FUNCTION OF CONFIG FOLLOWS: WRITE THE DEVICE /HANDLER RECORDS.NOTE THAT LOC. 0 CONTAINS 7607, OR THE SYSTEM /DEVICE HANDLER ENTRY POINT. /SYSTEM GENERATION STARTS AT LOC. 4000 AND CONTINUES THROUGH /THIS CODE. *4200 WRDEVH, 0 /SUBR TO WRITE OUT DEVICE HANDLER RECORDS WRITE=JMS I 0 DVHORG=16 WRITE; 4301; 5600;DVHORG+2; JMP BERR /CDR AND LPT HANDLERS WRITE; 4100; 7000;DVHORG+1; JMP BERR /TTY HANDLER WRITE; 4200; 5000;DVHORG+4; JMP BERR /DTA HANDLERS WRITE; 4100; 6400;DVHORG+0; JMP BERR /PTR & PTP HANDLERS IFZERO ROM < IFNZRO TD8ESYS < WRITE /WRITE OUT TD8E BOOTSTRAP 4120 7400 /WE PUT IT IN 47200 0 JMP BERR WRITE;4221;7400;66;JMP BERR /FIELD 1&2 RES. WRITE;4100;7400;66;JMP BERR >> IFNZRO RK01 < WRITE /WRITE OUT RK8 HANDLERS 4100 4600 DVHORG+5 JMP BERR > ISZ WRDEVH BERR, JMP I WRDEVH IFZERO RK01+LIST IFNZRO RK01 < DLDC=6732 DCLS=6742 DRDS=6741 DSKD=6745 DSKE=6747 DCLA=6751 DLWC=6753 DLCA=6755 DLDR=6733 *4600 RLOC, 0 RREC, 0 R76, 76 RDLDR, DLDR RKANO, 0 RKAISZ, ISZ RKANO RBLKCT, 0 RERRCT, 0 R177, 177 R40, 40 RM3, -3 R400, 400 R7400, 7400 RKA, 0 RZERO, 0 R34, 34 ZBLOCK 4620-. RKA0, ISZ RKANO RKA1, ISZ RKANO RKA2, ISZ RKANO RKA3, ISZ RKANO R7600, 7600 TAD RM3 DCA RERRCT TAD RKANO CMA TAD RKATAD DCA RFUNCT CLA CLL CML RTR TAD RFUNCT DCA RKADCA RDF TAD RCDIF DCA REXIT RFUNCT, HLT DCA RKA TAD RKAISZ RKADCA, HLT TAD I RKA DCA RFUNCT ISZ RKA CLA CMA TAD I RKA DCA RLOC ISZ RKA TAD I RKA DCA RREC TAD RFUNCT CLL RAL AND R7600 DCA RBLKCT RTL TAD RDLDR DCA RINST RLOOP, TAD RLOC DLCA TAD RBLKCT RKATAD, TAD R7600 SZA CLA TAD R7600 TAD R7600 DLWC TAD RFUNCT CMA RAR AND R34 TAD RKANO CMA RAL AND R76 DLDC DCLS TAD RREC RINST, HLT DSKD SKP CLA JMP RCTLC DSKE JMP .-4 RERROR, ISZ RERRCT JMP .+4 DCA RKANO CLA CLL CML RAR JMP RETRN+1 DRDS AND R40 ISZ RZERO JMP .-1 SNA CLA JMP RLOOP DCLA DSKD JMP .-1 JMP RLOOP RNEXT, DSKE SKP JMP RERROR ISZ RREC TAD RLOC TAD R400 DCA RLOC TAD RBLKCT CLL CML TAD R7400 SZL SNA JMP .+3 DCA RBLKCT JMP RLOOP CLA DCA RKANO RETRN, ISZ RKA ISZ RKA REXIT, HLT JMP I RKA RCTLC, KRS AND R177 TAD RM3 SNA CLA KSF JMP RNEXT RCDIF, CIF CDF 0 JMP I R7600 > IFZERO RK01+LIST *5600 RCSF=6631 RCRA=6632 RCSP=6671 RCSE=6672 CDR, 0 CDR770, 7700 CDRTMP, 0 JMP CDRSET TAD CDRCIF DCA CDRXIT TAD CDRCCF-1 DCA CDRXIT-1 TAD I CDR AND CDR070 TAD CDRCCF DCA CDRTM2 TAD I CDR ISZ CDR SPA JMP CDRERR AND CDR770 CIA DCA CDRWC TAD I CDR DCA CDRCA ISZ CDR CDRCCF, CDF DCA I CDRIN2 TAD CDRTM2 DCA I CDRIN3 CDRLP, JMS I CDRIN4 DCA I CDRCA JMS I CDRIN4 DCA CDRTMP JMS I CDRIN4 RTL RTL DCA CDRTM2 TAD CDRTM2 AND CDR740 TAD I CDRCA DCA I CDRCA ISZ CDRCA CDR740, 7400 TAD CDRTM2 RTL RTL AND CDR7400 TAD CDRTMP DCA I CDRCA ISZ CDRCA CDR070, 70 ISZ CDRWC JMP CDRLP ISZ CDR ISZ CDR CDRXIT, HLT JMP I CDR CDRERR, CLL CLA CML RAR JMP CDRXIT-2 CDRCA, 0 CDRWC, 0 CDRTM2, 0 CDRCIF, CIF CDF 0 CDRIN2, CDRJMP-CDRLOC CDRIN3, CDRCDF-CDRLOC CDRIN4, CDRGCH-CDRLOC CDRTBL, 0021;2223;2425;2627;3031;3203;4007;3502 2017;6364;6566;6770;7172;7514;0577;3637 1552;5354;5556;5760;6162;0104;1211;3374 0641;4243;4445;4647;5051;7316;3410;1376 CDRBUF=. CDRSET, RDF TAD CDRCCF DCA CDRSE1 CDF JMS . CDRLOC, TAD CDRSE2 TAD CDRLOC-1 DCA CDRSE3 TAD I CDRSE3 TAD CDRLOC-1 DCA I CDRSE3 ISZ CDRLOC ISZ CDRSE4 JMP CDRLOC TAD CDRSET DCA CDR+3 CDRSE1, HLT JMP CDR+3 CDRSE3, 0 CDRSE4, -6 CDRSE2, CDRIN2-CDRLOC CDRIN3-CDRLOC CDRIN4-CDRLOC CDRIN5-CDRLOC CDRABF-CDRLOC CDRTAD-CDRLOC *CDRBUF+50 CDRGCH, 0 CDF CDRJMP, 0 ISZ CDRCNT JMP CDRGET CDRGE4, ISZ CDRCT2 JMP CDRCLF CLL CLA CMA RTL DCA CDRCT2 TAD CDRABF DCA CDRPT CDRGE0, KSF JMP CDRGE7 KRS AND CDR177 TAD CDRM03 SNA JMP I CDR760 TAD CDRM27 SZA CLA JMP CDRGE7 KCC CDRGEZ, CLA CMA DCA CDRCNT CLA CMA DCA CDRCT2 TAD CDRMOD DCA CDRJMP TAD CDROPR DCA I CDRIN5 TAD CDR232 CDRCDF, HLT JMP I CDRGCH CDRGE7, RCSE JMP CDRGE0 DCA CDRSW CDRGE1, RCSP JMP CDRGE2 CDRGE3, TAD I CDRPT SZA JMP CDRGE5 CLA CMA TAD CDRPT DCA CDRPT ISZ CDRCNT ISZ CDRCNT JMP CDRGE3 JMP CDRGE4 CDRGE5, AND CDR077 SNA CLA ISZ CDRCNT TAD I CDRPT TAD CDRM77 SNA CLA CDROPR, CLL CLA IAC TAD CDRCNT SNA CLA JMP CDRGEZ CDRGE6, TAD CDR077 DCA CDRSW CDRGET, ISZ CDRSW TAD CDRSW JMS CDRGE8 TAD CDR240 CDRMOD, JMP CDRCDF CDRGE8, 0 CLL RAR TAD CDRTAD DCA CDRTM3 TAD I CDRTM3 SZL JMP .+4 RTR RTR RTR AND CDR077 JMP I CDRGE8 CDRGE2, RCSF JMP CDRGE1 CLA CMA TAD CDRCNT DCA CDRCNT RCRA JMS CDRGE8 ISZ CDRSW JMP CDRGE9 TAD I CDRPT DCA I CDRPT JMP CDRGE1 CDRGE9, CLL RTL RTL RTL ISZ CDRPT DCA I CDRPT CLA CMA JMP CDRGE1-1 CDRCLF, CLA CMA DCA CDRCNT TAD CDRCT2 CLL CMA RTL TAD CDRCT2 TAD CDR213 JMP CDRCDF CDR760, 7600 CDRM03, -3 CDRM27, -27 CDRCNT, -1 CDRCT2, -1 CDRPT, 0 CDRSW, 0 CDRTM3, 0 CDR240, 240 CDR213, 213 CDR232, 232 CDR177, 177 CDR077, 77 CDRM77, -7700 CDRABF, CDRBUF-1-CDRLOC CDRTAD, CDRTBL-CDRLOC CDRIN5, CDRXIT-1-CDRLOC IFNZRO LP08 > IFZERO LP08 < *6200 LSE=6651 LCF=6652 LLB=6654 LSD=6661 LCB=6662 LPR=6664 LPT, 0 LP7700, 7700 LPT11, 11 RDF TAD LPTCIF DCA LPTXIT TAD I LPT AND LPT70 TAD LP6201 DCA LPTCDF CLA CLL CML RAR TAD I LPT AND LP7700 CMA DCA LPTWC ISZ LPT TAD I LPT DCA LPTCA ISZ LPT TAD I LPT ISZ LPT SNL JMP LPTERR SZA CLA JMP LPTCDF LCB JMS LPWAIT TAD LPT214 JMS LPTPCH LPTCDF, HLT JMP LPT7 LPTLP, TAD I LPTCA JMS LPTPCH TAD I LPTCA AND LP7400 DCA LPTTMP ISZ LPTCA LP7400, 7400 TAD I LPTCA JMS LPTPCH TAD I LPTCA AND LP7400 CLL RTR RTR TAD LPTTMP RTR RTR JMS LPTPCH ISZ LPTCA LPT7, 7 ISZ LPTWC JMP LPTLP LPTRTN, ISZ LPT LPTXIT, HLT JMP I LPT LPTWC, 0 LPTCA, 0 LPTPCH, 0 AND LPT177 SZA TAD LPM140 SMA JMP LPFLSH TAD LPT106 SNA JMP LPTCTZ TAD LPT13 CLL TAD LPT6 SZL SNA JMP LPTCTL TAD LPT11 LLB JMP LPTKSF LPWAIT, -1 LSD JMP .-1 LCF ISZ LPLPTR JMP I LPWAIT CLA IAC LPTCTL, SNA JMP LPTTAB TAD LPTTAD DCA LPTXXX TAD LP7607 DCA LPLPTR LPTXXX, HLT SNA JMP .+3 LPR LPTKSF, JMS LPWAIT KRS LPFLSH, TAD LPM203 SNA CLA KSF JMP I LPTPCH LPTCIF, CDF CIF 0 JMP I .+1 7600 LPTCTZ, TAD LPT214 JMS LPTPCH JMP LPTRTN LPT6, 6 LPTTAB, TAD LPT40 LLB JMS LPWAIT TAD LPLPTR AND LPT7 LPM140, SZA CLA JMP LPTTAB JMP LPTKSF+1 LPTERR, CLA CLL CML RAR JMP LPTXIT LPTTAD, TAD . LPT70, 70 LPT13, 13 LPT177, 177 0 LPT40, 40 LPM203, -203 LPT106, 106 LPT214, 214 LP7607, 7607 LP6201, CDF 0 LPTTMP, 0 LPLPTR, 0 > IFNZRO LP08 > IFZERO LP08+LIST IFNZRO LP08 < *6200 LSF=6661 LSR=6663 LLS=6666 LPT, 0 CLL CML CLA RAR TAD I LPT LPT215, AND LP7700 CMA DCA LPTWC LPT214, RDF TAD LPTCIF DCA LPTXIT TAD I LPT AND LPT70 TAD LPCDF0 DCA LPTCDF LP7700, 7700 ISZ LPT TAD I LPT DCA LPTCA ISZ LPT TAD I LPT LPTCDF, HLT ISZ LPT SNL JMP LPTERR SNA CLA TAD LPT214 JMP LPTKLG LPTLP, TAD I LPTCA JMS LPTPCH TAD I LPTCA AND LP7400 DCA LPTCDF ISZ LPTCA LP7400, 7400 TAD I LPTCA JMS LPTPCH TAD I LPTCA AND LP7400 CLL RTR LPTLF, RTR TAD LPTCDF RTR RTR ISZ LPTCA LPTKLG, JMS LPTPCH LPT177, 177 ISZ LPTWC JMP LPTLP LPRTRN, ISZ LPT LPTXIT, HLT JMP I LPT LPTWC, 0 LPTCA, 0 LPTPCH, 0 AND LPT177 CIA CLL CML TAD LPT175 SZL SNA JMP LPFLSH TAD LPM143 SNA JMP LPTCTZ TAD LPTM15 CLL CML CMA TAD LPT7 SNL SZA JMP LPTCTL TAD LPT7 JMS LPWAIT LPTJMP, JMP LPJTAB-2 LPTCTZ, TAD LPT214 JMS LPTPCH JMP LPRTRN LPWAIT, 0 LLS LP7600, 7600 TAD LP7600 KRS TAD LPT175 SNA CLA KSF JMP .+3 LPTCIF, CDF CIF 0 JMP I LP7600 LSF JMP LP7600 LSR JMP LPWISZ LPTERR, CLA CLL CML RAR JMP LPTXIT LPWISZ, ISZ LPLPTR JMP I LPWAIT LPLF, CLA CLL CMA RAL LPTFF, TAD LPT214 DCA LPLPTR TAD LPLPTR JMS LPWAIT TAD LPM120 DCA LPLPTR LPTCTL, TAD LPTJMP DCA .+1 LPTXXX, HLT LPTTAB, TAD LPM140 JMS LPWAIT TAD LPLPTR AND LPT7 SNA CLA JMP I LPTPCH LPT7, 7 LPJTAB, JMP LPTTAB JMP LPLF JMP LPTVTB JMP LPTFF LPFLSH, LPM120, -120 LPT70, 70 JMP I LPTPCH LPTM15, -15 LPT175, 175 LPM143, -143 LPCDF0, CDF 0 LPLPTR, 0 LPTVTB, TAD LPTM15 DCA LPLPTR TAD LPTLF JMS LPWAIT JMP .-2 LPM140, -140 > IFZERO LP08+LIST *7000 TTY360, 360 TTY, 0 TT7600, 7600 RDF TAD TTYCIF DCA TTYXIT TAD I TTY AND TT70 TAD TTCDF DCA TTYCDF CLA CLL CML RAR TAD I TTY AND TT3700 CMA DCA TTYWC ISZ TTY TAD I TTY DCA TTYCA ISZ TTY ISZ TTY JMP TTKLG TTYLP, SNL CLA JMP TTYGLP JMS TTYTST TAD TTYM14 SNA CLA JMP TTYCTO TAD I TTYCA JMS TTYPCH AND TT7400 DCA TTYGCH ISZ TTYCA TT7400, 7400 TAD I TTYCA JMS TTYPCH AND TT7400 CLL RTR RTR TAD TTYGCH RTR RTR JMS TTYPCH TTLOOP, ISZ TTYCA TT70, 70 TTKLG, ISZ TTYWC JMP TTYLP TTYRTN, TAD TTYCDF CLL CIA SNL CLA ISZ TTY TTYXIT, HLT RAL JMP I TTY TTYPCH, 0 TAD TTM232 SNA JMP TTYRTN TAD TTY232 JMS TTPRNT JMP I TTYPCH TTYTST, 0 TTYCDF, 0 TAD TTY200 KRS TAD TTM203 KSF CLA IAC SZA JMP I TTYTST TTYCIF, CDF CIF 0 JMP I TT7600 TTPRNT, 0 TLS TSF JMP .-1 JMP I TTPRNT TTYCA, 0 TTYWC, 0 TTCDF, CDF 0 TTYGLP, JMS TTYGCH DCA I TTYCA JMS TTYGCH DCA TTYPCH JMS TTYGCH RTL RTL DCA TTYGCH TAD TTYGCH AND TT7400 TAD I TTYCA DCA I TTYCA TAD TTYGCH TTY200, AND TTY360 CLL RTL RTL TAD TTYPCH ISZ TTYCA DCA I TTYCA JMP TTLOOP TTYGCH, 0 TAD TTYCDF TT7700, SMA CLA JMP I TTYGCH ISZ TTYTST JMP TTYKSF TAD TTY212 JMP TTECHO TTYKSF, KSF JMP .-1 JMS TTYTST TAD TTM27 SNA DCA TTYCDF TAD TTY14 DCA TTYTST KRB TTECHO, JMS TTPRNT JMP I TTYGCH TTY232, 232 TTY212, 212 TTY14, 14 TTM203, -203 TTM27, -27 TTYM14, -14 TTM232, -232 TTYCTO, 6032 JMP TTYRTN TT3700, 3700 IFNZRO LINCTAPE+TD8E+TD8ESYS > IFZERO LINCTAPE+TD8E < *5000 DFUN, 0 DM203, -203 DBLOCK, 0 DBLKCT, 0 D3, 3 WC, 7754 CA, 7755 DERRCT, 0 DTA0, ISZ DTANO DTA1, ISZ DTANO DTA2, ISZ DTANO DTA3, ISZ DTANO DTA4, ISZ DTANO DTA5, ISZ DTANO DTA6, ISZ DTANO DTA7, ISZ DTANO D400, 400 CLA CLL CMA RTL DCA DERRCT TAD DTANO CMA TAD DTATAD DCA DTANO CLA CLL CML RTR TAD DTANO DCA DTADCA RDF TAD DCDIF0 DCA DSTOP DTANO, 0 DCA DTA TAD DTAISZ DTADCA, 0 DLOC=DTADCA DTAISZ, ISZ DTANO TAD I DTA DCA DFUN ISZ DTA DT7140, CLL CMA TAD I DTA DCA DLOC ISZ DTA TAD I DTA CLL RAL DCA DBLOCK ISZ DTA DTATRY, TAD WC DCDIF0, CDF CIF 0 DCA I CA TAD DFUN RAR CLA CML TAD DTANO RTR RTR TAD DT7140 DTCA DTXA DTLB JMP DC+3 DERR, RTL RAL D7600, 7600 TAD D200 DC, SZL DTATAD, TAD D400 DTXA TAD D200 KRS TAD DM203 SNA CLA KSF JMP DTAWT TAD D7600 DCA DTA JMP DSTOP+1 DTAWT, DTSF DTRB JMP .-1 SPA JMP DERR DTRA RTL CMA RTL SNL CLA TAD D3 TAD I WC CMA TAD DBLOCK CMA SZA CLA JMP DC SNL JMP DC+1 TAD DLOC DCA I CA TAD DFUN DTLB TAD D7700 D200, AND DFUN CLL RAL DCA DBLKCT RAL IAC CLL CML RTL RTL DL, DTXA TAD D7600 DCA I WC DTSF DTRB JMP .-1 CLL CML D7700, SMA CLA JMP .+4 ISZ DERRCT JMP DTATRY JMP DSTOP TAD DBLKCT TAD D7600 SNA JMP DOVER DCA DBLKCT JMP DL DOVER, ISZ DTA DSTOP, HLT TAD D200 DTXA DCA DTANO RAR JMP I DTA DTA, 0 > IFNZRO LINCTAPE+TD8E+TD8ESYS > IFZERO TD8E+LIST IFNZRO TD8E < SDSS=6771 SDST=6772 SDSQ=6773 SDLC=6774 SDLD=6775 SDRC=6776 SDRD=6777 *5000 NXINIT, 7600 JMS I CINIT2 BASE2, DCA JINIT JMP JINIT BUFF, 0 PGCT, 0 FUNCT, 0 C1000, 1000 DTA0, 0 CLA CLL JMP DTA1X UNIT, 0 DTA1, 0 CLA CLL CML TAD DTA1 DCA DTA0 DTA1X, RAR DCA UNIT RDF TAD C6203 DCA LEAVE TAD I DTA0 DCA FUNCT TAD FUNCT CLL RAL C200, AND CM200 DCA PGCT TAD FUNCT C374, AND C70 TAD C6203 DCA XFIELD ISZ DTA0 TAD I DTA0 DCA BUFF ISZ DTA0 TAD I DTA0 CLL RAL DCA TBLOCK ISZ DTA0 C6203, CIF CDF 0 JINIT, JMP INIT CLA CLL CMA RTL DCA ERCNT TAD UNIT DCA I CXUNIT JMS I CSELCT JMP .-1 TAD FUNCT CLL RAR JMP GO TRWCOM, SDST SZA CLA JMP TRY3 TAD PGCT TAD CM200 SNA JMP EXIT DCA PGCT ISZ TBLOCK TAD BUFF TAD C200 DCA BUFF CLL CML GO, CLA CML RTR TAD C1000 TAD UNIT SDLC JMS I CRDQAD JMS I CRDQAD M20, 7760 TSRCH, SDSS JMP .-1 SDRC CLL RTL AND C374 TAD M110 SNA JMP ENDZ TAD M20 SZA CLA JMP TSRCH SDRD SZL TAD TC3 CMA TAD TBLOCK CMA SNA JMP TFOUND M110, SZL SNA CLA JMP TSRCH ENDZ, SDRC CLL RTL SZL CLA JMP GO TRY3, ISZ ERCNT JMP GO CLA CLL JMP FATAL EXIT, ISZ DTA0 CLL CML FATAL, TAD UNIT SDLC CLA CML RAR LEAVE, HLT JMP I DTA0 INIT, JMS . BASE, TAD CRDQAD SPA JMP NXINIT TAD INIT DCA CRDQAD ISZ .-1 ISZ BASE JMP BASE CRDQAD, R4LINE-BASE CINIT2, INIT2-BASE CSELCT, SELECT-BASE CXUNIT, XUNIT-BASE *5167 TFOUND, SZL CLA JMP GO TAD FUNCT CLL RAL CLA C70, 70 TC3, 3 TAD BUFF XFIELD, HLT TBLOCK=DTA1 ERCNT=INIT+1 CM200=NXINIT DTA2=DTA0 DTA3=DTA1 DTA4=DTA0 DTA5=DTA1 DTA6=DTA0 DTA7=DTA1 *5200 CIF 0 DCA XBUFF RAR DCA XFUNCT TAD C7600 DCA WORDS RGRD, SDSS JMP .-1 SDRC AND K77 TAD CM32 SZA CLA JMP RGRD TAD XFUNCT K7700, SMA CLA JMP TREAD SDRC AND TC300 CLL SZA CLA JMP I CTRY3 JMS R4LINE C7600, 7600 TAD C1400 TAD XUNIT SDLC CLA CMA JMS W4LINE CLA CMA DCA CSUM WRTLP, TAD I XBUFF JMS W4LINE ISZ XBUFF K77, 77 ISZ WORDS JMP WRTLP JMS W4LINE JMS GCHK JMS W4LINE JMS W4LINE JMP I CRWCOM TREAD, JMS R4LINE JMS R4LINE JMS R4LINE AND K77 TAD K7700 DCA CSUM RDLP, JMS R4LINE JMS EFUN DCA I XBUFF ISZ XBUFF TC300, 300 ISZ WORDS JMP RDLP JMS R4LINE JMS EFUN JMS R4LINE AND K7700 JMS EFUN JMS GCHK JMP I CRWCOM W4LINE, 0 JMS EFUN SDSQ JMP .-1 SDLD CLA JMP I W4LINE R4LINE, 0 SDSQ JMP .-1 SDRD JMP I R4LINE EFUN, 0 CMA DCA ETMP TAD ETMP AND CSUM CIA CLL RAL TAD ETMP TAD CSUM DCA CSUM TAD ETMP CMA JMP I EFUN GCHK, 0 CLA TAD CSUM CLL CMA RTL RTL RTL JMS EFUN CLA CLL CML TAD CSUM AND K7700 JMP I GCHK INIT2, 0 INIT3, TAD CTRY3 SNA JMP I INIT2 TAD INIT2 DCA CTRY3 ISZ .-1 ISZ INIT3 JMP INIT3 CTRY3, TRY3-BASE2 CRWCOM, TRWCOM-BASE2 XBUFF, 0 CM32, -32 C1400, 1400 SELECT, 0 TAD XUNIT SDLC SDRC AND C100 SNA CLA ISZ SELECT KSF JMP I SELECT KRB TAD M203 SZA CLA JMP I SELECT JMP I C7600 C100, 100 M203, -203 XFUNCT=INIT2 CSUM=XFUNCT+1 WORDS=CSUM+1 ETMP=WORDS+1 XUNIT=ETMP+1 > IFZERO TD8E+LIST IFZERO LINCTAPE+LIST IFNZRO LINCTAPE < *5000 LINC= 6141 PDP= 0002 CLR= 0011 AXO= 0001 TMA= 0023 TAC= 0003 STDI= 0436 COM= 0017 ROLI1= 0261 ESF= 0004 LTM203, -203 LTA, 0 LTA7, 7 LTA30, 30 LTA70, 70 LTA702, 702 LT3700, 3700 LTATMP, 0 DTA0, ISZ LTANO DTA1, ISZ LTANO DTA2, ISZ LTANO DTA3, ISZ LTANO DTA4, ISZ LTANO DTA5, ISZ LTANO DTA6, ISZ LTANO DTA7, ISZ LTANO LTA200, 200 TAD LTANO CMA TAD LTATAD DCA LTANO CLA CLL CML RTR TAD LTANO DCA LTADCA RDF TAD LCDIF0 DCA LTAXIT LTANO, 0 DCA LTA TAD LTAISZ LTADCA, 0 TAD I LTA DCA LTARG1 ISZ LTA TAD I LTA DCA LTARG2 ISZ LTA TAD I LTA CLL RAL DCA LTARG3 ISZ LTA ISZ LTA TAD LTARG1 AND LTA70 TAD LTCDF DCA LTSET TAD LTSET AND LTA70 CLL RTL RTL RTL SLTARG3,DCA LTATMP TAD LTANO AND LTA7 CLL RAR TAD LTATMP TAD LTA30 LINC AXO PDP LT7600, 7600 DCA LTANO TAD LTARG1 RTL AND LTA3 CLL RTL TAD LTA702 DCA LTINST LTALP, TAD LTARG2 LTATAD, TAD LTA200 DCA LTATMP LTSET, 0 TAD I LTATMP DCA LTASVC TAD LTARG2 LINC TMA LTINST, 0 LTARG3, 0 LTAWLP, PDP CLA TAD LTASVC DCA I LTATMP TAD LTA200 KRS TAD LTM203 SNA CLA KSF JMP NOTFUG TAD LTA30 LINC ESF PDP LT7700, 7700 TAD LTASVC DCA I LTATMP LCDIF0, CDF CIF 0 JMP I LT7600 NOTFUG, LINC STDI COM ROLI1 LTA3, TAC PDP SNL JMP LTAWLP LTADUN, CLL IAC CLA IAC RTL AND LTINST SNA CLA JMP LTALP LTNERR, TAD LTARG1 AND LT3700 TAD LT7700 SNA JMP LTAXIT DCA LTARG1 TAD LTATMP DCA LTARG2 ISZ LTARG3 JMP LTALP LTAXIT, HLT JMP I LTA LTAISZ, ISZ LTANO LTARG1, 0 LTARG2, 0 LTCDF, CDF 0 LTASVC=LTADCA > IFZERO LINCTAPE+LIST *6400 IFNZRO NOHSPT > IFZERO NOHSPT < PTP, 0 CLA CLL CML JMS PSETUP PTPLP, TAD I PTPCA JMS PTPPCH DCA PTR ISZ PTPCA PT7700, 7700 TAD I PTPCA JMS PTPPCH CLL RTR RTR TAD PTR RTR RTR JMS PTPPCH PTPEND, ISZ PTPCA PT70, 70 KSF JMP PTPISZ PTPKRS, KRS AND PTP177 TAD PTPM3 SZA CLA JMP PTPISZ PTPCIF, CDF CIF 0 JMP I .+1 7600 PSETUP, 0 RDF TAD PTPCIF DCA PTPXIT TAD I PTP AND PT70 TAD PCDF DCA PTPCDF RAR TAD I PTP ISZ PTP SPA JMP PTPERR AND PT7700 CMA DCA PTPWC TAD I PTP ISZ PTP DCA PTPCA TAD I PTP PTPCDF, 0 PTPEOF=PTPCDF SNA CLA SZL JMP PTPKRS TAD PTP336 TLS KSF JMP .-1 JMS PTRGCH 6032 JMP PTPKRS PTPISZ, ISZ PTPWC JMP I PSETUP PTPRTN, TAD PTPEOF SZA CLA ISZ PTP ISZ PTP PTPXIT, HLT JMP I PTP PTPPCH, 0 PLS PSF JMP .-1 AND PT7400 JMP I PTPPCH PTPCA, 0 PTR, 0 CLA CLL TAD PTR DCA PTP JMS PSETUP PTRLP, JMS PTRGCH DCA I PTPCA JMS PTRGCH DCA PTPPCH JMS PTRGCH RTL RTL AND PT7400 TAD I PTPCA DCA I PTPCA TAD PTR RTR RTR RAR AND PT7400 TAD PTPPCH ISZ PTPCA PT7400, 7400 DCA I PTPCA JMP PTPEND PTRGCH, 0 TAD PTPEOF SNA CLA JMP PTRBF0 RFC DCA PTPEOF PTTIME, ISZ PTPEOF JMP PGCHLP TAD PTP232 PTRBF0, DCA PTR JMP PTRXX PGCHLP, TAD PTPTMP DCA PTR PTP232, 232 PTP336, 336 PTP177, 177 RSF JMP PTTIME RRB PTRXX, DCA PTPTMP TAD PTR JMP I PTRGCH PTPERR, CLA CLL CML RAR JMP PTPXIT-2 PCDF, CDF 0 PTPTMP, 0 PTPWC, 0 PTPM3, -3 > IFNZRO NOHSPT > IFZERO NOHSPT+LIST IFNZRO NOHSPT < PTP, 0 CLA CLL CML JMS PSETUP PTPLP, KSF JMP PTPCNT KRS AND PTP177 TAD PTPM3 SZA CLA JMP PTPCNT PTPCIF, CDF CIF 0 JMP I PT7600 PTPCNT, TAD I PTPCA JMS PTPPCH DCA PTR ISZ PTPCA PT7700, 7700 TAD I PTPCA JMS PTPPCH CLL RTR RTR TAD PTR RTR RTR JMS PTPPCH PTPEND, ISZ PTPCA PT70, 70 JMP PTPISZ PSETUP, 0 RDF TAD PTPCIF DCA PTPXIT TAD I PTP AND PT70 TAD PCDF DCA PTPCDF RAR TAD I PTP ISZ PTP SPA JMP PTPERR AND PT7700 CMA DCA PTPWC TAD I PTP ISZ PTP DCA PTPCA TAD I PTP PTPCDF, 0 PTPEOF=PTPCDF SNA CLA SZL JMP PTPISZ TAD PTP336 TLS KSF JMP .-1 PT7600, 7600 PTPISZ, ISZ PTPWC JMP I PSETUP PTPRTN, TAD PTPEOF SZA CLA ISZ PTP ISZ PTP PTPXIT, HLT JMP I PTP PTPPCH, 0 TLS TSF JMP .-1 AND PT7400 JMP I PTPPCH PTPCA, 0 PTR, 0 CLA CLL TAD PTR DCA PTP JMS PSETUP PTRLP, JMS PTRGCH DCA I PTPCA JMS PTRGCH DCA PTPPCH JMS PTRGCH RTL RTL DCA PTR TAD PTR AND PT7400 TAD I PTPCA DCA I PTPCA TAD PTR RTL RTL AND PT7400 TAD PTPPCH ISZ PTPCA PT7400, 7400 DCA I PTPCA JMP PTPEND PTRGCH, 0 TAD PTPEOF SNA CLA JMP I PTRGCH CLA CLL CMA RTL DCA PTPEOF DCA PTR PTTIME, ISZ PTR JMP PTP232 ISZ PTPEOF JMP PTP232 TAD PTP232 JMP I PTRGCH PTP232, 232 PTP177, 177 KSF JMP PTTIME KRB JMP I PTRGCH PTPERR, CLA CLL CML RAR JMP PTPXIT-2 PCDF, CDF 0 PTP336, 336 PTPWC, 0 PTPM3, -3 > IFZERO NOHSPT+LIST *6607 NOPUNCH *7607 ENPUNCH IFZERO RF08+DF32+LIST IFNZRO RF08+DF32 < SHNDLR, 0 CLA CLL CMA RTL DCA SYSCNT TAD I SHNDLR RAL CLA RTL TAD S6603 DCA SFUN TAD I SHNDLR AND S70 DCA SFIELD TAD I SHNDLR RAL AND S7600 CIA DCA SWC CLA CMA ISZ SHNDLR TAD I SHNDLR DCA SCA ISZ SHNDLR IFNZRO DF32 TAD SFIELD 6615 S7600, 7600 IFNZRO RF08 TAD I SHNDLR TAD SOFSET RTR RTR RAR AND S7400 SFUN, HLT RDF TAD SCIF DCA SFIELD IFNZRO DF32 <6622> IFNZRO RF08 <6623> JMP .-1 ISZ SHNDLR 6621 IFNZRO RF08 JMP SYSER ISZ SHNDLR SFIELD, HLT 6601 JMP I SHNDLR SYSER, CLA CLL CML RAR ISZ SYSCNT SKP CLA JMP SFIELD CLA CLL CMA RTL TAD SHNDLR DCA SHNDLR IFNZRO RF08 ; SKP; HLT> JMP SHNDLR+3 SCIF, CIF 0 SYSCNT, 0 IFNZRO DF32 ; SKP; HLT> S6603, 6603 S70, 70 S7400, 7400 IFNZRO DF32 IFNZRO RF08 SCA=7751 SWC=7750 > IFZERO RF08+DF32+LIST IFZERO DECTAPE+LIST IFNZRO DECTAPE < SHNDLR, 0 CLA CLL CMA RTL DCA SYSCNT RDF TAD SCIF DCA SFIELD TAD I SHNDLR DCA SFUN ISZ SHNDLR CLA CMA TAD I SHNDLR DCA SLOC ISZ SHNDLR STRY, TAD S410 DTCA DTXA DTLB CLA CMA CLL RAL DCA SCA TAD SFUN RTR RTR SERR, RTL RAL S7600, 7600 TAD S200 SC, SZL TAD S400 DTXA DTSF DTRB JMP .-1 SPA JMP SERR DTRA RTL CMA RTL SNL CLA CML RTL TAD SBLOCK CMA TAD I SHNDLR TAD I SHNDLR TAD SOFSET TAD SOFSET CMA SZA CLA JMP SC SNL JMP SC+1 TAD SLOC DCA SCA TAD SFUN DTLB TAD SFUN CLL RAL AND S7600 DCA SBLKCT RAL IFNZRO .-7700 SKP HLT IAC CLL CML RTL RTL SL, DTXA TAD S7600 DCA SWC DTSF DTRB JMP .-1 CLL CML SPA CLA JMP SERR2 TAD SBLKCT TAD S7600 SNA JMP SOVER DCA SBLKCT JMP SL SERR2, ISZ SYSCNT JMP STRY SKP SOVER, ISZ SHNDLR ISZ SHNDLR TAD S200 DTXA RAR SFIELD, HLT JMP I SHNDLR SCIF, CIF 0 S400, 400 S200, 200 S410, 410 SBLKCT=7753 SYSCNT=7750 SFUN=7751 SLOC=7752 SWC=7754 SCA=7755 > IFZERO DECTAPE+LIST IFZERO RK8+LIST IFNZRO RK8 < DCLA=6751 DLDR=6733 DLDC=6732 DRDS=6741 DRWC=6752 DCLS=6742 DSKD=6745 DSKE=6747 DLWC=6753 DLCA=6755 SHNDLR, 0 CLA CLL CMA RTL DCA SYSCNT RDF TAD SCIF DCA SFIELD TAD I SHNDLR DCA SFUN ISZ SHNDLR CLA CMA TAD I SHNDLR DCA SLOC ISZ SHNDLR STRY, TAD I SHNDLR TAD SOFSET DCA SREC TAD SFUN RAL AND S7600 DCA SBLKCT RTL TAD SDLDR DCA SINST SLOOP, TAD SLOC DLCA TAD SBLKCT TAD S7600 SZA CLA TAD S7600 TAD S7600 DLWC CLA CMA DCLS S7600, 7600 S7400, 7400 TAD SFUN AND S70 DLDC TAD SREC SINST, 0 DSKD SKP JMP SNEXT DSKE JMP SINST+1 SERROR, ISZ SYSCNT JMP .+3 CLA CLL CML RAR JMP SRTRN+1 DRDS AND S40 ISZ SZERO JMP .-1 SNA CLA JMP SLOOP CLA CMA DCLS IFNZRO .-7700 SKP CLA HLT DCLA DSKD JMP .-1 JMP SLOOP SNEXT, DSKE SKP JMP SERROR ISZ SREC S70, 70 TAD SLOC TAD S400 DCA SLOC TAD SBLKCT CLL CML TAD S7400 SZL SNA JMP .+3 DCA SBLKCT JMP SLOOP CLA SRTRN, ISZ SHNDLR ISZ SHNDLR SFIELD, HLT JMP I SHNDLR SLOC, 0 SREC, 0 SBLKCT, 0 SYSCNT, 0 SFUN, 0 SZERO, 0 S400, 400 SCIF, CIF 0 SDLDR, DLDR S40, 40 > IFZERO RK8+LIST IFZERO LINCSYS+LIST IFNZRO LINCSYS < SHNDLR, 0 S7600, 7600 RDF TAD SCIF DCA SXIT TAD I SHNDLR DCA SFUN ISZ SHNDLR TAD I SHNDLR DCA SADR ISZ SHNDLR TAD I SHNDLR TAD SOFSET CLL RAL DCA SBLOK ISZ SHNDLR CLL CML RAR AND SFUN RTL RTL TAD S702 DCA SINST TAD SFUN AND S70 TAD SADCDF DCA SADSET TAD SADSET AND S70 RTL IAC RTL RTL LINC=6141 PDP=2 AXO=1 TMA=23 LINC AXO PDP CLA TAD SFUN RAL AND S7600 DCA SFUN SADSET, 0 SLOOP, CLA CLL CMA RTL DCA SERRCT STRY, TAD SADR TAD S200 DCA SADNXT TAD I SADNXT DCA SADSVC TAD SADR LINC TMA SINST, 0 SBLOK, 0 PDP CMA DCA SADSET TAD SADSVC DCA I SADNXT IFNZRO .-7700 SKP HLT TAD SADSET SZA CLA JMP SERR SOK, ISZ SBLOK TAD SADNXT DCA SADR TAD SFUN TAD S7600 SNA JMP SDONE DCA SFUN JMP SLOOP SERR, TAD SINST RTR;RTR SPA CLA JMP SOK ISZ SERRCT JMP STRY CLA CLL CML RAR SKP SDONE, ISZ SHNDLR SXIT, 0 JMP I SHNDLR SFUN, 0 SADR, 0 SERRCT, 0 S702, 702 S200, 200 S70, 70 SCIF, CDF CIF 0 SADCDF, CDF 0 SADNXT, 0 SADSVC, 0 > IFZERO LINCSYS+LIST IFZERO RF08+DF32+LIST IFNZRO RF08+DF32 < *7400 NOPUNC *6604 ENPUNC NOP B6653, 6653 B7647, 7647 B7577, 7577 B200, 200 B7605, 7605 B7751, 7751 ZBLOCK 6622-. TAD I B6653 CDF 10 DCA I B7647 CDF 0 ISZ B6653 ISZ B7647 JMP .-6 IFNZRO RF08 <6643> 6615 7600 TAD B7577 DCA I B7751 TAD B200 6603 IFNZRO RF08 <6623> IFNZRO DF32 <6622> JMP .-1 6621 IFNZRO RF08 HLT JMP I B7605 > IFZERO RF08+DF32+LIST IFZERO DECTAPE+LIST IFNZRO DECTAPE < *7400 NOPUNCH *7600 ENPUNCH TAD B600 DTCA DTXA DTSF JMP .-1 DCA BOOTX DCA BOOTX+1 TAD B620 JMP BOOT3 ZBLOCK 7611-. BM7642, -7641 BOOT1, TAD 7755 TAD BM7642 SNA CLA JMP BOOT2 NOP JMP BOOT1 BOOT2, TAD B10 DTLB DTSF JMP .-1 BOOT3, DTXA DTLB TAD B7577 DCA 7755 DCA 7754 BOOTX, CDF CIF 10 JMP 7642 JMP BOOT1 B7577, 7577 B10, 10 B600, 600 B620, 620 ZBLOCK 7642-. DCA 7744 DTSF JMP .-1 CDF CIF 0 JMP 7605 *7544 NOPUNCH *7744 ENPUNCH JMP 7600 > IFZERO DECTAPE+LIST IFZERO RK8+LIST IFNZRO RK8 < *7400 NOPUNC *1 ENPUNC BOOT, TAD I BOOTX1 DCA I BOOTX2 TAD I BOOTX3 CDF 10 DCA I BOOTX4 CDF 0 TAD BOOTX2 SZA CLA JMP BOOT JMP I B7605 BOOTX1, 200 BOOTX2, 7577 BOOTX3, 47 BOOTX4, 7646 ZBLOCK 27-. B7605, 7605 DSKD JMP .-1 JMP BOOT > IFZERO RK8+LIST IFZERO LINCSYS+LIST IFNZRO LINCSYS < *7416 B4047, 4047 B7647, 7647 1020;20;4 1020;20;AXO 1020;7600;TMA 720;1 PDP CLA TAD I B4047 CDF 10 DCA I B7647 CDF 00 ISZ B4047 ISZ B7647 JMP .-6 JMP I .+1 7605 > IFZERO LINCSYS+LIST IFZERO ROM < IFZERO TD8ESYS+LIST IFNZRO TD8ESYS < FIELD 2 *7420 NOPUNCH *7400 ENPUNCH SDSS=6771 SDST=6772 SDSQ=6773 SDLC=6774 SDLD=6775 SDRC=6776 SDRD=6777 TDBOOT, TAD K7600 DCA TDWCT SDSS JMP .-1 SDRC AND TD77 TAD KM26 SZA CLA JMP TDBOOT+2 SDRD TDBKNO, TAD TDM14 SZA CLA JMP TDBOOT+2 TDRGRD, SDSS JMP .-1 SDRC AND TD77 TAD KM32 SZA CLA JMP TDRGRD JMS TDRQD JMS TDRQD JMS TDRQD CDF 10 TDREAD, JMS TDRQD DCA I TDPTR ISZ TDPTR JMP TDREAD ISZ TDBKNO TAD KCDF20 DCA TDREAD-1 ISZ M2 JMP TDBOOT SDLC CIF CDF 0 JMP I K7605 TDM14, -154 -155 TDWCT, 7600 TDRQD, 0 SDSQ JMP .-1 SDRD JMP I TDRQD TDPTR=TDWCT K7600, 7600 KM26, -26 KM32, -32 KCDF20, CDF 20 M2, -2 K7605, 7605 TD77, 77 > IFNZRO TD8ESYS < FIELD 0 *6607 NOPUNCH *7607 ENPUNCH SHNDLR, 0 CLA CLL JMP SHND2 C3, 3 S70, 70 SDTA1, 0 CLA CLL CML SC1000, TAD SDTA1 DCA SHNDLR SHND2, RAR DCA SUNIT RDF TAD S6203 DCA EFLD TAD I SHNDLR SDLD AND S70 TAD S6203 DCA TFLD ISZ SHNDLR TAD I SHNDLR DCA BPTR ISZ SHNDLR TAD I SHNDLR CLL RAL DCA BLOCK ISZ SHNDLR CIF CDF 20 TAD SUNIT DCA I SUNIT2 JMP F2SET F1GO, SDRD RAR JMP RGO RENTER, TAD BPTR TAD SC200 DCA BPTR ISZ BLOCK CLL CML RGO, CLA CML RTR TAD SC1000 TAD SUNIT SDLC SDSQ JMP .-1 SDRD SDSQ JMP .-1 SDRD SRCH, SDSS JMP .-1 SDRC CLL RTL AND SC374 TAD SM110 SNA JMP SENDZ TAD SM20 SZA CLA JMP SRCH SDRD SZL TAD C3 CMA TAD BLOCK CMA SNA JMP FOUND SM110, CLA SNA SZL JMP SRCH SENDZ, SDRC CLL RTL SZL CLA JMP RGO CIF 20 JMP ERROR FOUND, SZL CLA JMP RGO TAD BPTR TFLD, HLT CIF 20 JMP RDWT SEXIT, ISZ SHNDLR SEREX, TAD SUNIT SDLC CML CLA RAR EFLD, HLT JMP I SHNDLR BPTR=7755 BLOCK=7754 SUNIT=SDTA1 S6203, 6203 SC200, 200 SC374, 374 SM20, -20 SUNIT2, SXUNIT FIELD 2 *7600 XPTR, 0 F2SET, CLA CLL CMA RTL DCA TRYCNT TAD SXUNIT SDLC F26203, CIF CDF 0 SDRD CLL RAL AND CX7600 DCA XPGCT SDRD DCA SXFUN JMP F1GO RDWT, DCA XPTR TAD CX7600 DCA XWCNT REVGRD, SDSS JMP .-1 SDRC AND X77 TAD XM32 SZA CLA JMP REVGRD TAD SXFUN SK7700, SMA CLA JMP READ SDRC AND C300 SZA CLA JMP ERROR JMS RDQUAD CX7600, 7600 TAD WRLP TAD SXUNIT SDLC CLA CMA JMS WRQUAD CLA CMA DCA SCKSUM WRLP, TAD I XPTR JMS WRQUAD ISZ XPTR X77, 77 ISZ XWCNT JMP WRLP JMS WRQUAD JMS GETCHK JMS WRQUAD JMS WRQUAD RWCOM, SDST SZA CLA JMP ERROR CIF CDF 0 TAD XPGCT TAD CX7600 SNA JMP SEXIT DCA XPGCT JMP RENTER READ, JMS RDQUAD JMS RDQUAD JMS RDQUAD AND X77 TAD SK7700 DCA SCKSUM SRDLP, JMS RDQUAD DCA I XPTR TAD I XPTR JMS EQUFUN ISZ XPTR C300, 300 ISZ XWCNT JMP SRDLP JMS RDQUAD JMS EQUFUN JMS RDQUAD AND SK7700 JMS EQUFUN JMS GETCHK JMP RWCOM ERROR, CLA CLL CIF CDF 0 ISZ TRYCNT JMP RGO JMP SEREX WRQUAD, 0 SDSQ JMP .-1 SDLD JMS EQUFUN JMP I WRQUAD RDQUAD, 0 SDSQ JMP .-1 SDRD JMP I RDQUAD EQUFUN, 0 CMA DCA EQUTMP TAD EQUTMP AND SCKSUM CIA CLL RAL TAD EQUTMP TAD SCKSUM DCA SCKSUM JMP I EQUFUN GETCHK, 0 TAD SCKSUM CLL CMA RTL RTL RTL JMS EQUFUN TAD SCKSUM AND SK7700 JMP I GETCHK SXUNIT, 0 XPGCT, 0 SXFUN, 0 TRYCNT, 0 XWCNT, 0 XM32, -32 SCKSUM, 0 EQUTMP, 0 ZBLOCK 4 >> IFZERO TD8ESYS+LIST IFZERO TD8ESYS+LIST FIELD 0 IFZERO ROM+LIST IFNZRO ROM < RGO=7405 F2SET=7552 ROMFLD=70 *6607 NOPUNC *7607 ENPUNC SHNDLR, 0 CLA CLL JMP SHND2 S70, 70 S6201, 6201 SDTA1, 0 CLA CLL CML TAD SDTA1 DCA SHNDLR SHND2, RAR DCA SUNIT RDF TAD S6203 DCA EFLD TAD I SHNDLR SDLD AND S70 TAD S6201 DCA TFLD TAD TFLD DCA TFLD2 ISZ SHNDLR TAD I SHNDLR DCA BPTR ISZ SHNDLR TAD I SHNDLR CLL RAL DCA BLOCK ISZ SHNDLR CDF 0 CIF ROMFLD JMP I XF2SET GET, 0 TFLD, HLT TAD I XPTR CIF ROMFLD JMP I GET PUT, 0 TFLD2, HLT DCA I XPTR CIF ROMFLD JMP I PUT ERROR, CLA CLL CIF ROMFLD ISZ TRYCNT JMP I XRGO S6203, CIF CDF 0 JMP SEREX XRGO, RGO XF2SET, F2SET EQUTMP=7750 BPTR=7751 XPGCT=7752 XPTR=7753 XWCNT=7754 WRQ=7724 WRQUAD, 0 CIF ROMFLD JMP WRQ CIFR, CIF ROMFLD JMP I WRQUAD RDQUAD, 0 SDSQ JMP .-1 SDRD CIF ROMFLD JMP I RDQUAD EQUFUN, 0 CMA DCA EQUTMP TAD EQUTMP AND SCKSUM CIA CLL RAL TAD EQUTMP TAD SCKSUM DCA SCKSUM TAD EQUTMP CLL CMA CIF ROMFLD JMP I EQUFUN SEXIT, ISZ SHNDLR SEREX, TAD SUNIT SDLC CLA CML RAR EFLD, HLT JMP I SHNDLR TRYCNT, 0 SXUNIT, 0 SXFUN, 0 SCKSUM, 0 BLOCK, 0 SUNIT, 0 *7420 NOPUNCH *7400 ENPUNCH CDF 0 TAD I ROM1 CDF 10 DCA I ROM2 ISZ ROM1 NOP ISZ ROM2 NOP ISZ ROMCT JMP 7400 CIF CDF 0 SDLC JMP I .+1 7605 ROM1, 7427 ROM2, 7647 ROMCT, -130 > IFZERO ROM+LIST $$$$