*6607 
 NOPUNCH
 *7607
 ENPUNCH
 IFZERO RF08+DF32+LIST <XLIST>
 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 I SHNDLR


 TAD SOFSET
 RTL
 AND S3700>
 TAD SFIELD
 6615  
S7600, 7600
 IFNZRO RF08 <TAD I SHNDLR
 TAD SOFSET
 RTR
 RTR
 AND S377
 6643> 
 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 <SKP> 
 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 <IFNZRO .-7700 <NZERR>; SKP; HLT>
 JMP SHNDLR+3
SCIF, CIF 0
SYSCNT, 0
 IFNZRO DF32 <IFNZRO .-7700 <NZERR>; SKP; HLT>
S6603, 6603
S70, 70
S7400, 7400
 IFNZRO DF32 <S3700, 3700>
 IFNZRO RF08 <S377, 377>
 SCA=7751
 SWC=7750
 >
 IFZERO RF08+DF32+LIST <XLIST>
 IFZERO DECTAPE+LIST <XLIST>
 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 <NZERR>
 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 <XLIST>
 IFZERO RK8+LIST <XLIST>
 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 <NZERR>
 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 <XLIST>
 IFZERO LINCSYS+LIST <XLIST>
 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 <NZERR>
 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 <XLIST>
 
 IFZERO RF08+DF32+LIST <XLIST>
 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 <SKP>
 HLT  
 JMP I B7605



 

 
 
 
 
 
 
 >
 IFZERO RF08+DF32+LIST <XLIST>
 IFZERO DECTAPE+LIST <XLIST>
 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 <XLIST>
 IFZERO RK8+LIST <XLIST>
 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 <XLIST>
 IFZERO LINCSYS+LIST <XLIST>
 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 <XLIST>

 IFZERO ROM <
 IFZERO TD8ESYS+LIST <XLIST>
 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 <XLIST>


 IFZERO TD8ESYS+LIST <XLIST>

































 FIELD 0
 IFZERO ROM+LIST <XLIST>
 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 <XLIST>

$$$$