Upload files to "kernal"

2026-05-07 10:03:27 +12:00
parent 5fd7765f53
commit b978b7a496
26 changed files with 3587 additions and 0 deletions
@@ -0,0 +1,26 @@
+        .segment "NGETIN"
+;***************************************
+;* getin -- get character from channel *
+;*      channel is determined by dfltn.*
+;* if device is 0, keyboard queue is   *
+;* examined and a character removed if *
+;* available.  if queue is empty, z    *
+;* flag is returned set.  devices 1-31 *
+;* advance to basin.                   *
+;***************************************
+;
+ngetin  lda dfltn       ;check device
+        bne gn10        ;not keyboard
+;
+        lda ndx         ;queue index
+        beq gn20        ;nobody there...exit
+;
+        sei
+        jmp lp2         ;go remove a character
+;
+;gn10    cmp #2          ;is it rs-232
+;        bne bn10        ;no...use basin
+gn10	jmp bn10
+;
+gn20    clc             ;good return
+        rts