;Reading at top level in Lisp Listener 1. ;Reading in base 10 in package AUSCOM with standard Zetalisp readtable. (main) *VERBOSE* = T print messages (verbose) *AS_DE* = T present DE on power up (set async device end flag) *BRSTFLG* = T burst mode (i.e. not byte mode) *WCOUNT* = 16 word count *SUBCH* = 1 subchannel address *HSP* = NIL high speed *SNGL* = T single DMA transfers (vs multiple) *SWP* = NIL swap data bytes (vs no swap) RESET MASTER CONTROL CLEARING REGISTER ARRAY WRITE MINIT init8259 Loading KIWI control store VERIFY KIWI CONTROL STORE STARTING MICROPROCESSOR 8X305 EXECUTING Initializing valid address RAM Zero 256x1 and Status RAM Initializing 256x1 status RAM Initialization complete. 8600 online Entering interrupt poll loop KIWIDEV RTNREG #xC4 REDY 1 ONL 1 ERRB 0 CRCV 0 ENDP 1 RDCP 0 WRCP 0 Ending presented KIWIDEV RTNREG #xC8 REDY 1 ONL 1 ERRB 0 CRCV 1 ENDP 0 RDCP 0 WRCP 0 Write command received KIWIDEV RTNREG #xED REDY 1 ONL 1 ERRB 1 CRCV 1 ENDP 1 RDCP 0 WRCP 1 ****error**** RTNREG has ERRB set ERR1: Stop on write ERR1: Odd byte write write complete length = 9 bytes DATA = "" EBCDIC-> "" also ending presented also command received Write command received KIWIDEV RTNREG #xED REDY 1 ONL 1 ERRB 1 CRCV 1 ENDP 1 RDCP 0 WRCP 1 ****error**** RTNREG has ERRB set ERR1: Stop on write ERR1: Odd byte write write complete length = 9 bytes DATA = "p`P@0 " EBCDIC-> "-& " also ending presented also command received Read command received KIWIDEV RTNREG #xE0 REDY 1 ONL 1 ERRB 1 CRCV 0 ENDP 0 RDCP 0 WRCP 0 ****error**** RTNREG has ERRB set ERR0: Selective Reset Not a valid or immediate command. #: Register contents: KIWIDEV FLAG0 #xFC MULCOM 1 ADDCOM 1 RTNREG 1 WDCNT 1 BFSZL 1 BFSZU 1 FLAG1 0 FLAG0 0 KIWIDEV FLAG1 #xFF BFADL 1 BFADM 1 BFADU 1 MINI 1 CHADD 1 COMSTA 1 ERR0 1 ERR1 1 KIWIDEV MULCOM #x00 RQRD 0 GO 0 CSTA 0 C256 0 ENDG 0 READ 0 WRIT 0 KIWIDEV ADDCOM #x00 OFLN 0 ONLN 0 A256 0 WRIN 0 WRVL 0 KIWIDEV RTNREG #xE0 REDY 1 ONL 1 ERRB 1 CRCV 0 ENDP 0 RDCP 0 WRCP 0 KIWIDEV WDCNT #x10 KIWIDEV BFSZL #x05 KIWIDEV BFSZU #x00 KIWIDEV BFADL #x00 KIWIDEV BFADM #xE0 KIWIDEV BFADU #x0E KIWIDEV MINIT #x28 STK 0 ODD 1 DEOI 0 SNGL 1 HSP 0 SWP 0 DIIM 0 KIWIDEV CHADD #x01 KIWIDEV COMSTA #x0C KIWIDEV ERR0 #x20 HALT 0 CHRE 0 SERE 1 BPER 0 DVNR 0 ZFWA 0 NEXM 0 OFFL 0 KIWIDEV ERR1 #x00 INCV 0 CPAR 0 STKS 0 EFNX 0 ODBY 0 STRD 0 STWR 0 CTBD 0 KIWIDEV MC #x88 8XRUN 1 DWNLD 0 CSRWE 0 STEP 0 KIWIDEV DISPLAY is write only: KIWIDEV OFFLINE-BUS-OUT is write only: KIWIDEV OFFLINE-BUS-IN #x70 KIWIDEV OFFLINE-TAG-OUT is write only: ADRO HLDO SELO CMDO SRVO DATO SUPO BPAR KIWIDEV OFFLINE-TAG-IN #x00 ADRI 0 OPLI 0 SELI 0 STAI 0 SRVI 0 DATI 0 REQI 0 BPAR 0 KIWIDEV DOWNLOAD-REGISTER-LSB #x28 KIWIDEV DOWNLOAD-REGISTER-MSB #xE2 KIWIDEV PIC1 #xFF KIWIDEV PIC2 #xEF KIWIDEV RTNREG #xA0 REDY 1 ONL 0 ERRB 1 CRCV 0 ENDP 0 RDCP 0 WRCP 0 ****error**** RTNREG has ERRB set ERR0: Channel Reset RTNREG has ERRB set ERR0: Channel Reset