lda     SER_cnt         ; check how full the buffer is
          cmp     #$f0            ;better if this is $E0
 ——————>  bcc     IRQ_cleanup <——————
          lda     #%11010101      ; Rx int, no Tx int + RTS high, 8n1, /16
          sta     ACIActl         ; will result in 19200 bps

ACIA_end: TSX                     ; get stack pointer

;28L92 UART RECEIVER INTERRUPT PROCESSING EXCERPT
;
.0000020 lda (siosr,x)         ;get receiver status <-—-—-—-—-—-—-—-—-—-—-—<—-—-—-—-—-—-—-—-—-—-—+
         bit #nxprxdr          ;RHR empty?              <—— checking for incoming datum          |
         beq .0000030          ;yes, done with channel >-—-—-—-—-—-—-—-—-—-—-—>—-—-—-—-—-—-—-—+  |
;                                                                                             |  |     
         lda (siofif,x)        ;no, get datum from RHR                                        |  |
         xba                   ;protect it for now      <—— 65C816-specific instruction       |  |
         lda sioputrx,x        ;get queue ‘put’ pointer                                       |  |
         inc                   ;bump it                                                       |  |
         cmp siogetrx,x        ;any room in queue?                                            |  |
         beq .0000020          ;no, discard datum...                                          |  |
;                                                                                             V  ^     
;        —-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—                  |  |
;        Discarding the datum would only occur if CTS/RTS handshaking wasn’t                  |  |
;        working & the remote station continued sending after RTS had been                    |  |
;        de-asserted.                                                                         |  |
;        —-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—                  |  |
;                                                                                             |  |
         xba                   ;store datum...          <—— 65C816-specific instruction       |  |
         sta (sioputrx,x)      ;in queue                                                      |  |
         inc sioputrx,x        ;adjust ‘put’ pointer &...                                     |  |
         bra .0000020          ;process next datum  >-—-—-—-—-—-—-—-—-—-—-—>—-—-—-—-—-—-—-—-—-|-—+
;                                                                                             |
;        —-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-                   |
;        Our mext step is to determine if we can continue to accept datums                    |
;        from the remote station.  If we can’t, we de-assert RTS & hope the                   |
;        remote station stops transmitting.                                                   |
;        —-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-                   |
;                                                                                             |
.0000030 sec  <-—-—-—-—-—-—-—-—-—-—-—<—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—-—<—-—-—-—-—-—-+
         lda sioputrx,x        ;compute datums...
         sbc siogetrx,x        ;in queue
         cmp #s_siohwm         ;reach queue fill level? (high-water mark, ~80% of queue size)
         bcc .0000040          ;no
;
         lda siotstab,x        ;yes, tell ourselves we’re...
         tsb siorxst           ;deasserting RTS         <—— 65C02/65C816 instruction
         bne .0000040          ;RTS already deasserted
;
         lda #nxpcrrsd         ;tell DUART to de-assert RTS...
         sta (siocr,x)         ;on this channel
;
.0000040 iny                   ;next channel

;blkread: READ FROM SCSI BLOCK DEVICE
;
;   ———————————————————————————————————————————————————————————————————————
;   Synopsis: This function reads one or more blocks from a SCSI block dev-
;             ice, e.g., a disk, into a buffer.  The logical unit number is
;             assumed to be zero.
;
;             § All parameters are pointers to data.
;
;             § The target device's bus ID is a 16-bit quantity, with the
;               MSB set to $00.
;
;             § The logical block address (LBA) is a 32-bit quantity, even
;               though the target device may not require or accept a 32-bit
;               LBA.
;
;             § The number of blocks to be accessed is a 16-bit quantity,
;               with the MSB set to $00.  The maximum number of blocks that
;               may be accessed is 127 ($007F).  If this field is $0000, no
;               operation will occur & this function will immediately ret-
;               urn without an error.
;
;             § The buffer address is expressed as 32-bits, with the MSB of
;               the MSW set to $00.  The buffer must be of sufficient size
;               to hold the requested number of blocks multiplied by the
;               device's block size.  The device's block size may be det-
;               erminded with a call to the SSPARMG BIOS API to load the
;               device's enumerated features.
;
;             § If the buffer pointer is null, the buffer pointer set by a
;               previous call to the SSBUFS BIOS API is assumed to have
;               been made.  It is recommended this sequence be used if rep-
;               itive accesses are to be made to the same buffer.  Doing so
;               will avoid the overhead of a BIOS API call on each access
;               to set the buffer pointer.  Use this feature with caution!
;
;             § The target SCSI device must have been enumerated during the
;               system POST.
;   ———————————————————————————————————————————————————————————————————————
;   Invocation example: pea #buf >> 16         ;buffer pointer MSW
;                       pea #buf & $ffff       ;buffer pointer LSW
;                       pea #nblk >> 16        ;block count pointer MSW
;                       pea #nblk & $ffff      ;block count pointer LSW
;                       pea #lba >> 16         ;LBA pointer MSW
;                       pea #lba & $ffff       ;LBA pointer LSW
;                       pea #scsi_id >> 16     ;device ID pointer MSW
;                       pea #scsi_id & $ffff   ;device ID pointer LSW
;                       .IF .DEF(_SCSI_)
;                       jsl blkread
;                       .ELSE
;                       jsr blkread
;                       .ENDIF
;                       BCS ERROR
;
;   Exit registers: .A: entry value ¹
;                   .B: entry value ²
;                   .X: entry value
;                   .Y: entry value
;                   DB: entry value
;                   DP: entry value
;                   PB: entry value
;                   SR: nvmxdizc
;                       ||||||||
;                       |||||||+———> 0: okay
;                       |||||||      1: error
;                       +++++++————> entry value
;
;   Notes: 1) One of the following if an error:
;
;               e_ptrnul: null pointer passed
;               e_ssabt : transaction aborted
;               e_ssblk : too many blocks
;               e_sschk : check condition
;               e_sscfe : controller FIFO error
;               e_sscge : controller general error
;               e_sscmd : illegal controller command
;               e_ssdne : device not enumerated
;               e_ssdnp : device not responding
;               e_sssnr : SCSI subsystem not ready
;               e_sstid : device bus ID out of range
;               e_ssubp : unsupported bus phase
;               e_ssubr : unexpected bus reset
;               e_ssucg : unsupported command group
;               e_ssudf : unsupported driver function
;               e_ssudt : unsupported device type
;
;          2) $00 if an error.
;   ———————————————————————————————————————————————————————————————————————