|
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: 3556 (0xde4)
Types: s3xseg
Names: »S$EKB4«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$EKB4«
MACRO 00010000
$EKB4 00020000
TEXT 00030000
*********************************************************************** 00040000
* D S M K E Y B O A R D I O B S Y M B O L S * 00050000
*********************************************************************** 00060000
SPACE 2 00070000
* CONSOLE Q-BYTE 00080000
SPACE 1 00090000
CIOQ EQU 0 Q BYTE 00100000
SPACE 1 00110000
KEYBRD EQU X'10' KEYBOARD Q CODE 00120000
SPACE 1 00130000
* CONSOLE R-BYTE 00140000
SPACE 1 00150000
CIOR EQU CIOQ+1 R BYTE 00160000
SPACE 1 00170000
RESPCK EQU X'10' RESET PARITY CHECK 00180000
LOCK EQU X'08' LOCK KEYBOARD 00190000
UNLOCK EQU X'04' UNLOCK KEYBOARD (LITE KEYB RDY) 00200000
ENABLE EQU X'02' ENABLE KEYBOARD INTERRUPTS 00210000
RESET EQU X'01' RESET INTERRUPT LEVEL 00220000
SPACE 1 00230000
* CONSOLE SENSE BYTES 00240000
SPACE 1 00250000
CIOSN1 EQU CIOR+1 SENSE BYTE NUMBER 1 00260000
SPACE 1 00270000
* CODE FOR KEY PRESSED ---- DATA KEY TRANSLATED TO EBCDIC 00280000
ENTERM EQU X'02' ENTER MINUS KEY 00290000
ERASE EQU X'03' FIELD ERASE KEY 00300000
TAB EQU X'05' TAB KEY 00310000
INQREQ EQU X'11' INQUIRY REQUEST 00320000
RETURN EQU X'15' RETURN KEY 00330000
BACKSP EQU X'16' BACKSPACE KEY 00340000
PROGST EQU X'81' PROGRAM START KEY 00350000
ENTERP EQU X'91' ENTER PLUS KEY 00360000
ENDKEY EQU X'80' INPUT END INDICATOR 00370000
SPACE 1 00380000
CIOSN2 EQU CIOR+2 SENSE BYTE NUMBER 2 00390000
SPACE 1 00400000
SNSPCK EQU X'80' PARITY CHECK 00410000
SNSDAT EQU X'40' DATA KEY 00420000
SNSCOM EQU X'20' COMMAND KEY 00430000
SNSFUN EQU X'10' FUNCTION KEY 00440000
SNSWTC EQU X'08' WORLD TRADE BIT 00450000
SNSTYP EQU X'02' TYPAMATIC FUNCTION 00460000
SPACE 1 00470000
* CONSOLE OPERATION LENGTH AND CONTROL COUNT BYTES 00480000
SPACE 1 00490000
CIOCNT EQU CIOSN2+1 LENGTH OF INPUT 00500000
CIOCRT EQU CIOCNT+1 CONTROL COUNT 00510000
SPACE 1 00520000
* CONSOLE OPERATION FLAG BYTE 00530000
SPACE 1 00540000
CIOFLG EQU CIOCRT+1 FLAG BYTE 00550000
SPACE 1 00560000
KBRDY EQU X'40' KETBOARD IS READY 00570000
NUMFLD EQU X'08' NUMERIC FIELD 00580000
DISPLY EQU X'02' DISPLAY MODE (OFF BLIND KEY ) 00590000
MANMOD EQU X'01' MANUAL MODE 00600000
SPACE 1 00610000
* CONSOLE COMPLETION CODE 00620000
SPACE 1 00630000
CIOCOM EQU CIOFLG+1 COMPLETION CODE 00640000
SPACE 1 00650000
COMOK EQU X'40' NORMAL (FUNCTION OR COMMAND KEY) 00660000
COMNA EQU X'44' NOT ALLOWED (CHAR IN NUM. FIELD) 00670000
COMBUF EQU X'45' BUFFER FULL 00680000
COMERR EQU X'46' PARITY CHECK ERROR 00690000
SPACE 1 00700000
* CONSOLE BUFFER AND DTF ADDRESSES 00710000
SPACE 1 00720000
CIOBUF EQU CIOCOM+2 BUFFER ADDRESS 00730000
CIODTF EQU CIOBUF+2 DTF ADDRESS 00740000
SPACE 1 00750000
* CONSOLE ADDITIONAL SYMBOLS 00760000
SPACE 1 00770000
CIOB EQU 4 IOB DISPACEMENT FROM $@COIH 00780000
SPACE 1 00790000
* CONSOLE IOB OFFSETS USING $@COIH AS BASE ADDRESS 00800000
SPACE 1 00810000
KMQ EQU CIOB+CIOQ Q BYTE 00820000
KMR EQU CIOB+CIOR R BYTE 00830000
KMSN1 EQU CIOB+CIOSN1 SENSE BYTE 1 00840000
KMSN2 EQU CIOB+CIOSN2 SENSE BYTE 2 00850000
KMCNT EQU CIOB+CIOCNT INPUT LENGTH 00860000
KMCRT EQU CIOB+CIOCRT CONTROL COUNT 00870000
KMFLG EQU CIOB+CIOFLG FLAG BYTE 00880000
KMCOM EQU CIOB+CIOCOM COMPLETION CODE 00890000
KMBUF EQU CIOB+CIOBUF BUFFER ADDRESS 00900000
KMDTF EQU CIOB+CIODTF DTF ADDRESS 00910000
SPACE 1 00920000
MEND 00930000