********************************
*                              *
*          Applesoft           *
*                              *
* Applesoft is a copyrighted   *
* program of Apple Computer,   *
* Inc. and Microsoft, Inc.     *
*                              *
* This source listing is for   *
* use only by the rightful     *
* owner of the copy of         *
* Applesoft from which it was  *
* generated and may not be     *
* published or distributed to  *
* others, whether or not for   *
* commercial purposes.         *
*------------------------------*
*      Revision:  4/27/84      *
********************************

 DATE

Y = 1
N = 0

PRDO KBD "Print DO OFF areas (Y/N)"
 DO PRDO
 ELSE
 LSTD OFF
 FIN
NEWROMS KBD "Assemble new rom version (Y/N)"
 DO NEWROMS
APPLEC KBD "Assemble Apple //c version (Y/N)"
 ELSE
APPLEC = 0
 FIN
 DO APPLEC
 XC ;Enable 65C02 codes
 FIN
 TR ;3 bytes/line printout
 EXP OFF ;Do not print macro expansion

 ORG $D000

INCR MAC
 INC ]1
 BNE NI
 INC ]1+1
NI
 <<<

DECR MAC
 LDX ]1
 BNE ND
 DEC ]1+1
ND DEC ]1
 <<<

CMPR MAC
 LDA ]1
 CMP ]2
 LDA ]1+1
 SBC ]2+1
 <<<

MOV MAC
 LDA ]1
 STA ]2
 <<<

MOVD MAC
 MOV ]1;]2
 MOV ]1+1;]2+1
 <<<

TRX MAC
 LDX ]1
 STX ]2
 LDX ]1+1
 STX ]2+1
 <<<

TRAX MAC
 LDA ]1
 LDX ]1+1
 STA ]2
 STX ]2+1
 <<<

TRAY MAC
 LDA ]1
 LDY ]1+1
 STA ]2
 STY ]2+1
 <<<

TRXY MAC
 LDX ]1
 LDY ]1+1
 STX ]2
 STY ]2+1
 <<<

AD MAC
 LDA ]1
 ADC ]2
 STA ]3
 <<<

ADD MAC
 CLC
 AD ]1;]2;]3
 AD ]1+1;]2+1;]3+1
 <<<

SB MAC
 LDA ]1
 SBC ]2
 STA ]3
 <<<

SUB MAC
 SEC
 SB ]1;]2;]3
 SB ]1+1;]2+1;]3+1
 <<<

BUMP MAC
 ADC ]1
 STA ]1
 BCC BPD
 INC ]1+1
BPD
 <<<

PUSH MAC
 LDA ]1+1
 PHA
 LDA ]1
 PHA
 <<<

PULL MAC
 PLA
 STA ]1
 PLA
 STA ]1+1
 <<<

NEG MAC
 LDA ]1
 EOR #$FF
 STA ]1
 <<<

 PUT /APPLESOFT/APLSOFT.A
 PUT /APPLESOFT/APLSOFT.B
 PUT /APPLESOFT/APLSOFT.C
 PUT /APPLESOFT/APLSOFT.D