home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Antic Magazine 1983 June
/
Antic_Vol_2_No_3_June_1983.atr
/
autohead.asm
< prev
next >
Wrap
Assembly Source File
|
2021-02-19
|
797b
|
1 lines
1000 *=$4000¢1010 ;¢1020 MEMLO = $80¢1030 ;¢1040 PST .BYTE 0¢1050 .BYTE 0¢1060 .WORD $0700¢1070 .WORD $E474¢1080 LDA #$3C¢1090 STA $D302¢1100 LDA #$0A¢1110 STA $C9¢1120 LDY #$FF¢1130 STY $11¢1140 INY¢1150 STY $2C8¢1160 STY $244¢1170 MOVEHD LDA $07F2,Y¢1180 STA MEMLO,Y¢1190 STA MEMLO+2,Y¢1200 STA MEMLO+4,Y¢1210 INY¢1220 LDA $07F2,Y¢1230 CLC¢1240 ADC #$07¢1250 STA MEMLO,Y¢1260 STA MEMLO+2,Y¢1270 STA MEMLO+4,Y¢1280 INY¢1290 CPY #$0E¢1300 BCC MOVEHD¢1310 ;¢1320 LDX #$FF¢1330 TXS¢1340 LDA #$A9¢1350 PHA¢1360 LDA #$61¢1370 PHA¢1380 JMP $B74D¢1390 ;¢1400 .END¢