mirror of
https://github.com/kenrector/sds-kit.git
synced 2026-01-11 23:43:17 +00:00
30 lines
3.0 KiB
Plaintext
30 lines
3.0 KiB
Plaintext
|
|
1
|
|
2 * \057 C
|
|
00000 3 $CSI RES 0
|
|
00000000 4 S9300 EQU 0
|
|
00000000 5 X0 EQU S9300
|
|
00000002 6 X2 EQU 2-S9300
|
|
00000000 7 CH EQU 0
|
|
00000001 8 U EQU 1
|
|
00000 9 $INPUT RES 0
|
|
00000 0 00 00000 10 CARD PZE 0
|
|
00001 0 40 12006 11 CKSK CRT CH,U
|
|
00002 0 01 00001 12 BRU CKSK
|
|
00003 0 02 02606 13 RCD CH,U,4
|
|
00004 0 71 00017 14 LDX =00200000-20,X0
|
|
* 00005 2 32 00000 15 CWIM WIM CBFE,X2 ((CBFE,2):=(W)
|
|
00006 0 40 21000 16 BRTW
|
|
00007 0 41 00005 17 BRX CWIM,X0
|
|
00010 0 40 20010 18 BETW
|
|
00011 0 01 00013 19 BRU CSKSE
|
|
00012 0 51 00000 20 BRR CARD EXIT**
|
|
00013 0 00 00000 21 CSKSE HLT HALT ON MIS-READ
|
|
00014 0 01 00001 22 BRU CKSK
|
|
23 *
|
|
24 *
|
|
00015 0 00 00000 25 $ENDSI PZE 0
|
|
00016 0 51 00015 26 BRR ENDSI
|
|
27 END
|
|
00017 00177754
|
|
00005 CBFE |