reorganize HDISK
This commit is contained in:
parent
9e170b2d51
commit
d34abe6bf8
|
@ -0,0 +1,15 @@
|
||||||
|
ATARI BUTTONS
|
||||||
|
|
||||||
|
F1: CONFIG PANEL (ESC, Exit)
|
||||||
|
F2: START
|
||||||
|
F3: SELECT
|
||||||
|
F4: OPTION
|
||||||
|
F5: WARM RESET (Preserves Ram)
|
||||||
|
// SHIFT-F5 = COLD RESET
|
||||||
|
F6: ?? UNKNOWN ??
|
||||||
|
F7: SCROLL SCREEN BUFFER (down)
|
||||||
|
F8: <DEBUG MONITOR MODE>
|
||||||
|
F9: CLEAN SHUTDOWN EMULATOR
|
||||||
|
F0: SCREENSHOT
|
||||||
|
// SHIFT-F0 = INTERLACED SCREENSHOT
|
||||||
|
|
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
FDISK/test.atr
BIN
FDISK/test.atr
Binary file not shown.
|
@ -0,0 +1,6 @@
|
||||||
|
10 REM THIS PROGRAM SAYS HELLO TO A SPECIFIC PERSON
|
||||||
|
20 REM ********************************************
|
||||||
|
30 PRINT "Hello, there. What is your name?"
|
||||||
|
40 INPUT NAME$
|
||||||
|
50 PRINT "How very nice to meet you, ";NAME$
|
||||||
|
60 PRINT "Goodbye, now!"
|
|
@ -0,0 +1,7 @@
|
||||||
|
10 REM THIS PROGRAM SAYS HELLO TO A SPECIFIC PERSON
|
||||||
|
20 REM ********************************************
|
||||||
|
30 PRINT "Hello, there. What is your name?"
|
||||||
|
35 DIM NAME$(50)
|
||||||
|
40 INPUT NAME$
|
||||||
|
50 PRINT "How very nice to meet you, ";NAME$
|
||||||
|
60 PRINT "Goodbye, now!"
|
|
@ -10,13 +10,11 @@
|
||||||
399 REM GET LOW AND HIGH MEMORY BOUNDS
|
399 REM GET LOW AND HIGH MEMORY BOUNDS
|
||||||
400 L = PEEK(15) * N256 : H = PEEK(742) * N256 : IF PEEK(14)< >NO THEN L = L + N256
|
400 L = PEEK(15) * N256 : H = PEEK(742) * N256 : IF PEEK(14)< >NO THEN L = L + N256
|
||||||
499 REM DISPLAY BOUNDS AND GET REPLY
|
499 REM DISPLAY BOUNDS AND GET REPLY
|
||||||
500 ? CHR$(125); S$; "ATARI MEMORY TEST PROGRAM"; CHR$(155); S$; "MEMORY
|
500 ? CHR$(125); S$; "ATARI MEMORY TEST PROGRAM"; CHR$(155); S$; "MEMORY BOUNDS ARE"
|
||||||
BOUNDS ARE"
|
|
||||||
600 ? S$; "LOW = "; L : ? S$; "HIGH = "; H
|
600 ? S$; "LOW = "; L : ? S$; "HIGH = "; H
|
||||||
700 ? S$; "GIVE TEST BOUNDS"; CHR$(155)
|
700 ? S$; "GIVE TEST BOUNDS"; CHR$(155)
|
||||||
800 TRAP 800 : ? S$; "LOW = "; : INPUT LOW : IF LOW < L OR LOW > H THEN 800
|
800 TRAP 800 : ? S$; "LOW = "; : INPUT LOW : IF LOW < L OR LOW > H THEN 800
|
||||||
900 TRAP 900 : ? S$; "HIGH = "; : INPUT HIGH : IF HIGH > H OR HIGH < L OR
|
900 TRAP 900 : ? S$; "HIGH = "; : INPUT HIGH : IF HIGH > H OR HIGH < L OR HIGH-LOW < N256 THEN 900
|
||||||
HIGH-LOW < N256 THEN 900
|
|
||||||
999 REM SETUP BOUNDS FOR THE MLP
|
999 REM SETUP BOUNDS FOR THE MLP
|
||||||
1000 POKE 205, NO : POKE 206, INT(HIGH/N256)
|
1000 POKE 205, NO : POKE 206, INT(HIGH/N256)
|
||||||
1100 TRAP 32767 : POKE 203, NO : POKE 204, INT(LOW/N256)
|
1100 TRAP 32767 : POKE 203, NO : POKE 204, INT(LOW/N256)
|
||||||
|
@ -26,8 +24,7 @@
|
||||||
1399 REM CHECK RETURN FROM MLP
|
1399 REM CHECK RETURN FROM MLP
|
||||||
1400 IF PEEK(208) = NO THEN 2200
|
1400 IF PEEK(208) = NO THEN 2200
|
||||||
1499 REM SHOW MEMORY ERROR ON SCREEN
|
1499 REM SHOW MEMORY ERROR ON SCREEN
|
||||||
1500 ? " ERROR AT "; (PEEK(203) + PEEK(204) * N256); " EXP =
|
1500 ? " ERROR AT "; (PEEK(203) + PEEK(204) * N256); " EXP = "; PEEK(207); " ACT = "; PEEK(209)
|
||||||
"; PEEK(207); " ACT = "; PEEK(209)
|
|
||||||
1600 SOUND NO, PASS, 6, 8 : FOR I = N1 TO 5 : NEXT I : SOUND NO, NO, NO, NO
|
1600 SOUND NO, PASS, 6, 8 : FOR I = N1 TO 5 : NEXT I : SOUND NO, NO, NO, NO
|
||||||
1699 REM SETUP NEXT BYTE TO TEST SO WE DONT STOP WITH FIRST ERROR
|
1699 REM SETUP NEXT BYTE TO TEST SO WE DONT STOP WITH FIRST ERROR
|
||||||
1700 IF PEEK(203) = N255 THEN POKE 204, (PEEK(204) + N1) : POKE 203, NO : GOTO 1900
|
1700 IF PEEK(203) = N255 THEN POKE 204, (PEEK(204) + N1) : POKE 203, NO : GOTO 1900
|
||||||
|
@ -51,7 +48,5 @@
|
||||||
2800 GOTO 1100
|
2800 GOTO 1100
|
||||||
2899 REM READ IN MACHINE LANGUAGE PROGRAM
|
2899 REM READ IN MACHINE LANGUAGE PROGRAM
|
||||||
2900 FOR L = 1536 TO 1576 : READ H : POKE L, H : NEXT L : RETURN
|
2900 FOR L = 1536 TO 1576 : READ H : POKE L, H : NEXT L : RETURN
|
||||||
3000 DATA 104, 169, 0, 160, 0, 24, 145, 203, 209, 203, 208, 18, 105,
|
3000 DATA 104, 169, 0, 160, 0, 24, 145, 203, 209, 203, 208, 18, 105, 1, 208, 246, 200, 208, 242, 230, 204, 166, 204, 228, 206
|
||||||
1, 208, 246, 200, 208, 242, 230, 204, 166, 204, 228, 206
|
3100 DATA 208, 234, 133, 208, 96, 133, 207, 177, 203, 133, 209, 169, 1, 133, 208, 96
|
||||||
3100 DATA 208, 234, 133, 208, 96, 133, 207, 177, 203, 133, 209, 169,
|
|
||||||
1, 133, 208, 96
|
|
|
@ -10,13 +10,11 @@
|
||||||
399 REM GET LOW AND HIGH MEMORY BOUNDS
|
399 REM GET LOW AND HIGH MEMORY BOUNDS
|
||||||
400 L = PEEK(15) * N256 : H = PEEK(742) * N256 : IF PEEK(14)< >NO THEN L = L + N256
|
400 L = PEEK(15) * N256 : H = PEEK(742) * N256 : IF PEEK(14)< >NO THEN L = L + N256
|
||||||
499 REM DISPLAY BOUNDS AND GET REPLY
|
499 REM DISPLAY BOUNDS AND GET REPLY
|
||||||
500 ? CHR$(125); S$; "ATARI MEMORY TEST PROGRAM"; CHR$(155); S$; "MEMORY
|
500 ? CHR$(125); S$; "ATARI MEMORY TEST PROGRAM"; CHR$(155); S$; "MEMORY BOUNDS ARE"
|
||||||
BOUNDS ARE"
|
|
||||||
600 ? S$; "LOW = "; L : ? S$; "HIGH = "; H
|
600 ? S$; "LOW = "; L : ? S$; "HIGH = "; H
|
||||||
700 ? S$; "GIVE TEST BOUNDS"; CHR$(155)
|
700 ? S$; "GIVE TEST BOUNDS"; CHR$(155)
|
||||||
800 TRAP 800 : ? S$; "LOW = "; : INPUT LOW : IF LOW < L OR LOW > H THEN 800
|
800 TRAP 800 : ? S$; "LOW = "; : INPUT LOW : IF LOW < L OR LOW > H THEN 800
|
||||||
900 TRAP 900 : ? S$; "HIGH = "; : INPUT HIGH : IF HIGH > H OR HIGH < L OR
|
900 TRAP 900 : ? S$; "HIGH = "; : INPUT HIGH : IF HIGH > H OR HIGH < L OR HIGH-LOW < N256 THEN 900
|
||||||
HIGH-LOW < N256 THEN 900
|
|
||||||
999 REM SETUP BOUNDS FOR THE MLP
|
999 REM SETUP BOUNDS FOR THE MLP
|
||||||
1000 POKE 205, NO : POKE 206, INT(HIGH/N256)
|
1000 POKE 205, NO : POKE 206, INT(HIGH/N256)
|
||||||
1100 TRAP 32767 : POKE 203, NO : POKE 204, INT(LOW/N256)
|
1100 TRAP 32767 : POKE 203, NO : POKE 204, INT(LOW/N256)
|
||||||
|
@ -26,8 +24,7 @@
|
||||||
1399 REM CHECK RETURN FROM MLP
|
1399 REM CHECK RETURN FROM MLP
|
||||||
1400 IF PEEK(208) = NO THEN 2200
|
1400 IF PEEK(208) = NO THEN 2200
|
||||||
1499 REM SHOW MEMORY ERROR ON SCREEN
|
1499 REM SHOW MEMORY ERROR ON SCREEN
|
||||||
1500 ? " ERROR AT "; (PEEK(203) + PEEK(204) * N256); " EXP =
|
1500 ? " ERROR AT "; (PEEK(203) + PEEK(204) * N256); " EXP = "; PEEK(207); " ACT = "; PEEK(209)
|
||||||
"; PEEK(207); " ACT = "; PEEK(209)
|
|
||||||
1600 SOUND NO, PASS, 6, 8 : FOR I = N1 TO 5 : NEXT I : SOUND NO, NO, NO, NO
|
1600 SOUND NO, PASS, 6, 8 : FOR I = N1 TO 5 : NEXT I : SOUND NO, NO, NO, NO
|
||||||
1699 REM SETUP NEXT BYTE TO TEST SO WE DONT STOP WITH FIRST ERROR
|
1699 REM SETUP NEXT BYTE TO TEST SO WE DONT STOP WITH FIRST ERROR
|
||||||
1700 IF PEEK(203) = N255 THEN POKE 204, (PEEK(204) + N1) : POKE 203, NO : GOTO 1900
|
1700 IF PEEK(203) = N255 THEN POKE 204, (PEEK(204) + N1) : POKE 203, NO : GOTO 1900
|
||||||
|
@ -51,7 +48,5 @@
|
||||||
2800 GOTO 1100
|
2800 GOTO 1100
|
||||||
2899 REM READ IN MACHINE LANGUAGE PROGRAM
|
2899 REM READ IN MACHINE LANGUAGE PROGRAM
|
||||||
2900 FOR L = 1536 TO 1576 : READ H : POKE L, H : NEXT L : RETURN
|
2900 FOR L = 1536 TO 1576 : READ H : POKE L, H : NEXT L : RETURN
|
||||||
3000 DATA 104, 169, 0, 160, 0, 24, 145, 203, 209, 203, 208, 18, 105,
|
3000 DATA 104, 169, 0, 160, 0, 24, 145, 203, 209, 203, 208, 18, 105, 1, 208, 246, 200, 208, 242, 230, 204, 166, 204, 228, 206
|
||||||
1, 208, 246, 200, 208, 242, 230, 204, 166, 204, 228, 206
|
3100 DATA 208, 234, 133, 208, 96, 133, 207, 177, 203, 133, 209, 169, 1, 133, 208, 96
|
||||||
3100 DATA 208, 234, 133, 208, 96, 133, 207, 177, 203, 133, 209, 169,
|
|
||||||
1, 133, 208, 96
|
|
|
@ -0,0 +1,5 @@
|
||||||
|
10 REM *** A VERY SIMPLE PROGRAM ***
|
||||||
|
20 DIM A$(7)
|
||||||
|
20 DIM B$(7)
|
||||||
|
30 DIM C$(7)
|
||||||
|
40 A$=""
|
Binary file not shown.
|
@ -0,0 +1,12 @@
|
||||||
|
5 REM *** SIMPLE PROGRAM ***
|
||||||
|
10 DIM A$(7)
|
||||||
|
12 DIM B$(7)
|
||||||
|
14 DIM C$(7)
|
||||||
|
16 DIM D$(25)
|
||||||
|
20 A$=""
|
||||||
|
30 B$=""
|
||||||
|
40 C$=""
|
||||||
|
45 D$="Microsoft Windows(tm)"
|
||||||
|
60 PRINT A$
|
||||||
|
70 PRINT B$;D$
|
||||||
|
80 PRINT C$
|
Binary file not shown.
After Width: | Height: | Size: 3.1 KiB |
Loading…
Reference in New Issue