home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Antic Magazine 1983 June
/
Antic_Vol_2_No_3_June_1983.atr
/
autoboot.asm
next >
Wrap
Assembly Source File
|
2021-02-19
|
2KB
|
1 lines
1000 *= $0600¢1010 ;¢1020 PST = $4000¢1030 ;¢1040 ; SAVE TO BOOT DISK¢1050 ;¢1060 FORMAT LDA #1¢1070 STA $301¢1080 LDA #0¢1090 STA $304¢1100 LDA #4¢1110 STA $305¢1120 LDA #$21¢1130 STA $302¢1140 JSR $E453¢1150 ;¢1160 DMPDSK JSR CTBOOT¢1170 LDA #1¢1180 STA $301¢1190 STA $30A¢1200 LDA #$57¢1210 STA $302¢1220 LDA #0¢1230 STA $304¢1240 LDA #PST/256¢1250 STA $305¢1260 LDA #0¢1270 STA $30B¢1280 JMPDSK JSR $E453¢1290 INC $30A¢1300 CLC¢1310 LDA $304¢1320 ADC #$80¢1330 STA $304¢1340 LDA $305¢1350 ADC #0¢1360 STA $305¢1370 DEC NUMSEC¢1380 BNE JMPDSK¢1390 ;¢1400 NUMSEC .BYTE 0¢1410 ;¢1420 ; GET SECTOR COUNT¢1430 ;¢1440 CTBOOT LDA PST+$FF¢1450 STA PST+1¢1460 LDA PST+$FE¢1470 ROL A¢1480 ROL PST+1¢1490 INC PST+1¢1500 LDA PST+1¢1510 STA NUMSEC¢1520 RTS¢1530 ;¢1540 *= $670¢1550 ;¢1560 ; DEVICE NAME¢1570 ;¢1580 DEVCAS .BYTE "C:",$9B¢1590 ;¢1600 *= $680¢1610 ;¢1620 ; DUMP TO CASSETTE¢1630 ;¢1640 DMPCAS JSR CTBOOT¢1650 LDA #$00¢1660 PHA¢1670 LDA #$0B¢1680 PHA¢1690 GETFIL AND #$0C¢1700 PHA¢1710 LDA #$80¢1720 LDX DEVCAS¢1730 CPX #$43¢1740 BEQ *+4¢1750 LDA #$00¢1760 PHA¢1770 LDX #$30¢1780 LDA #$03¢1790 STA $342,X¢1800 LDA #DEVCAS&$FF¢1810 STA $344,X¢1820 LDA #DEVCAS/256¢1830 STA $345,X¢1840 PLA¢1850 STA $34B,X¢1860 PLA¢1870 STA $34A,X¢1880 JSR $E456¢1890 PLA¢1900 STA $342,X¢1910 PLA¢1920 STA $344,X¢1930 LDA #PST/256¢1940 STA $345,X¢1950 LDA #0¢1960 STA $348,X¢1970 LDA NUMSEC¢1980 STA $349,X¢1990 LSR $349,X¢2000 ROR $348,X¢2010 JSR $E456¢2020 LDA #$0C¢2030 STA $342,X¢2040 JSR $E456¢2050 BRK¢2060 ;¢2070 *= $6E0¢2080 ;¢2090 ; LOAD FILE¢2100 ;¢2110 LOAFIL LDA $2E6¢2120 CLC¢2130 SBC #PST/256¢2140 STA NUMSEC¢2150 ASL NUMSEC¢2160 LDA #$F2¢2170 PHA¢2180 LDA #$07¢2190 PHA¢2200 JMP GETFIL¢2210 ;¢2220 .END¢
