blob: bbe04b518b4354992284556224eb82a54df8f6c8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
TERM ORIG 0 Card Loading Routine. Rough ugly first version.
START IN 80(16) Read from card reader.
TCHCK LDA 80 First check if it's a transfer card.
SUB TRNS
JANZ LC Transfer card if A is zero.
LDX 81(2:5) If here, it's a transfer card.
NUM 0
STA 81(2:5)
LD1 81(4:5)
JMP 0,1 # Jump to address specified in transfer card.
LC LDX 81(0:1) If here, it's an information card.
LDA ZERO Reset A
NUM 0
STA 81(0:1) Store no. of instructions.
LDA ZERO Reset A
LDX 81(2:5) Load dest. address of first instruction in character form.
NUM 0 Convert it to numeric form.
STA 81(2:5) Store dest. address of first instruction in numeric form.
J LD2 81(4:5) Load dest. address of current instruction to I2.
LD3 SADD(4:5) Load address of current instruction in charater form.
LDA 0,3 Load first part of current instruction in character form.
LDX 1,3 Load second part of current instruction in character form.
NUM 0
STA 0,2 Store current instruction in numeric form to dest. address.
LDA ZERO Reset A
ADD SADD Load address of current instruction in character form.
ADD TWO Increment it by 2.
STA SADD Store address of next instruction in charactor form.
LDA 81(4:5) Load dest. address of current instruction.
ADD ONE Increment by 1.
STA 81(4:5) Store dest. address of next instruction.
LDA 81(0:1) Load value 'no. of instructions'.
SUB ONE Decrement by 1.
STA 81(0:1) Store value 'no. of instructions' to go.
JANZ J If 'no. of instructions' not zero jump to J.
LDA ET
STA SADD Reset SADD to 82.
LDA ZERO
LDX ZERO
JMP START Read another card.
STOP HLT
SADD CON 82
ET CON 82
ZERO CON 0
ONE CON 1
TWO CON 2
TRNS ALF TRANS
END START
|
