added source for AS65, update for the Kowalski simulator

readme.txt

@@ -16,9 +16,11 @@
  The files:
    VTL02B for the apple II & the sbprojects.com assembler:
       vtl02ba2.asm
-   VTL02B for the Kowalski 6502 simulator 
+   VTL02B for the Kowalski 6502 simulator: 
    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:
  * Bit-wise operators & | ^ (and, or, xor)

vtl02ba2.65s

@@ -473,9 +473,10 @@ prmsg:
 prmsg2:
     tax             ; save closing delimiter
     jsr  inkey      ; any key = pause?
-    bcc  prout      ;   no: proceed
-    jsr  inch       ;   yes: wait for another key
-prout:
+; patch - remove garbage output when halting print
+;    bcc  prout      ;   no: proceed
+;    jsr  inch       ;   yes: wait for another key
+;prout:
     txa             ; retrieve closing delimiter
     beq  outnl      ; always \n after null delimiter
     jsr  skpbyte    ; skip over the delimiter
@@ -1019,14 +1020,21 @@ getbyte:
 ;    rts
 ;============ 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
-;   return with (cs).
-; 7 bytes
+;   return after next keypress.
+;
 inkey:
     lda  acia_rx    ; Is there a character waiting?
-    bne  inch2      ;   yes: check CTRL-C 
-    clc             ;   no: return with (cc)
+    beq  inkeyr     ;   no: return
+    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
 ; - - - - - - - - - - - - - - - - - - - - - - - - - - ;
 ; Read key from stdin into a, echo, (cs)
@@ -1040,6 +1048,7 @@ inch:
 inch2:
     cmp  #$03       ; ctrl-C?
     bne  outch      ;   no: echo to terminal
+istart:
     jmp  start      ;   yes: abort to "OK" prompt
 ; - - - - - - - - - - - - - - - - - - - - - - - - - - ;
 ; Print ascii char in a to stdout, (cs)