Added OS part of public API

Author: Cheveron

ChloeVM.app/Contents/Resources/chloehd/AUTOEXEC.ASC

@@ -4,23 +4,24 @@
  40 print
  50 print "Choose from the following options:"
  60 print
- 70 print "Animation demos:        A) BOING ","B) JUGGLER","C) KAYAHARA"''
- 80 print "DMA demos:              D) AARDMAN","E) BADAPPLE","F) TAKEONME"''
- 90 print "Emulator:               G) TC2048"''
-100 print "Grahpics demos:         H) SCRSHOW","I) VDPTEST"''
-110 print "Music demos:            J) LASTV8","K) SKYFALL"''
+ 70 print "Animation demos:        A) BOING ", "B) JUGGLER", "C) KAYAHARA"''
+ 80 print "Graphics demos:         D) 2019  ", "E) SCRSHOW", "F) VDPTEST"''
+ 90 print "Music demos:            G) LASTV8", "H) SKYFALL"''
+100 print "DMA demos:              I) AARDMAN", "J) BADAPPLE", "K) TAKEONME"''
+110 print "Emulator:               L) TC2048"''
 120 print "Exit:                   X) BASIC"
 130 input a$
 140 if a$="A" then run "boing"
 150 if a$="B" then run "juggler"
 160 if a$="C" then run "kayahara"
-170 if a$="D" then run "aardman"
-180 if a$="E" then run "badapple"
-190 if a$="F" then run "takeonme"
-200 if a$="G" then run "tc2048"
-210 if a$="H" then run "scrshow"
-220 if a$="I" then run "vdptest"
-230 if a$="J" then run "lastv8"
-240 if a$="K" then run "skyfall"
-250 if a$="X" then new
-260 goto 130
+170 if a$="D" then run "2019"
+180 if a$="E" then run "scrshow"
+190 if a$="F" then run "vdptest"
+200 if a$="G" then run "lastv8"
+210 if a$="H" then run "skyfall"
+220 if a$="I" then run "aardman"
+230 if a$="J" then run "badapple"
+240 if a$="K" then run "takeonme"
+250 if a$="L" then run "tc2048"
+260 if a$="X" then new
+270 goto 130

ChloeVM.app/Contents/Resources/chloehd/AUTOEXEC.BAS

@@ -207,9 +207,7 @@ pause2:
 
 load:
 	ld a, (handle);						// file handle
-	rst divmmc;							// issue a hookcode
-	defb f_read;						// read bytes
-	ret;								// end of subroutine
+	jp SEFileRead;						// exit via read file vector
 
 fade:
 	ld hl, $f800;						// source palette
@@ -377,9 +375,7 @@ main_loop:
 
 close:
 	ld a, (handle);						// get folder handle
-	rst divmmc;							// issue a hookcode
-	defb f_close;						// close it
-	ret;
+	jp SEFileClose;						// exit via close file vector
 
 scroll:
     ld ix, row_table;   				// table of addresses
@@ -414,10 +410,7 @@ clear_screen:
 
 ;	// file handling
 open:
-	ld a, '*';							// use current drive
-	ld b, fa_read | fa_open_ex;			// open for reading if file exists
-	rst divmmc;							// issue a hookcode
-	defb f_open;						// open file
+	call SEFileOpenExists;				// open file
 	ld (handle), a;						// store file handle
 	ret;								// end of subroutine
 

ChloeVM.app/Contents/Resources/chloehd/PROGRAMS/2019/PRG/2019.PRG

@@ -1,3 +1,28 @@
+;;	// vector table address
+
+	vector equ $04c4;
+
+;	// SE Basic IV DOS API
+
+	SEFileAppend equ vector;			// $00
+	SEFileClose equ vector + 3;			// $01
+	SEFileCreate equ vector + 6;		// $02
+	SEFileLoad equ vector + 9;			// $03
+	SEFileOpen equ vector + 12;			// $04
+	SEFileOpenExists equ vector + 15;	// $05
+	SEFileRead equ vector + 18;			// $06
+	SEFileReadOne equ vector + 21;		// $07
+	SEFileRemove equ vector + 24;		// $08
+	SEFileRename equ vector + 27;		// $09
+	SEFileSave equ vector + 30;			// $0a
+	SEFileWrite equ vector + 33;		// $0b
+	SEFileWriteOne equ vector + 36;		// $0c
+	SEFolderCreate equ vector + 39;		// $0d
+	SEFolderOpen equ vector + 42;		// $0e
+	SEFolderRead equ vector + 45;		// $0f
+	SEFolderRemove equ vector + 48;		// $10
+	SEFolderSet equ vector + 51; 		// $11
+
 ;	// UnoDOS 3 hook codes
 
 	divmmc equ 8;

ChloeVM.app/Contents/Resources/chloehd/PROGRAMS/2019/SRC/2019.ASM

@@ -1,3 +1,29 @@
+;	// vector table address
+
+	vector equ $04c4;
+
+;	// SE Basic IV DOS API
+
+	SEFileAppend equ vector;			// $00
+	SEFileClose equ vector + 3;			// $01
+	SEFileCreate equ vector + 6;		// $02
+	SEFileLoad equ vector + 9;			// $03
+	SEFileOpen equ vector + 12;			// $04
+	SEFileOpenExists equ vector + 15;	// $05
+	SEFileRead equ vector + 18;			// $06
+	SEFileReadOne equ vector + 21;		// $07
+	SEFileRemove equ vector + 24;		// $08
+	SEFileRename equ vector + 27;		// $09
+	SEFileSave equ vector + 30;			// $0a
+	SEFileWrite equ vector + 33;		// $0b
+	SEFileWriteOne equ vector + 36;		// $0c
+	SEFolderCreate equ vector + 39;		// $0d
+	SEFolderOpen equ vector + 42;		// $0e
+	SEFolderRead equ vector + 45;		// $0f
+	SEFolderRemove equ vector + 48;		// $10
+	SEFolderSet equ vector + 51; 		// $11
+
+
 ;	// UnoDOS 3 hook codes
 
 	divmmc equ 8;

ChloeVM.app/Contents/Resources/chloehd/PROGRAMS/2019/SRC/UNODOS3.INC

@@ -1,3 +1,29 @@
+;	// vector table address
+
+	vector equ $04c4;
+
+;	// SE Basic IV DOS API
+
+	SEFileAppend equ vector;			// $00
+	SEFileClose equ vector + 3;			// $01
+	SEFileCreate equ vector + 6;		// $02
+	SEFileLoad equ vector + 9;			// $03
+	SEFileOpen equ vector + 12;			// $04
+	SEFileOpenExists equ vector + 15;	// $05
+	SEFileRead equ vector + 18;			// $06
+	SEFileReadOne equ vector + 21;		// $07
+	SEFileRemove equ vector + 24;		// $08
+	SEFileRename equ vector + 27;		// $09
+	SEFileSave equ vector + 30;			// $0a
+	SEFileWrite equ vector + 33;		// $0b
+	SEFileWriteOne equ vector + 36;		// $0c
+	SEFolderCreate equ vector + 39;		// $0d
+	SEFolderOpen equ vector + 42;		// $0e
+	SEFolderRead equ vector + 45;		// $0f
+	SEFolderRemove equ vector + 48;		// $10
+	SEFolderSet equ vector + 51; 		// $11
+
+
 ;	// UnoDOS 3 hook codes
 
 	divmmc equ 8;

ChloeVM.app/Contents/Resources/chloehd/PROGRAMS/AARDMAN/SRC/UNODOS3.INC

@@ -241,21 +241,14 @@ palette_loop:
 
 load:
 	ld a, (handle);						// file handle
-	rst divmmc;							// issue a hookcode
-	defb f_read;						// read bytes
-	ret;								// end of subroutine
+	jp SEFileRead;						// exit via read file vector
 
 close:
 	ld a, (handle);						// get folder handle
-	rst divmmc;							// issue a hookcode
-	defb f_close;						// close it
-	ret;
+	jp SEFileClose;						// exit via close file vector
 
 open:
-	ld a, '*';							// use current drive
-	ld b, fa_read | fa_open_ex;			// open for reading if file exists
-	rst divmmc;							// issue a hookcode
-	defb f_open;						// open file
+	call SEFileOpenExists;				// open file
 	ld (handle), a;						// store file handle
 	ret;								// end of subroutine
 

ChloeVM.app/Contents/Resources/chloehd/PROGRAMS/BADAPPLE/SRC/UNODOS3.INC

@@ -1,3 +1,29 @@
+;	// vector table address
+
+	vector equ $04c4;
+
+;	// SE Basic IV DOS API
+
+	SEFileAppend equ vector;			// $00
+	SEFileClose equ vector + 3;			// $01
+	SEFileCreate equ vector + 6;		// $02
+	SEFileLoad equ vector + 9;			// $03
+	SEFileOpen equ vector + 12;			// $04
+	SEFileOpenExists equ vector + 15;	// $05
+	SEFileRead equ vector + 18;			// $06
+	SEFileReadOne equ vector + 21;		// $07
+	SEFileRemove equ vector + 24;		// $08
+	SEFileRename equ vector + 27;		// $09
+	SEFileSave equ vector + 30;			// $0a
+	SEFileWrite equ vector + 33;		// $0b
+	SEFileWriteOne equ vector + 36;		// $0c
+	SEFolderCreate equ vector + 39;		// $0d
+	SEFolderOpen equ vector + 42;		// $0e
+	SEFolderRead equ vector + 45;		// $0f
+	SEFolderRemove equ vector + 48;		// $10
+	SEFolderSet equ vector + 51; 		// $11
+
+
 ;	// UnoDOS 3 hook codes
 
 	divmmc equ 8;

ChloeVM.app/Contents/Resources/chloehd/PROGRAMS/BOING/PRG/BOING.PRG

@@ -1,3 +1,29 @@
+;	// vector table address
+
+	vector equ $04c4;
+
+;	// SE Basic IV DOS API
+
+	SEFileAppend equ vector;			// $00
+	SEFileClose equ vector + 3;			// $01
+	SEFileCreate equ vector + 6;		// $02
+	SEFileLoad equ vector + 9;			// $03
+	SEFileOpen equ vector + 12;			// $04
+	SEFileOpenExists equ vector + 15;	// $05
+	SEFileRead equ vector + 18;			// $06
+	SEFileReadOne equ vector + 21;		// $07
+	SEFileRemove equ vector + 24;		// $08
+	SEFileRename equ vector + 27;		// $09
+	SEFileSave equ vector + 30;			// $0a
+	SEFileWrite equ vector + 33;		// $0b
+	SEFileWriteOne equ vector + 36;		// $0c
+	SEFolderCreate equ vector + 39;		// $0d
+	SEFolderOpen equ vector + 42;		// $0e
+	SEFolderRead equ vector + 45;		// $0f
+	SEFolderRemove equ vector + 48;		// $10
+	SEFolderSet equ vector + 51; 		// $11
+
+
 ;	// UnoDOS 3 hook codes
 
 	divmmc equ 8;

ChloeVM.app/Contents/Resources/chloehd/PROGRAMS/BOING/SRC/BOING.ASM

@@ -238,21 +238,14 @@ boink:
 
 load:
 	ld a, (handle);						// file handle
-	rst divmmc;							// issue a hookcode
-	defb f_read;						// read bytes
-	ret;								// end of subroutine
+	jp SEFileRead;						// exit via read file vector
 
 close:
 	ld a, (handle);						// get folder handle
-	rst divmmc;							// issue a hookcode
-	defb f_close;						// close it
-	ret;
+	jp SEFileClose;						// exit via close file vector
 
 open:
-	ld a, '*';							// use current drive
-	ld b, fa_read | fa_open_ex;			// open for reading if file exists
-	rst divmmc;							// issue a hookcode
-	defb f_open;						// open file
+	call SEFileOpenExists;				// open file
 	ld (handle), a;						// store file handle
 	ret;								// end of subroutine
 

ChloeVM.app/Contents/Resources/chloehd/PROGRAMS/BOING/SRC/UNODOS3.INC

@@ -1,3 +1,29 @@
+;	// vector table address
+
+	vector equ $04c4;
+
+;	// SE Basic IV DOS API
+
+	SEFileAppend equ vector;			// $00
+	SEFileClose equ vector + 3;			// $01
+	SEFileCreate equ vector + 6;		// $02
+	SEFileLoad equ vector + 9;			// $03
+	SEFileOpen equ vector + 12;			// $04
+	SEFileOpenExists equ vector + 15;	// $05
+	SEFileRead equ vector + 18;			// $06
+	SEFileReadOne equ vector + 21;		// $07
+	SEFileRemove equ vector + 24;		// $08
+	SEFileRename equ vector + 27;		// $09
+	SEFileSave equ vector + 30;			// $0a
+	SEFileWrite equ vector + 33;		// $0b
+	SEFileWriteOne equ vector + 36;		// $0c
+	SEFolderCreate equ vector + 39;		// $0d
+	SEFolderOpen equ vector + 42;		// $0e
+	SEFolderRead equ vector + 45;		// $0f
+	SEFolderRemove equ vector + 48;		// $10
+	SEFolderSet equ vector + 51; 		// $11
+
+
 ;	// UnoDOS 3 hook codes
 
 	divmmc equ 8;

ChloeVM.app/Contents/Resources/chloehd/PROGRAMS/HELP/SRC/UNODOS3.INC

@@ -250,7 +250,7 @@ pr_key:
 
 	jp start;							// skip shadow screen area
 
-;	// file handling
+;	// file handling (cannot use SE Basic IV DOS API because entire shadow RAM is used as buffer)
 open:
 	ld a, '*';							// use current drive
 	ld b, fa_read | fa_open_ex;			// open for reading if file exists

ChloeVM.app/Contents/Resources/chloehd/PROGRAMS/JUGGLER/PRG/JUGGLER.PRG

@@ -1,3 +1,29 @@
+;	// vector table address
+
+	vector equ $04c4;
+
+;	// SE Basic IV DOS API
+
+	SEFileAppend equ vector;			// $00
+	SEFileClose equ vector + 3;			// $01
+	SEFileCreate equ vector + 6;		// $02
+	SEFileLoad equ vector + 9;			// $03
+	SEFileOpen equ vector + 12;			// $04
+	SEFileOpenExists equ vector + 15;	// $05
+	SEFileRead equ vector + 18;			// $06
+	SEFileReadOne equ vector + 21;		// $07
+	SEFileRemove equ vector + 24;		// $08
+	SEFileRename equ vector + 27;		// $09
+	SEFileSave equ vector + 30;			// $0a
+	SEFileWrite equ vector + 33;		// $0b
+	SEFileWriteOne equ vector + 36;		// $0c
+	SEFolderCreate equ vector + 39;		// $0d
+	SEFolderOpen equ vector + 42;		// $0e
+	SEFolderRead equ vector + 45;		// $0f
+	SEFolderRemove equ vector + 48;		// $10
+	SEFolderSet equ vector + 51; 		// $11
+
+
 ;	// UnoDOS 3 hook codes
 
 	divmmc equ 8;

ChloeVM.app/Contents/Resources/chloehd/PROGRAMS/JUGGLER/SRC/JUGGLER.ASM

@@ -103,23 +103,17 @@ load_player:
 
 ;	// subroutines
 open:
-	ld a, '*';							// use current drive
-	ld b, fa_read | fa_open_ex;			// open for reading if file exists
-	rst divmmc;							// issue a hookcode
-	defb f_open;						// open file
+	call SEFileOpenExists;				// open file
 	ld (handle), a;						// store file handle
 	ret;								// done
 
 load:
 	ld a, (handle);						// file handle
-	rst divmmc;							// issue a hookcode
-	defb f_read;						// read bytes
-	ret;								// end of subroutine
+	jp SEFileRead;						// exit via read file vector
 
 close:
 	ld a, (handle);						// file handle
-	rst divmmc;							// issue a hookcode
-	defb f_close;						// close file
+	call SEFileClose;					// close file
 	ret;								// done
 
 ;	// data

ChloeVM.app/Contents/Resources/chloehd/PROGRAMS/JUGGLER/SRC/UNODOS3.INC

@@ -1,3 +1,29 @@
+;	// vector table address
+
+	vector equ $04c4;
+
+;	// SE Basic IV DOS API
+
+	SEFileAppend equ vector;			// $00
+	SEFileClose equ vector + 3;			// $01
+	SEFileCreate equ vector + 6;		// $02
+	SEFileLoad equ vector + 9;			// $03
+	SEFileOpen equ vector + 12;			// $04
+	SEFileOpenExists equ vector + 15;	// $05
+	SEFileRead equ vector + 18;			// $06
+	SEFileReadOne equ vector + 21;		// $07
+	SEFileRemove equ vector + 24;		// $08
+	SEFileRename equ vector + 27;		// $09
+	SEFileSave equ vector + 30;			// $0a
+	SEFileWrite equ vector + 33;		// $0b
+	SEFileWriteOne equ vector + 36;		// $0c
+	SEFolderCreate equ vector + 39;		// $0d
+	SEFolderOpen equ vector + 42;		// $0e
+	SEFolderRead equ vector + 45;		// $0f
+	SEFolderRemove equ vector + 48;		// $10
+	SEFolderSet equ vector + 51; 		// $11
+
+
 ;	// UnoDOS 3 hook codes
 
 	divmmc equ 8;