0000001:  ********************************
0000002:  *                              *
0000003:  *          Applesoft           *
0000004:  *                              *
0000005:  * Applesoft is a copyrighted   *
0000006:  * program of Apple Computer,   *
0000007:  * Inc. and Microsoft, Inc.     *
0000008:  *                              *
0000009:  * This source listing is for   *
0000010:  * use only by the rightful     *
0000011:  * owner of the copy of         *
0000012:  * Applesoft from which it was  *
0000013:  * generated and may not be     *
0000014:  * published or distributed to  *
0000015:  * others, whether or not for   *
0000016:  * commercial purposes.         *
0000017:  *------------------------------*
0000018:  *      Revision:  4/27/84      *
0000019:  ********************************
0000020:  
0000021:                       DATE
0000022:  
0000023:  Y                    =                    1
0000024:  N                    =                    0
0000025:  
0000026:  PRDO                 KBD                  "Print DO OFF areas (Y/N)"
0000027:                       DO                   PRDO
0000028:                       ELSE
0000029:                       LSTD                 OFF
0000030:                       FIN
0000031:  NEWROMS              KBD                  "Assemble new rom version (Y/N)"
0000032:                       DO                   NEWROMS
0000033:  APPLEC               KBD                  "Assemble Apple //c version (Y/N)"
0000034:                       ELSE
0000035:  APPLEC               =                    0
0000036:                       FIN
0000037:                       DO                   APPLEC
0000038:                       XC                                                                      ;Enable 65C02 codes
0000039:                       FIN
0000040:                       TR                                                                      ;3 bytes/line printout
0000041:                       EXP                  OFF                                                ;Do not print macro expansion
0000042:  
0000043:                       ORG                  $D000
0000044:  
0000045:  INCR                 MAC
0000046:                       INC                  ]1
0000047:                       BNE                  NI
0000048:                       INC                  ]1+1
0000049:  NI
0000050:                       <<<
0000051:  
0000052:  DECR                 MAC
0000053:                       LDX                  ]1
0000054:                       BNE                  ND
0000055:                       DEC                  ]1+1
0000056:  ND                   DEC                  ]1
0000057:                       <<<
0000058:  
0000059:  CMPR                 MAC
0000060:                       LDA                  ]1
0000061:                       CMP                  ]2
0000062:                       LDA                  ]1+1
0000063:                       SBC                  ]2+1
0000064:                       <<<
0000065:  
0000066:  MOV                  MAC
0000067:                       LDA                  ]1
0000068:                       STA                  ]2
0000069:                       <<<
0000070:  
0000071:  MOVD                 MAC
0000072:                       MOV                  ]1;]2
0000073:                       MOV                  ]1+1;]2+1
0000074:                       <<<
0000075:  
0000076:  TRX                  MAC
0000077:                       LDX                  ]1
0000078:                       STX                  ]2
0000079:                       LDX                  ]1+1
0000080:                       STX                  ]2+1
0000081:                       <<<
0000082:  
0000083:  TRAX                 MAC
0000084:                       LDA                  ]1
0000085:                       LDX                  ]1+1
0000086:                       STA                  ]2
0000087:                       STX                  ]2+1
0000088:                       <<<
0000089:  
0000090:  TRAY                 MAC
0000091:                       LDA                  ]1
0000092:                       LDY                  ]1+1
0000093:                       STA                  ]2
0000094:                       STY                  ]2+1
0000095:                       <<<
0000096:  
0000097:  TRXY                 MAC
0000098:                       LDX                  ]1
0000099:                       LDY                  ]1+1
0000100:                       STX                  ]2
0000101:                       STY                  ]2+1
0000102:                       <<<
0000103:  
0000104:  AD                   MAC
0000105:                       LDA                  ]1
0000106:                       ADC                  ]2
0000107:                       STA                  ]3
0000108:                       <<<
0000109:  
0000110:  ADD                  MAC
0000111:                       CLC
0000112:                       AD                   ]1;]2;]3
0000113:                       AD                   ]1+1;]2+1;]3+1
0000114:                       <<<
0000115:  
0000116:  SB                   MAC
0000117:                       LDA                  ]1
0000118:                       SBC                  ]2
0000119:                       STA                  ]3
0000120:                       <<<
0000121:  
0000122:  SUB                  MAC
0000123:                       SEC
0000124:                       SB                   ]1;]2;]3
0000125:                       SB                   ]1+1;]2+1;]3+1
0000126:                       <<<
0000127:  
0000128:  BUMP                 MAC
0000129:                       ADC                  ]1
0000130:                       STA                  ]1
0000131:                       BCC                  BPD
0000132:                       INC                  ]1+1
0000133:  BPD
0000134:                       <<<
0000135:  
0000136:  PUSH                 MAC
0000137:                       LDA                  ]1+1
0000138:                       PHA
0000139:                       LDA                  ]1
0000140:                       PHA
0000141:                       <<<
0000142:  
0000143:  PULL                 MAC
0000144:                       PLA
0000145:                       STA                  ]1
0000146:                       PLA
0000147:                       STA                  ]1+1
0000148:                       <<<
0000149:  
0000150:  NEG                  MAC
0000151:                       LDA                  ]1
0000152:                       EOR                  #$FF
0000153:                       STA                  ]1
0000154:                       <<<
0000155:  
0000156:                       PUT                  /APPLESOFT/APLSOFT.A
0000157:                       PUT                  /APPLESOFT/APLSOFT.B
0000158:                       PUT                  /APPLESOFT/APLSOFT.C
0000159:                       PUT                  /APPLESOFT/APLSOFT.D