Apple-2-HW/Apple2-IO-RPi
2
0
Fork 1
mirror of https://github.com/tjboldt/Apple2-IO-RPi.git synced 2025-02-09 02:30:41 +00:00
Code Issues Projects Releases Wiki Activity

Add basic source from drive image

Browse Source
This commit is contained in:
Terence Boldt 2021-06-29 20:25:46 -04:00
parent 9fddb83c94
commit 0d73855663
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
Apple2/Update.Firmware.bas
View File

@ -1,26 +1,26 @@
10 HOME 10 HOME
100 PRINT CHR$ (4)"BLOAD AT28C64B.BIN,A$2000" 100 PRINT CHR$ (4)"BLOAD AT28C64B.BIN,A$2000"
200 PRINT "Program the firmare in slot #" 200 PRINT "Program the firmare in slot #"
300 INPUT SL 300 INPUT SL
400 FW = 8192 + 256 * SL: REM Firmware source 400 FW = 8192 + 256 * SL: REM Firmware source
500 PS = 49287 + SL * 16: REM Firmware page selection 500 PS = 49287 + SL * 16: REM Firmware page selection
600 EP = 49152 + SL * 256: REM EPROM location 600 EP = 49152 + SL * 256: REM EPROM location
900 HOME 900 HOME
1000 FOR PG = 0 TO 3 1000 FOR PG = 0 TO 3
1004 PRINT : PRINT 1004 PRINT : PRINT
1005 PRINT "Writing page "PG" to slot "SL 1005 PRINT "Writing page "PG" to slot "SL
1006 PRINT "_______________________________________" 1006 PRINT "_______________________________________"
1007 PRINT "_______________________________________"; 1007 PRINT "_______________________________________";
1008 HTAB 1 1008 HTAB 1
1010 POKE PS,PG * 16 + 15: REM Set firmware page 1010 POKE PS,PG * 16 + 15: REM Set firmware page
1020 FOR X = 0 TO 255 1020 FOR X = 0 TO 255
1030 A = PEEK (FW + PG * 2048 + X) 1030 A = PEEK (FW + PG * 2048 + X)
1040 POKE EP + X,A 1040 POKE EP + X,A
1041 B = PEEK (EP + X) 1041 B = PEEK (EP + X)
1042 IF (B < > A) THEN GOTO 1041 1042 IF (B < > A) THEN GOTO 1041
1045 HTAB (X / 256) * 39 + 1 1045 HTAB (X / 256) * 39 + 1
1046 INVERSE : PRINT " ";: NORMAL 1046 INVERSE : PRINT " ";: NORMAL
1050 NEXT X 1050 NEXT X
1060 NEXT PG 1060 NEXT PG
1900 PRINT 1900 PRINT
2000 PRINT "Firmware Update Complete" 2000 PRINT "Firmware Update Complete"