START, CLA CLL
TLS
JMS AMG8E
MSG1
DCA T1
BAD, TAD T1
JMS EDIT
DCA I M2P2P
TAD EDTEM
DCA I M2P1P
JMS AMG8E
MSG2
KSF
JMP .-1
KCC
LAS
DCA T2
TAD T2
CIA
TAD T1
SNA CLA
JMP AGAIN
TAD T2
JMS EDIT
DCA I M3P2P
TAD EDTEM
DCA I M3P1P
JMS AMG8E
MSG3
JMP BAD
AGAIN, ISZ T1
JMP BAD
JMS AMG8E
MSG4
HLT
T1, 0
T2, 0
M2P1P, M2P1
M2P2P, M2P2
M3P1P, M3P1
M3P2P, M3P2
BSW, 0
CLL RTL
RTL
RTL
DCA BSWT
RAL
TAD BSWT
AND Z77
TAD BSWT
JMP I BSW
BSWT, 0
Z77, 77
AMG8E, 0
CLA CLL
TAD I AMG8E
DCA AMG8E1
ISZ AMG8E
TAD I AMG8E1
JMS BSW
JMS AMG8E2
TAD I AMG8E1
JMS AMG8E2
ISZ AMG8E1
JMP .-6
AMG8E2, 0
AND Z77
SNA 
JMP I AMG8E
DCA AMG8E3
TAD AMG8E3
TAD M43
SZA CLA
JMP .+3
JMS CRLF
JMP I AMG8E2
TAD AMG8E3
TAD M40
SPA CLA
TAD K100
TAD K200
TAD AMG8E3
JMS TYPE
JMP I AMG8E2
AMG8E1, 0
AMG8E3, 0
M40, -40
M43, -43
K100, 100
K200, 200
*20
TYPE, 0
TSF
JMP .-1
TLS
CLA
JMP I TYPE
CRLF, 0
CLA
TAD K215
JMS TYPE
TAD K212
JMS TYPE
JMP I CRLF
K215, 215
K212, 212
EDIT, 0
DCA EDTEM1
TAD EDTEM1
JMS I BSWP
JMS EDIT1
DCA EDTEM
TAD EDTEM1
JMS EDIT1
JMP I EDIT
EDIT1, 0
DCA EDTEM2
TAD EDTEM2
AND Z7
DCA EDTEM3
TAD EDTEM2
RTL
RAL
AND K700
TAD EDTEM3
TAD K6060
JMP I EDIT1
Z7, 7
K700, 700
K6060, 6060
EDTEM, 0
EDTEM1, 0
EDTEM2, 0
EDTEM3, 0
BSWP, BSW
*400
MSG1, 4320
420
7005
4023
2711
2403
1040
2205
0711
2324
0522
4024
0523
2456
4343
0
MSG2, 2014
0501
2305
4014
1701
0440
2322
4027
1124
1040
M2P1, 0
M2P2, 0
4024
1005
1640
0420
2205
2323
4042
342
5643
0
MSG3, 2322
4011
1604
1103
124
504
7240
M3P1, 0
M3P2, 0
5643
4300
MSG4, 4306
1123
1056
4343
4343
4343
4343
4343
4343
4343
0
$$$$$$$$$$$$$