/*****READ ROUTINE FOR ROTATRON*****E.ENGQUIST 1/15/74*****/
FIELD 0
MQL=7421
MQA=7501
*0020
X0,0
Y0,0
LEN,0
CTR,0
TEMP,0
CHAR,0
PNTR,0
PPNTR1,733
PPNTR2,203
*0200
 TLS
 KRB
 TSF
 JMP .-1
 TLS
 DCA CHAR
 TAD CHAR
 TAD (-203)
 SZA CLA CLL
 JMP CHNCHK
 6152
 JMP I (7600)
IMPR1,TAD CHAR
 TAD (-301)
 SZA CLA
 JMP IMPR2
 TAD (-10)
 DCA CTR
 TAD (124)
 DCA PNTR
 CDF 10
 TAD I PNTR
 CIA
 DCA I PNTR
 ISZ PNTR
 ISZ CTR
 JMP .-5
 CDF CIF 10
 JMP 0600
GPARMS, CLL CLA
 TLS
 TAD (X0-1)
 DCA 12
 TAD (-3)
 DCA CTR
GPARM, DCA TEMP
GCHAR, KSF
 JMP .-1
 KRB
 TSF
 JMP .-1
 TLS
 DCA CHAR
 TAD CHAR
 TAD (-215)
 SZA CLA
 JMP GCHARX
 TAD (212)
 TSF
 JMP .-1
 TLS
 CLL CLA
GCHARX, TAD CHAR
 TAD (-272)
 SMA
 JMP DELIM
 TAD (12)
 SPA
 JMP DELIM
 DCA CHAR
 TAD TEMP
 CLL RTL
 TAD TEMP
 CLL RAL
 TAD CHAR
 JMP GPARM
DELIM, CLL CLA
 TAD TEMP
GPARMX, DCA I 12
 ISZ CTR
 JMP GPARM
 TAD X0
 CDF 10
 DCA I AA
 CDF 00
 TAD Y0
 CDF 10
 DCA I XVAL
 CDF 00
 TAD LEN
 CDF 10
 DCA I YVAL
 CDF CIF 10
 JMP 0600
AA,0100
XVAL,0101
YVAL,0102
*0400
IMPR2, TAD CHAR
 TAD (-302)
 SZA CLA
 JMP IMPR3
 TAD (7000)
 CDF 10
 DCA I PPNTR1
 CDF CIF 10
 JMP 0600
IMPR3, TAD CHAR
 TAD (-303)
 SZA CLA
 JMP IMPR4
 TAD (4772)
 CDF 10
 DCA I PPNTR1
 CDF CIF 10
 JMP 0600
IMPR4, TAD CHAR
 TAD (-304)
 SZA CLA
 JMP IMPR5
 TAD (7000)
 CDF 10
 DCA I PPNTR2
 CDF CIF 10
 JMP 0600
IMPR5, TAD CHAR
 TAD (-305)
 SZA CLA
 JMP GPARMS
 TAD (4262)
 CDF 10
 DCA I PPNTR2
 CDF CIF 10
 JMP 0600
CHNCHK, TAD CHAR
 TAD (-216)
 SZA CLA
 JMP IMPR1
 6152
 IAC
 MQL
 TAD I (7746)
 MQA
 DCA I (7746)
 CIF 10
 JMS I (7700)
 10
 CIF 10
 JMS I (200)
 1
DEVNUM, DEVICE DTA0
 0601
 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 GOODBY.SV
CHERR1, CIF 10
 JMS I (200)
 7
 3
CHERR2, CIF 10
 JMS I (200)
 7
 4
EXIT, CDF CIF 00
JMP I (7600)
$