mirror of
https://github.com/irmen/prog8.git
synced 2024-08-22 03:29:07 +00:00
better checks for invalid %output and %launcher values. Added diskdir examples.
This commit is contained in:
parent
8c63d7cf5b
commit
4daf75a8cc
@ -11,6 +11,7 @@ c64 {
|
|||||||
&ubyte TIME_HI = $a0 ; software jiffy clock, hi byte
|
&ubyte TIME_HI = $a0 ; software jiffy clock, hi byte
|
||||||
&ubyte TIME_MID = $a1 ; .. mid byte
|
&ubyte TIME_MID = $a1 ; .. mid byte
|
||||||
&ubyte TIME_LO = $a2 ; .. lo byte. Updated by IRQ every 1/60 sec
|
&ubyte TIME_LO = $a2 ; .. lo byte. Updated by IRQ every 1/60 sec
|
||||||
|
&ubyte STATUS = $90 ; kernel status variable for I/O
|
||||||
&ubyte STKEY = $91 ; various keyboard statuses (updated by IRQ)
|
&ubyte STKEY = $91 ; various keyboard statuses (updated by IRQ)
|
||||||
&ubyte SFDX = $cb ; current key pressed (matrix value) (updated by IRQ)
|
&ubyte SFDX = $cb ; current key pressed (matrix value) (updated by IRQ)
|
||||||
|
|
||||||
|
@ -148,6 +148,15 @@ private fun determineCompilationOptions(program: Program): CompilationOptions {
|
|||||||
.map { it[0].int!!..it[1].int!! }
|
.map { it[0].int!!..it[1].int!! }
|
||||||
.toList()
|
.toList()
|
||||||
|
|
||||||
|
if(outputType!=null && !OutputType.values().any {it.name==outputType}) {
|
||||||
|
System.err.println("invalid output type $outputType")
|
||||||
|
exitProcess(1)
|
||||||
|
}
|
||||||
|
if(launcherType!=null && !LauncherType.values().any {it.name==launcherType}) {
|
||||||
|
System.err.println("invalid launcher type $launcherType")
|
||||||
|
exitProcess(1)
|
||||||
|
}
|
||||||
|
|
||||||
return CompilationOptions(
|
return CompilationOptions(
|
||||||
if (outputType == null) OutputType.PRG else OutputType.valueOf(outputType),
|
if (outputType == null) OutputType.PRG else OutputType.valueOf(outputType),
|
||||||
if (launcherType == null) LauncherType.BASIC else LauncherType.valueOf(launcherType),
|
if (launcherType == null) LauncherType.BASIC else LauncherType.valueOf(launcherType),
|
||||||
|
@ -3,7 +3,11 @@ TODO
|
|||||||
====
|
====
|
||||||
|
|
||||||
- get rid of all other TODO's in the code ;-)
|
- get rid of all other TODO's in the code ;-)
|
||||||
|
- move the ldx #$ff | clc | cld from the startup logic into the start() function as first instructions
|
||||||
|
- add an %option that omits the 'system-init' code at the start. Useful to create separate standalone routines that shouldn't re-init the whole machine every time they're called
|
||||||
- line-circle-gfx examples are now a few hundred bytes larger than before. Why is that, can it be fixed?
|
- line-circle-gfx examples are now a few hundred bytes larger than before. Why is that, can it be fixed?
|
||||||
|
- until condition should be able to refer to variables defined IN the do-until block itself.
|
||||||
|
- add support? example? for processing arguments to a sys call : sys 999, 1, 2, "aaa"
|
||||||
- make it possible for array literals to not only contain compile time constants
|
- make it possible for array literals to not only contain compile time constants
|
||||||
- further optimize assignment codegeneration
|
- further optimize assignment codegeneration
|
||||||
- implement @stack for asmsub parameters
|
- implement @stack for asmsub parameters
|
||||||
@ -13,7 +17,6 @@ TODO
|
|||||||
- use VIC banking to move up the graphics bitmap memory location. Don't move it under the ROM though as that would require IRQ disabling and memory bank swapping for every bitmap manipulation
|
- use VIC banking to move up the graphics bitmap memory location. Don't move it under the ROM though as that would require IRQ disabling and memory bank swapping for every bitmap manipulation
|
||||||
- add some primitives/support/examples for using custom char sets, copying the default charset.
|
- add some primitives/support/examples for using custom char sets, copying the default charset.
|
||||||
|
|
||||||
|
|
||||||
More optimizations
|
More optimizations
|
||||||
^^^^^^^^^^^^^^^^^^
|
^^^^^^^^^^^^^^^^^^
|
||||||
|
|
||||||
|
46
examples/diskdir-sys50000.p8
Normal file
46
examples/diskdir-sys50000.p8
Normal file
@ -0,0 +1,46 @@
|
|||||||
|
%target c64
|
||||||
|
%import textio
|
||||||
|
%import syslib
|
||||||
|
%zeropage basicsafe
|
||||||
|
%launcher none
|
||||||
|
%address 50000
|
||||||
|
|
||||||
|
; This example shows the directory contents of disk drive 8.
|
||||||
|
; You load it with LOAD "diskdir-sys50000",8,1
|
||||||
|
; and then call it with SYS 50000.
|
||||||
|
|
||||||
|
main {
|
||||||
|
sub start() {
|
||||||
|
txt.print("directory of disk drive #8:\n\n")
|
||||||
|
diskdir(8)
|
||||||
|
}
|
||||||
|
|
||||||
|
sub diskdir(ubyte drivenumber) {
|
||||||
|
c64.SETNAM(1, "$")
|
||||||
|
c64.SETLFS(1, drivenumber, 0)
|
||||||
|
c64.OPEN() ; open 1,8,0,"$"
|
||||||
|
c64.CHKIN(1) ; use #1 as input channel
|
||||||
|
|
||||||
|
repeat 4 {
|
||||||
|
void c64.CHRIN() ; skip the 4 prologue bytes
|
||||||
|
}
|
||||||
|
|
||||||
|
; while not key pressed / EOF encountered, read data.
|
||||||
|
while not (@($c6) | c64.STATUS) {
|
||||||
|
txt.print_uw(mkword(c64.CHRIN(), c64.CHRIN()))
|
||||||
|
txt.chrout(' ')
|
||||||
|
ubyte @zp char
|
||||||
|
do {
|
||||||
|
char = c64.CHRIN()
|
||||||
|
txt.chrout(char)
|
||||||
|
} until char==0
|
||||||
|
txt.chrout('\n')
|
||||||
|
repeat 2 {
|
||||||
|
void c64.CHRIN() ; skip 2 bytes
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
c64.CLOSE(1)
|
||||||
|
c64.CLRCHN() ; restore default i/o devices
|
||||||
|
}
|
||||||
|
}
|
@ -1,53 +1,42 @@
|
|||||||
%target c64
|
%target c64
|
||||||
%import textio
|
%import textio
|
||||||
%import syslib
|
%import syslib
|
||||||
%zeropage dontuse
|
%zeropage basicsafe
|
||||||
|
|
||||||
; This example shows the directory contents of disk drive 8.
|
; This example shows the directory contents of disk drive 8.
|
||||||
|
|
||||||
main {
|
main {
|
||||||
sub start() {
|
sub start() {
|
||||||
%asm {{
|
txt.print("directory of disk drive #8:\n\n")
|
||||||
lda #$01
|
diskdir(8)
|
||||||
ldx #<dirname
|
}
|
||||||
ldy #>dirname
|
|
||||||
jsr c64.SETNAM
|
|
||||||
lda #1
|
|
||||||
ldx #8
|
|
||||||
ldy #0
|
|
||||||
jsr c64.SETLFS
|
|
||||||
jsr c64.OPEN ; OPEN 1,8,0
|
|
||||||
ldx #1
|
|
||||||
jsr c64.CHKIN ; define input channel
|
|
||||||
ldy #$04
|
|
||||||
labl1 jsr c64.CHRIN ; input byte on serial bus
|
|
||||||
dey
|
|
||||||
bne labl1 ; get rid of Y bytes
|
|
||||||
lda $C6 ; key pressed?
|
|
||||||
ora $90 ; or EOF?
|
|
||||||
bne labl2 ; if yes exit
|
|
||||||
jsr c64.CHRIN ; now get the size of the file
|
|
||||||
pha
|
|
||||||
jsr c64.CHRIN
|
|
||||||
tay
|
|
||||||
pla
|
|
||||||
jsr txt.print_uw
|
|
||||||
lda #32
|
|
||||||
jsr c64.CHROUT
|
|
||||||
labl3 jsr c64.CHRIN ; now the filename
|
|
||||||
jsr c64.CHROUT ; put a character to screen
|
|
||||||
cmp #0
|
|
||||||
bne labl3 ; while not 0 encountered
|
|
||||||
lda #13
|
|
||||||
jsr c64.CHROUT ; put a CR , end line
|
|
||||||
ldy #$02 ; set 2 bytes to skip
|
|
||||||
bne labl1 ; repeat
|
|
||||||
labl2 lda #1
|
|
||||||
jsr c64.CLOSE ; close serial bus device
|
|
||||||
jsr c64.CLRCHN ; restore I/O devices to default
|
|
||||||
rts
|
|
||||||
|
|
||||||
dirname .byte "$"
|
sub diskdir(ubyte drivenumber) {
|
||||||
}}
|
c64.SETNAM(1, "$")
|
||||||
|
c64.SETLFS(1, drivenumber, 0)
|
||||||
|
c64.OPEN() ; open 1,8,0,"$"
|
||||||
|
c64.CHKIN(1) ; use #1 as input channel
|
||||||
|
|
||||||
|
repeat 4 {
|
||||||
|
void c64.CHRIN() ; skip the 4 prologue bytes
|
||||||
|
}
|
||||||
|
|
||||||
|
; while not key pressed / EOF encountered, read data.
|
||||||
|
while not (@($c6) | c64.STATUS) {
|
||||||
|
txt.print_uw(mkword(c64.CHRIN(), c64.CHRIN()))
|
||||||
|
txt.chrout(' ')
|
||||||
|
ubyte @zp char
|
||||||
|
do {
|
||||||
|
char = c64.CHRIN()
|
||||||
|
txt.chrout(char)
|
||||||
|
} until char==0
|
||||||
|
txt.chrout('\n')
|
||||||
|
repeat 2 {
|
||||||
|
void c64.CHRIN() ; skip 2 bytes
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
c64.CLOSE(1)
|
||||||
|
c64.CLRCHN() ; restore default i/o devices
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user