*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 LIST <XLIST>>
 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 LIST <XLIST>>







 IFZERO TD8E+LIST <XLIST>
 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 <XLIST>
 IFZERO LINCTAPE+LIST <XLIST>
 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 <XLIST>
 *6400
 
 
 
 
 IFNZRO NOHSPT <IFZERO LIST <XLIST>>
 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 LIST <XLIST>>
 
 

 IFZERO NOHSPT+LIST <XLIST>
 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 PTCA 
 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 <XLIST>