/********GOOD-BY****ERIC ENGQUIST************/
MQL=7421
MQA=7501
*0200
FIELD 1
L0, CLL CLA
 JMS CLR
 TAD (0001)
 DCA NUM
 TAD (1017)
 DCA SEC
 TAD SEC
 DCA FIRST
 TAD (-14)
 DCA KNT1
 TAD KNT1
 DCA KNT
 TAD (-20)
 DCA LAST
 TAD NUM
 DCA TEMP
 TAD (-310)
 DCA CNT
L2, TAD NUM
 DCA I FIRST 
 TAD (20)
 TAD FIRST
 DCA FIRST
 ISZ CNT
 JMP L2
 TAD (-310)
 DCA CNT
 CLA CLL IAC RAL
 JMS SCOPE
 TAD SEC
 DCA FIRST
 ISZ KNT
 JMP .+2
 JMP L3
 CLL
 TAD TEMP
 RAL
 DCA TEMP
 TAD TEMP
 TAD NUM
 DCA NUM
 JMP L2
L3, TAD KNT1
 DCA KNT
 TAD (0001)
 DCA NUM
 TAD (0001)
 DCA TEMP
 TAD SEC
 TAD (-1)
 DCA SEC
 TAD SEC
 DCA FIRST
 ISZ LAST
 JMP L2
 CLL CLA IAC RAL
 JMS SCOPE
 JMS WRITE
 TAD (0200)
 JMS SCOPE
 CLL CLA
 6152
 KSF
 JMP .-1
 KRS
 TAD (-203)
 SNA CLA
 JMP QUIT
 KRB
 TAD (-216)
 SZA CLA
 JMP L0
 CDF CIF 00
 JMP I (NXPROG)
QUIT, CDF CIF 00
 JMP I (7600)
NUM, 0
SEC, 0
FIRST, 0
KNT1, 0
KNT, 0
LAST, 0
CNT, 0
TEMP, 0
SCOPE, 0
 CIA
 DCA INDEXS
 6156
 JMP .-1
 ISZ INDEXS
 JMP .+2
 JMP I SCOPE
 TAD BUFADR
 6150
 NOP
 NOP
 TAD (0012)
 6151
 JMP SCOPE+3
INDEXS, 0
BUFADR, 1000
CLR, 0
 TAD BUFADR
 DCA BIG
L1, CLA
 DCA I BIG
 ISZ BIG
 TAD BIG
 TAD (-7200)
 SZA
 JMP L1
 JMP I CLR
BIG, 0





*400
WRITE, 0
 TAD (TAD NUM1)
 DCA L4
 TAD (TAD NUM2)
 DCA L5
 TAD (TAD NUM3)
 DCA L6
 TAD (TAD NUM4)
 DCA L7
 TAD (-7)
 DCA KNT2
 TAD (4046)
 DCA ADDRS
 TAD ADDRS
 DCA ADDR
L4, TAD NUM1
 ISZ .-1
 JMS ADDADD
L5, TAD NUM2
 ISZ .-1
 JMS ADDADD
L6, TAD NUM3
 ISZ .-1
 JMS ADDADD
L7, TAD NUM4
 ISZ .-1
 JMS ADDADD
 TAD ADDRS
 TAD (20)
 DCA ADDRS
 TAD ADDRS
 DCA ADDR
 ISZ KNT2
 JMP L4
 JMP I WRITE
KNT2, 0
ADDR, 0
ADDRS, 0
NUM1, 4343
3535
3735
3735
2135
3535
4343
NUM2, 4343
3533
3535
3535
3535
3533
4307
NUM3, 7703
7735
7735
7703
0135
7735
7703
NUM4, 3567
3567
5367
6767
6767
6777
6767
ADDADD,0
 DCA I ADDR
 ISZ ADDR
 JMP I ADDADD
 HLT
 FIELD 0
*0200
NXPROG, CLA IAC
 MQL
 TAD I (7746)
 MQA
 DCA I (7746)
 CIF 10
 JMS I (7700)
 10
 CIF 10
 JMS I (200)
 1
DEVNUM, DEVICE DTA0
 DEVHND+1
 JMP CHERR1
 TAD DEVNUM+1
 CIF 10
 JMS I (200)
 2
BLKNUM, CHNAME
 0
 JMP CHERR2
 TAD BLKNUM
 DCA BLKN2
 CIF 10
 JMS I (200)
 6
BLKN2, 0
CHNAME, FILENAME HELLO.SV
CHERR1, CIF 10
 JMS I (200)
 7
 3
CHERR2, CIF 10
 JMS (200)
 7
 4
 PAGE
DEVHND, 0 /DEV HNDLR/
$