-
Notifications
You must be signed in to change notification settings - Fork 82
/
start
102 lines (96 loc) · 1.12 KB
/
start
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
.PAGE 'START'
*=$D000
LD000 JSR OUTPUT
LDX #MSG6-MSGS
JSR LDFE1
JSR OUTPUT
LDA #0
STA L23
STA NOSYM
STA NOSYM+1
LD013 JSR FROM
BCS LD013
LDA CKSUM
BNE LD02A
LDA ADDR
STA STSAVE
LDA ADDR+1
STA STSAVE+1
JMP LD031
LD02A LDA STSAVE+1
LDX STSAVE
JSR WRAX
LD031 JSR LDFFA
LD034 JSR TO
BCS LD034
LDA CKSUM
BNE LD04B
LDA ADDR
STA ISYEND
LDA ADDR+1
STA ISYEND+1
JMP LD052
LD04B LDA ISYEND+1
LDX ISYEND
JSR WRAX
LD052 LDA #$E4
STA IFLAGS
JSR LDFE9
JSR WHEREI
LDX #$04
LD05E LDA HISTM,X
STA LA7,X
DEX
BPL LD05E
JSR OUTPUT
LDX #MSG8-MSGS
JSR LDFE1
JSR REDOUT
CMP #$4E
BNE LD07B
LDA IFLAGS
ORA #$10
STA IFLAGS
LD07B JSR OUTPUT
LDX #MSG10-MSGS
JSR LDFE1
JSR WHEREO
LDA OUTFLG
PHA
LDA #$20
STA OUTFLG
JSR OUTPUT
LDX #MSG9-MSGS
JSR LDFE1
JSR REDOUT
CMP #$59
BNE LD0B7
LDA IFLAGS
ORA #$08
STA IFLAGS
JSR OUTPUT
LDX #MSG11-MSGS
JSR LDFE1
JSR WHEREO
LDA OUTFLG
STA L87
JSR LDD02
LD0B7 PLA
STA OUTFLG
JSR OUTPUT
LDX #MSG4-MSGS
JSR LDFE1
LD0C3 JSR OUTPUT
JSR TOPNO
JSR OUTPUT
LDA #$00
LDX #$01
LD0D0 STA IPC,X
STA L44,X
STA L85,X
STA LERCT,X
STA L40,X
DEX
BPL LD0D0
JSR LDCB8
.END