Files

47 lines
3.9 KiB
Plaintext

ENTRY NAMTST 005970
NAMTST SXA SV4,4 005980
CLA* 1,4 005990
STO CAND 006000
TSX $GETMEM,4 006010
TXH * 006020
STO LIMIT 006030
CLA CAND 006040
STA LINK 006050
ARS 18 006060
CAS LINK 006070
TRA NO 006080
TRA *+2 006090
TRA NO 006100
CLA LINK 006110
CAS LIMIT 006120
TRA NO 006130
TRA *+1 006140
CLA* LINK 006150
STO HEAD 006160
ANA =0700000 006170
CAS =0200000 006180
TRA NO 006190
TRA *+2 006200
TRA NO 006210
CLA HEAD 006220
ARS 18 006230
CAS LIMIT 006240
TRA NO 006250
TRA *+1 006260
STA *+1 006270
CLA ** 006280
ANA -077777 006290
CAS LINK 006300
TRA NO 006310
TRA YES 006320
NO CLA =1 006330
TRA *+2 006340
YES CLA =0 006350
SV4 AXI **,4 006360
TRA 2,4 006370
CAND PZE 006380
HEAD PZE 006390
LINK PZE 006400
LIMIT PZE 006410
END 006420