Synertek Systems Sym-1 machine-specific files

2021-05-09 16:34:53 -05:00
parent 07bd5089ec
commit 6e79379405
23 changed files with 2088 additions and 0 deletions
--- a/libsrc/sym1/write.s
+++ b/libsrc/sym1/write.s
@@ -0,0 +1,53 @@
+; ---------------------------------------------------------------------------
+; write.s
+;
+; for Sym-1
+;
+; Wayne Parham
+;
+; wayne@parhamdata.com
+; ---------------------------------------------------------------------------
+
+.include        "sym1.inc"
+
+.import         popax, popptr1
+.importzp       ptr1, ptr2, ptr3, tmp1
+
+.export         _write
+
+.proc           _write
+; ---------------------------------------------------------------------------
+        sta     ptr3            
+        stx     ptr3+1          ; Count in ptr3
+        inx
+        stx     ptr2+1          ; Increment and store in ptr2
+        tax
+        inx
+        stx     ptr2
+        jsr     popptr1         ; Buffer address in ptr1
+        jsr     popax
+
+begin:  dec     ptr2
+        bne     outch
+        dec     ptr2+1
+        beq     done
+
+outch : ldy     #0
+        lda     (ptr1),y
+        jsr     OUTCHR          ; Send character using Monitor call
+        cmp     #$0A
+        bne     next
+        lda     #$0D            ; If it is LF, add CR
+        jsr     OUTCHR
+
+next:   inc     ptr1
+        bne     begin
+        inc     ptr1+1
+        jmp     begin
+
+done:   lda     ptr3
+        ldx     ptr3+1
+        rts                     ; Return count
+; ---------------------------------------------------------------------------
+.endproc
+