parent
eae896031b
commit
6f11aff3a4
8
FSHa.asm
8
FSHa.asm
|
|
@ -4,7 +4,7 @@
|
||||||
|
|
||||||
.assume ADL=1
|
.assume ADL=1
|
||||||
.org userMem-2
|
.org userMem-2
|
||||||
.DB tExtTok,tAsm84CeCmp
|
.db tExtTok,tAsm84CeCmp
|
||||||
|
|
||||||
Setup:
|
Setup:
|
||||||
CALL _RunIndicOff
|
CALL _RunIndicOff
|
||||||
|
|
@ -13,14 +13,13 @@ Setup:
|
||||||
CALL _homeup
|
CALL _homeup
|
||||||
CALL _ClrLCDFull
|
CALL _ClrLCDFull
|
||||||
|
|
||||||
CALL drawstatusbar
|
|
||||||
|
|
||||||
CALL fshvarreset
|
CALL fshvarreset
|
||||||
|
|
||||||
|
CALL drawstatusbar
|
||||||
|
|
||||||
CALL printmotd
|
CALL printmotd
|
||||||
|
|
||||||
Input:
|
Input:
|
||||||
;; TODO: Update status bar sometimes
|
|
||||||
LD A, $00
|
LD A, $00
|
||||||
CALL commandfill
|
CALL commandfill
|
||||||
|
|
||||||
|
|
@ -46,6 +45,7 @@ Route:
|
||||||
JP commandroute
|
JP commandroute
|
||||||
|
|
||||||
Fin:
|
Fin:
|
||||||
|
CALL updatestatusbar
|
||||||
JP Input
|
JP Input
|
||||||
|
|
||||||
Err:
|
Err:
|
||||||
|
|
|
||||||
BIN
bin/FSHa.8xp
BIN
bin/FSHa.8xp
Binary file not shown.
7647
bin/FSHa.lst
7647
bin/FSHa.lst
File diff suppressed because it is too large
Load Diff
|
|
@ -1,5 +1,5 @@
|
||||||
cryptocmdDECRYPT: .db "DECRYPT", 0
|
cryptocmdDECRYPT: .db "DECRYPT", 0
|
||||||
cryptocmdDECRYPTo: .dw $0102
|
cryptocmdDECRYPTo: .dw $0202
|
||||||
cryptocmdDECRYPTm: .db "Decrypts a string using a cypher. see 'DECRYPT HELP' for info on cyphers", 0
|
cryptocmdDECRYPTm: .db "Decrypts a string using a cypher. see 'DECRYPT HELP' for info on cyphers", 0
|
||||||
cryptocmdDECRYPTu: .db "DECRYPT <Crypt Command> <Crypt Args>", 0
|
cryptocmdDECRYPTu: .db "DECRYPT <Crypt Command> <Crypt Args>", 0
|
||||||
cryptocmdDECRYPTf:
|
cryptocmdDECRYPTf:
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
cryptocmdENCRYPT: .db "ENCRYPT", 0
|
cryptocmdENCRYPT: .db "ENCRYPT", 0
|
||||||
cryptocmdENCRYPTo: .dw $0101
|
cryptocmdENCRYPTo: .dw $0201
|
||||||
cryptocmdENCRYPTm: .db "Encrypts a string using a cypher. see 'ENCRYPT HELP' for info on cyphers", 0
|
cryptocmdENCRYPTm: .db "Encrypts a string using a cypher. see 'ENCRYPT HELP' for info on cyphers", 0
|
||||||
cryptocmdENCRYPTu: .db "ENCRYPT <Crypt Command> <Crypt Args>", 0
|
cryptocmdENCRYPTu: .db "ENCRYPT <Crypt Command> <Crypt Args>", 0
|
||||||
cryptocmdENCRYPTf:
|
cryptocmdENCRYPTf:
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,7 @@ drawstatusbar:
|
||||||
ld hl, $04FA
|
ld hl, $04FA
|
||||||
;ld hl, %1111100000000000
|
;ld hl, %1111100000000000
|
||||||
drawrectfilledM(0, 0, 2, 30)
|
drawrectfilledM(0, 0, 2, 30)
|
||||||
call _DrawBatteryIndicator
|
call drawbatteryind
|
||||||
;draw name
|
;draw name
|
||||||
set fracDrawLFont, (iy + fontFlags)
|
set fracDrawLFont, (iy + fontFlags)
|
||||||
ld a, 6
|
ld a, 6
|
||||||
|
|
@ -28,3 +28,12 @@ drawstatusbar:
|
||||||
ld hl, $0000
|
ld hl, $0000
|
||||||
ld (drawFGcolor), hl
|
ld (drawFGcolor), hl
|
||||||
ret
|
ret
|
||||||
|
|
||||||
|
drawbatteryind:
|
||||||
|
call _DrawBatteryIndicator
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
updatestatusbar:
|
||||||
|
call drawbatteryind
|
||||||
|
ret
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue