mirror of https://github.com/Klaus2m5/VTL02.git
added source for AS65, update for the Kowalski simulator
This commit is contained in:
parent
6203d3da84
commit
e544e9bb83
|
@ -16,9 +16,11 @@
|
||||||
The files:
|
The files:
|
||||||
VTL02B for the apple II & the sbprojects.com assembler:
|
VTL02B for the apple II & the sbprojects.com assembler:
|
||||||
vtl02ba2.asm
|
vtl02ba2.asm
|
||||||
VTL02B for the Kowalski 6502 simulator
|
VTL02B for the Kowalski 6502 simulator:
|
||||||
http://www.exifpro.com/downloads/6502_1.2.12.zip:
|
http://www.exifpro.com/downloads/6502_1.2.12.zip:
|
||||||
vtl02b_for_Kowalski.asm
|
vtl02ba2.65s
|
||||||
|
VTL02B for my emulator & the Kingswood AS65 assembler:
|
||||||
|
vtl02ba2.a65
|
||||||
|
|
||||||
New features in Revision B:
|
New features in Revision B:
|
||||||
* Bit-wise operators & | ^ (and, or, xor)
|
* Bit-wise operators & | ^ (and, or, xor)
|
||||||
|
|
|
@ -473,9 +473,10 @@ prmsg:
|
||||||
prmsg2:
|
prmsg2:
|
||||||
tax ; save closing delimiter
|
tax ; save closing delimiter
|
||||||
jsr inkey ; any key = pause?
|
jsr inkey ; any key = pause?
|
||||||
bcc prout ; no: proceed
|
; patch - remove garbage output when halting print
|
||||||
jsr inch ; yes: wait for another key
|
; bcc prout ; no: proceed
|
||||||
prout:
|
; jsr inch ; yes: wait for another key
|
||||||
|
;prout:
|
||||||
txa ; retrieve closing delimiter
|
txa ; retrieve closing delimiter
|
||||||
beq outnl ; always \n after null delimiter
|
beq outnl ; always \n after null delimiter
|
||||||
jsr skpbyte ; skip over the delimiter
|
jsr skpbyte ; skip over the delimiter
|
||||||
|
@ -1019,14 +1020,21 @@ getbyte:
|
||||||
; rts
|
; rts
|
||||||
;============ Kowalski I/O subroutines ===============;
|
;============ Kowalski I/O subroutines ===============;
|
||||||
;-----------------------------------------------------;
|
;-----------------------------------------------------;
|
||||||
; Check for user keypress and return with (cc) if none
|
; Check for user keypress and return if none
|
||||||
; is pending. Otherwise, check for ctrl-C and
|
; is pending. Otherwise, check for ctrl-C and
|
||||||
; return with (cs).
|
; return after next keypress.
|
||||||
; 7 bytes
|
;
|
||||||
inkey:
|
inkey:
|
||||||
lda acia_rx ; Is there a character waiting?
|
lda acia_rx ; Is there a character waiting?
|
||||||
bne inch2 ; yes: check CTRL-C
|
beq inkeyr ; no: return
|
||||||
clc ; no: return with (cc)
|
cmp #3 ; is ctrl-c
|
||||||
|
beq istart ; yes: abort to OK prompt
|
||||||
|
inkeyp:
|
||||||
|
lda acia_rx ; pause until next key
|
||||||
|
beq inkeyp
|
||||||
|
cmp #3 ; is ctrl-c
|
||||||
|
beq istart ; yes: abort to OK prompt
|
||||||
|
inkeyr:
|
||||||
rts
|
rts
|
||||||
; - - - - - - - - - - - - - - - - - - - - - - - - - - ;
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - ;
|
||||||
; Read key from stdin into a, echo, (cs)
|
; Read key from stdin into a, echo, (cs)
|
||||||
|
@ -1040,6 +1048,7 @@ inch:
|
||||||
inch2:
|
inch2:
|
||||||
cmp #$03 ; ctrl-C?
|
cmp #$03 ; ctrl-C?
|
||||||
bne outch ; no: echo to terminal
|
bne outch ; no: echo to terminal
|
||||||
|
istart:
|
||||||
jmp start ; yes: abort to "OK" prompt
|
jmp start ; yes: abort to "OK" prompt
|
||||||
; - - - - - - - - - - - - - - - - - - - - - - - - - - ;
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - ;
|
||||||
; Print ascii char in a to stdout, (cs)
|
; Print ascii char in a to stdout, (cs)
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue