Apple II | TOPIC -- Apple II -- Red Book Mini-Assembler listing

+------------------------------------------------------------------------
| TOPIC -- Apple II -- Red Book Mini-Assembler listing
+------------------------------------------------------------------------
1 ***********************
2 * *
3 * APPLE-II *
4 * MINI-ASSEMBLER *
5 * *
6 * COPYRIGHT 1977 BY *
7 * APPLE COMPUTER INC. *
8 * *
9 * ALL RIGHTS RESERVED *
10 * *
11 * S. WOZNIAK *
12 * A. BAUM *
13 ***********************
14 ; TITLE "APPLE-II MINI-ASSEMBLER"
15 FORMAT EQU $2E
16 LENGTH EQU $2F
17 MODE EQU $31
18 PROMPT EQU $33
19 YSAV EQU $34
20 L EQU $35
21 PCL EQU $3A
22 PCH EQU $3B
23 A1H EQU $3D
24 A2L EQU $3E
25 A2H EQU $3F
26 A4L EQU $42
27 A4H EQU $43
28 FMT EQU $44
29 IN EQU $200
30 INSDS2 EQU $F88E
31 INSTDSP EQU $F8D0
32 PRBL2 EQU $F94A
33 PCADJ EQU $F953
34 CHAR1 EQU $F9B4
35 CHAR2 EQU $F9BA
36 MNEML EQU $F9C0
37 MNEMR EQU $FA00
38 CURSUP EQU $FC1A
39 GETLNZ EQU $FD67
40 COUT EQU $FDED
41 BL1 EQU $FE00
42 A1PCLP EQU $FE78
43 BELL EQU $FF3A
44 GETNUM EQU $FFA7
45 TOSUB EQU $FFBE
46 ZMODE EQU $FFC7
47 CHRTBL EQU $FFCC
48 ORG $F500
F500: E9 81 49 REL SBC #$81 ;IS FMT COMPATIBLE
F502: 4A 50 LSR ;WITH RELATIVE MODE?
F503: D0 14 51 BNE ERR3 ; NO.
F505: A4 3F 52 LDY A2H
F507: A6 3E 53 LDX A2L ;DOUBLE DECREMENT
F509: D0 01 54 BNE REL2
F50B: 88 55 DEY
F50C: CA 56 REL2 DEX