mirror of
https://github.com/kennethreitz/elizagen.org.git
synced 2026-06-21 07:00:58 +00:00
Rupert Lane
30 lines
2.5 KiB
Plaintext
30 lines
2.5 KiB
Plaintext
ENTRY SEQRDR 004590
|
|
ENTRY SEQLR 004600
|
|
ENTRY SEQLL 004610
|
|
SEQRDR CLA* 1,4 004620
|
|
STA *+1 004630
|
|
CLA ** 004640
|
|
TRA 2,4 004650
|
|
SEQLR CLA* 1,4 004660
|
|
STA LINK 004670
|
|
TRA START 004680
|
|
SEQLL CLA* 1,4 004690
|
|
ARS 18 004700
|
|
STA LINK 004710
|
|
START SXA SAVE,1 004720
|
|
LLINK AXC **,1 004730
|
|
CLA 3,4 004740
|
|
STA FLAG 004750
|
|
CLA 1,4 004760
|
|
STA *+2 004770
|
|
CLA 0,1 004780
|
|
STO ** 004790
|
|
ANA =0700000 004800
|
|
ARS 15 004810
|
|
SUB =1 004820
|
|
FLAG STO ** 004830
|
|
CLA 1,1 004840
|
|
SAVE AXT **,1 004850
|
|
TRA 3,4 004860
|
|
END 004870
|