Add beta 1.1 source for 18 new commands

Author: RoccoLoxPrograms

README.md

@@ -4,34 +4,31 @@ You can view the online documentation [here](https://roccoloxprograms.github.io/
 
 # Functions
 
-### Completed
+## Completed
  * [Celtic 2 CSE](https://roccoloxprograms.github.io/CelticCE/csefunctions.html)
  * [Doors CE 9](https://roccoloxprograms.github.io/CelticCE/dcefunctions.html)
+ * [Graphics Functions](https://roccoloxprograms.github.io/CelticCE/graphicsfunctions.html)
+ * [OS Utility Functions](https://roccoloxprograms.github.io/CelticCE/osutilityfunctions.html)
+ * [Celtic III Functions](https://roccoloxprograms.github.io/CelticCE/celticiiifunctions.html)
 
-### In Progress
- * ToggleSet - `det(16,"FN",f#) 0=Arc;1=Lk;2=PA;3=Hid;4=Del;5=Crt;6=PS;7=Stat`
- * GetListElem - `det(17,"LN",elem) out:lNAME(elem) -> Real/Cpx`
- * GetArgType - `det(18,argofanytype) filetype code`
- * ChkStats - `det(19,f#) 0=RAM 1=ARC 2=ID 3=OSVER`
- * FindProg - `det(20,["SEARCH"])`
- * UngroupFile - `det(21,"GFN")`
- * GetGroup - `det(22,"GFN")`
- * ExtGroup - `det(23,"GFN",item#)`
- * GroupMem - `det(24,"GFN",item#)`
- * BinRead - `det(25,"FN",bytestart,#ofbytes)`
- * BinWrite - `det(26,"HEX","FN",bytestart)`
- * BinDelete - `det(27,"FN",bytestart,del#ofbytes)`
- * HexToBin - `det(28,"HEXSTRING")`
- * BinToHex - `det(29,"BIN")`
- * FastCopy - `det(30)`
- * Edit1Byte - `det(31,Str?,StartByte,ReplaceWithThisByte)`
- * IndexFile - `det(32,"FILENAME","NEWINDEXNAME")`
- * LookupIndex - `det(33,"FILENAME","INDEXNAME",line#,[#oflines])`
- * ErrorHandle - `det(34,function,string)`
- * StringRead - `det(35,"binstring",start,readThisMany)`
- * HexToDec - `det(36,"HEXSTRING")`
- * DecToHex - `det(37,SomeRealNumber,[autoOverride])`
- * EditWord - `det(38,start_byte,replace_with_this_word)`
- * BitOperate - `det(39,value1,value2,logic)`
- * GetProgList - `det(40,"SEARCHSTRING",[type])`
- * GetCalcVer - `det(41) Returns calcversion`
+## In Progress
+ * UngroupFile - `det(34,"GFN")`
+ * GetGroup - `det(35,"GFN")`
+ * ExtGroup - `det(36,"GFN",item#)`
+ * GroupMem - `det(37,"GFN",item#)`
+ * BinRead - `det(38,"FN",bytestart,#ofbytes)`
+ * BinWrite - `det(39,"HEX","FN",bytestart)`
+ * BinDelete - `det(40,"FN",bytestart,del#ofbytes)`
+ * HexToBin - `det(41,"HEXSTRING")`
+ * BinToHex - `det(42,"BIN")`
+ * FastCopy - `det(43)`
+ * Edit1Byte - `det(44,Str?,StartByte,ReplaceWithThisByte)`
+ * IndexFile - `det(45,"FILENAME","NEWINDEXNAME")`
+ * LookupIndex - `det(46,"FILENAME","INDEXNAME",line#,[#oflines])`
+ * ErrorHandle - `det(47,function,string)`
+ * StringRead - `det(48,"binstring",start,readThisMany)`
+ * HexToDec - `det(49,"HEXSTRING")`
+ * DecToHex - `det(50,SomeRealNumber,[autoOverride])`
+ * EditWord - `det(51,start_byte,replace_with_this_word)`
+ * BitOperate - `det(52,value1,value2,logic)`
+ * GetProgList - `det(53,"SEARCHSTRING",[type])`

makefile

@@ -4,7 +4,7 @@
 # By RoccoLox Programs and TIny_Hacker
 # Copyright 2022
 # License: BSD 3-Clause License
-# Last Built: September 17, 2022
+# Last Built: November 29, 2022
 #
 #--------------------------------------
 

src/celtic.asm

@@ -4,7 +4,7 @@
 ; By RoccoLox Programs and TIny_Hacker
 ; Copyright 2022
 ; License: BSD 3-Clause License
-; Last Built: September 17, 2022
+; Last Built: November 29, 2022
 ;
 ;--------------------------------------
 
@@ -16,7 +16,6 @@ include 'installer.asm'
 	app_start 'CelticCE', '(C)  2022  RoccoLox  Programs'
 
 	include 'main.asm'
-	include 'ports.asm'
 
 	app_data
 

src/installer.asm

@@ -4,47 +4,47 @@
 ; By RoccoLox Programs and TIny_Hacker
 ; Copyright 2022
 ; License: BSD 3-Clause License
-; Last Built: September 17, 2022
+; Last Built: November 29, 2022
 ;
 ;--------------------------------------
 
-	jp	installApp
-	db	$01
+    jp  installApp
+    db	$01
 ___icon:
-	db	$10, $10
-	db	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
-	db	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
-	db	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
-	db	$FF, $FF, $FF, $FF, $FF, $FF, $07, $25, $25, $07, $FF, $FF, $FF, $FF, $FF, $FF
-	db	$FF, $FF, $FF, $FF, $FF, $07, $25, $8F, $8F, $25, $07, $FF, $FF, $FF, $FF, $FF
-	db	$FF, $FF, $FF, $FF, $FF, $25, $8F, $07, $25, $8F, $25, $FF, $FF, $FF, $FF, $FF
-	db	$FF, $FF, $FF, $FF, $FF, $25, $8F, $25, $8F, $8F, $25, $FF, $FF, $FF, $FF, $FF
-	db	$FF, $FF, $FF, $FF, $8F, $8F, $25, $8F, $25, $25, $07, $07, $FF, $FF, $FF, $FF
-	db	$FF, $FF, $FF, $8F, $25, $07, $25, $25, $25, $25, $25, $25, $8F, $FF, $FF, $FF
-	db	$FF, $FF, $07, $25, $8F, $25, $8F, $25, $25, $8F, $8F, $8F, $25, $07, $FF, $FF
-	db	$FF, $FF, $07, $25, $07, $25, $8F, $25, $25, $8F, $25, $07, $25, $07, $FF, $FF
-	db	$FF, $FF, $07, $25, $8F, $8F, $8F, $25, $8F, $8F, $25, $8F, $25, $07, $FF, $FF
-	db	$FF, $FF, $FF, $8F, $25, $25, $25, $8F, $FF, $8F, $07, $25, $8F, $FF, $FF, $FF
-	db	$FF, $FF, $FF, $FF, $07, $07, $07, $FF, $FF, $FF, $8F, $8F, $FF, $FF, $FF, $FF
-	db	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
-	db	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
+    db	$10, $10
+    db	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
+    db	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
+    db	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
+    db	$FF, $FF, $FF, $FF, $FF, $FF, $07, $25, $25, $07, $FF, $FF, $FF, $FF, $FF, $FF
+    db	$FF, $FF, $FF, $FF, $FF, $07, $25, $8F, $8F, $25, $07, $FF, $FF, $FF, $FF, $FF
+    db	$FF, $FF, $FF, $FF, $FF, $25, $8F, $07, $25, $8F, $25, $FF, $FF, $FF, $FF, $FF
+    db	$FF, $FF, $FF, $FF, $FF, $25, $8F, $25, $8F, $8F, $25, $FF, $FF, $FF, $FF, $FF
+    db	$FF, $FF, $FF, $FF, $8F, $8F, $25, $8F, $25, $25, $07, $07, $FF, $FF, $FF, $FF
+    db	$FF, $FF, $FF, $8F, $25, $07, $25, $25, $25, $25, $25, $25, $8F, $FF, $FF, $FF
+    db	$FF, $FF, $07, $25, $8F, $25, $8F, $25, $25, $8F, $8F, $8F, $25, $07, $FF, $FF
+    db	$FF, $FF, $07, $25, $07, $25, $8F, $25, $25, $8F, $25, $07, $25, $07, $FF, $FF
+    db	$FF, $FF, $07, $25, $8F, $8F, $8F, $25, $8F, $8F, $25, $8F, $25, $07, $FF, $FF
+    db	$FF, $FF, $FF, $8F, $25, $25, $25, $8F, $FF, $8F, $07, $25, $8F, $FF, $FF, $FF
+    db	$FF, $FF, $FF, $FF, $07, $07, $07, $FF, $FF, $FF, $8F, $8F, $FF, $FF, $FF, $FF
+    db	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
+    db	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
 ___description:
-	db "Celtic CE Installer - BETA v1.0", 0
+    db "Celtic CE Installer - BETA v1.1", 0
 
 installApp:
-	call .clearScreen
-
-	installer_ports.copy
-
-	call installer.port_setup
-	or a, a
-	ld hl, osInvalidStr
-	jq nz, .printMessage
-
-	app_create
-
-	jr z, appInstalled
-	ld hl, celticAppAlreadyExists
+    call .clearScreen
+    
+    installer_ports.copy
+
+    call installer.port_setup
+    or a, a
+    ld hl, osInvalidStr
+    jp nz, .printMessage
+    
+    app_create
+    
+    jr z, appInstalled
+    ld hl, celticAppAlreadyExists
     call ti.PutS
     call ti.NewLine
     call ti.PutS
@@ -56,18 +56,18 @@ installApp:
     call ti.GetCSC
     cp a, ti.skEnter
     jr nz, .getKey
-	jp appInstalled.exit
+    jp appInstalled.exit
 
 .printMessage:
-	call ti.PutS
-	call ti.GetKey
+    call ti.PutS
+    call ti.GetKey
 
 .clearScreen:
-	call ti.ClrScrn
-	jp ti.HomeUp
+    call ti.ClrScrn
+    jp ti.HomeUp
 
 appInstalled:
-	call ti.ClrScrn
+    call ti.ClrScrn
     call ti.HomeUp
     ld hl, celticInstalledStr
     call ti.PutS
@@ -122,7 +122,7 @@ appInstalled:
 
 .exit:
     call ti.ClrScrn
-	jp ti.HomeUp
+    jp ti.HomeUp
 
 .leftPress:
     ld a, (ti.curCol)
@@ -155,6 +155,7 @@ appInstalled:
     ld a, 6
     ld (ti.curCol), a
     ld hl, optionYes
+    set ti.textEraseBelow, (iy + ti.textFlags)
     call ti.PutS
     ld hl, $000000
     ld de, $00FFFF
@@ -174,16 +175,17 @@ appInstalled:
     ld a, 16
     ld (ti.curCol), a
     ld hl, optionNo
+    set ti.textEraseBelow, (iy + ti.textFlags)
     call ti.PutS
     ld hl, $000000
     ld de, $00FFFF
     call ti.SetTextFGBGcolors_
     ld a, 16
     ld (ti.curCol), a
-	ret
+    ret
 
 osInvalidStr:
-	db  "Cannot use this OS.", 0
+    db  "Cannot use this OS.", 0
 
 celticInstalledStr:
     db " Celtic CE app installed.", 0
@@ -203,11 +205,11 @@ optionNo:
     db " No ", 0
 
 celticName:
-	db ti.ProgObj, "CELTICCE", 0
+    db ti.ProgObj, "CELTICCE", 0
 
-relocate installer_ports, ti.saveSScreen
+relocate installer_ports, ti.pixelShadow
 define installer
 namespace installer
-	include 'ports.asm'
+    include 'ports.asm'
 end namespace
 end relocate