|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4318 (0x10de)
Types: s3xseg
Names: »S$EKIO«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$EKIO«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
$EKIO 00040000
TEXT 00050000
*********************************************************************** 00060000
* D S M C O N S O L E I O B S Y M B O L S * 00070000
*********************************************************************** 00080000
SPACE 2 00090000
* CONSOLE Q-BYTE 00100000
SPACE 1 00110000
CIOQ EQU 0 Q BYTE 00120000
SPACE 1 00130000
KEYBRD EQU X'10' KEYBOARD Q CODE 00140000
PRINTR EQU X'18' PRINTER Q CODE 00150000
SPACE 1 00160000
* CONSOLE R-BYTE 00170000
SPACE 1 00180000
CIOR EQU CIOQ+1 R BYTE 00190000
SPACE 1 00200000
* -- PRINTER -- 00210000
PRINT EQU X'80' PRINT A CHARACTER 00220000
NEWLIN EQU X'40' RETURN THE CARRIAGE 00230000
NABLEP EQU X'04' PRINTER; 0 - DISABLED 00240000
* 1 - ENABLED 00250000
* -- KEYBOARD -- 00260000
REQLIT EQU X'20' REQUEST LIGHT: 0-OFF, 1-ON 00270000
PROLIT EQU X'10' PROCEED LIGHT: 0-OFF, 1-/N 00280000
REQKEY EQU X'04' REQUEST KEY: 0-DISABLED 00290000
* 1-ENABLED 00300000
OTRKEY EQU X'02' OTHER KEYS: 0-IDS, 1-EN 00310000
* -- PRINTER AND KEYBOARD -- 00320000
RESET EQU X'01' RESET INTERRUPT LEVEL 00330000
DISABL EQU 0 DISABLE THE DEVICE 00340000
SPACE 1 00350000
* CONSOLE SENSE BYTES 00360000
SPACE 1 00370000
CIOSNS EQU CIOR+2 SENSE BYTES 00380000
SPACE 1 00390000
* -- PRINTER -- 00400000
SNSNOP EQU X'20' NON-PRINTABLE CHARACTER 00410000
SNSEOL EQU X'08' END OF LINE 00420000
SNSFRM EQU X'04' END OF FORMS 00430000
SNSXLT EQU X'02' PRINTER TRANSLATOR CHECK 00440000
SNSMLF EQU X'01' PRINTER MALFUNCTION 00450000
* -- KEYBOARD -- 00460000
SNSENC EQU X'40' END OR CANCEL KEY 00470000
SNSCAN EQU X'20' CANCEL KEY 00480000
SNSEND EQU X'10' END KEY 00490000
SNSRTD EQU X'08' RETURN OR DATA KEY 00500000
SNSRTN EQU X'04' RETURN KEY 00510000
SNSKER EQU X'03' KEYBOARD ERRORS 00520000
SPACE 1 00530000
* CONSOLE OPERATION BUFFER ADDRESS AND CONTROL COUNT 00540000
SPACE 1 00550000
CIOBUF EQU CIOSNS+2 BUFFER ADDRESS 00560000
CIOCTL EQU CIOBUF+1 CONTROL COUNT 00570000
SPACE 1 00580000
* CONSOLE OPERATION FLAG BYTE 00590000
SPACE 1 00600000
CIOFLG EQU CIOCTL+1 FLAG BYTE 00610000
SPACE 1 00620000
FLGIN EQU X'80' INPUT OPERATION 00630000
FLGOUT EQU X'40' OUTPUT OPERATION 00640000
FLGWTR EQU X'C0' WRITE TO OPERATOR W/ REPLY 00650000
FLGSYS EQU X'20' SYSTEM USER INDICATOR 00660000
FLGRQN EQU X'10' REQUEST KEY INPUT 00670000
FLGCMP EQU X'08' COMPLETION POST BIT 00680000
FLGERR EQU X'04' ERROR POST BIT 00690000
FLGEXT EQU X'02' EXACT LENGTH INPUT 00700000
FLGNOP EQU X'01' HALT ON NON-PRINTABLES 00710000
SPACE 1 00720000
* CONSOLE ADDITIONAL CELLS 00730000
SPACE 1 00740000
CIOCNT EQU CIOFLG+1 COUNT FOR OPERATION 00750000
CIODTF EQU CIOCNT+2 DTF (PARM LIST) POINTER 00760000
CIOINQ EQU CIODTF+1 INQUIRY STATUS BYTE 00770000
CIOSAV EQU CIOINQ+1 DATA MANAGEMENT SAVE AREA 00780000
SPACE 1 00790000
* CONSOLE STATUS BYTE 00800000
SPACE 1 00810000
CIOSTS EQU CIOSAV+1 IOB STATUS BYTE 00820000
SPACE 1 00830000
STSNOW EQU X'80' START OP: 0-WAIT 1-RETURN 00840000
STSCHK EQU X'40' ON RECALL: 0-WAIT, 1-CHECK 00850000
STSREN EQU X'20' 0-INITIAL START, 1-RECALL 00860000
STSASM EQU X'10' 0-REGULAR, 1-ASSEMBLER USER 00870000
STSFRM EQU X'08' 0-PAPER OK, 1-END OF FORMS 00880000
STSHLT EQU X'0F' HALT IDENTIFICATION 00890000
SPACE 1 00900000
* CONSOLE ADDITIONAL SYMBOLS 00910000
SPACE 1 00920000
CIONE EQU 26 1 BYTE DC OF X'01' 00930000
CIOPNT EQU 27 RESIDNET PRINT BUFFER 00940000
CIOB EQU 38 IOB DISPACEMENT 00950000
SPACE 1 00960000
* CONSOLE IOB OFFSETS USING $@COIH AS BASE ADDRESS 00970000
SPACE 1 00980000
KMQ EQU CIOB+CIOQ Q BYTE 00990000
KMR EQU CIOB+CIOR R BYTE 01000000
KMSNS EQU CIOB+CIOSNS SENSE BYTES 01010000
KMBUF EQU CIOB+CIOBUF BUFFER ADDRESS 01020000
KMCTL EQU CIOB+CIOCTL CONTROL COUNT 01030000
KMFLG EQU CIOB+CIOFLG FLAG BYTE 01040000
KMCNT EQU CIOB+CIOCNT COUNT FOR OPERATION 01050000
KMDTF EQU CIOB+CIODTF DTF POINTER (PARM LIST) 01060000
KMINQ EQU CIOB+CIOINQ INQUIRY STATUS BYTE 01070000
KMSAV EQU CIOB+CIOSAV DATA MANAGEMENT SAVE AREA 01080000
KMSTS EQU CIOB+CIOSTS IOB STATUS BYTE 01090000
.* 01100000
SPACE 1 01110000
MEND 01120000