mirror of
https://github.com/kennethreitz/elizagen.org.git
synced 2026-06-21 15:10:57 +00:00
Rupert Lane
55 lines
4.6 KiB
Plaintext
55 lines
4.6 KiB
Plaintext
ENTRY NEWTOP 005420
|
|
ENTRY NEWBOT 005430
|
|
NEWTOP CLA* 2,4 005440
|
|
STA *+1 005450
|
|
CLA ** 005460
|
|
STA AA 005470
|
|
STA AB 005480
|
|
TRA START 005490
|
|
NEWBOT CLA* 2,4 005500
|
|
STA AA 005510
|
|
STA AB 005520
|
|
START SXA SV1,1 005530
|
|
SXA SV4,4 005540
|
|
CLA* 1,4 005550
|
|
STO DATUM 005560
|
|
STA DA 005570
|
|
TSX $NUCELL,4 005580
|
|
FXH * 005590
|
|
STA *+1 005600
|
|
AXC **,1 005610
|
|
STA NEW 005620
|
|
AA CLA ** 005630
|
|
ANA =077777000000 005640
|
|
STD 0,1 005650
|
|
ARS 18 005660
|
|
STA LL 005670
|
|
CLA AA 005680
|
|
STA 0,1 005690
|
|
CLA NEW 005700
|
|
LL STA ** 005710
|
|
ALS 18 005720
|
|
AB STD ** 005730
|
|
TSX $NAMTST,4 005740
|
|
TXH DATUM 005750
|
|
TNZ DONW 005760
|
|
CLA =0100000 005770
|
|
STT 0,1 005780
|
|
CLA DZ 005790
|
|
ADD =1 005800
|
|
STA *+2 005810
|
|
STA *+3 005820
|
|
CLA ** 005830
|
|
ADD =1 005840
|
|
STO ** 005850
|
|
DONE CLA DATUM 005860
|
|
STO 1,1 005870
|
|
CLA NEW 005880
|
|
SV1 AXT **,1 005890
|
|
SV4 AXT **,4 005900
|
|
TRA 3,4 005910
|
|
DATUM PZE 005920
|
|
NEW PZE 005930
|
|
DA PZE 005940
|
|
END 005950
|