IBM 5170 Technical Reference page 290

0027 75 06
JNZ Cl B
0029
E9 0183 R
JMP BLOCKMOVE MOVE BLOCK
002C E9 0132 R
Cl
A,
-
JMP WAIT WAIT
002F FE CC
Cl
_B:
DEC AH
0031
75 03
JNZ Cl C
0033 E9 0302 R
JMP EXT_MEMORY GO GET THE EXTENDED MEMORY
0036
FE CC
Cl C,
-
DEC
AH
0038 75 03
JNZ Cl 0
CHECK FOR FUNT I ON 89
003A E9 03E6 R
JMP sE'i'_VMODE SWAP TO V I RTUAl MODE
0030 80 EC 07
Cl
0,
-
SUB AH,7 CHECK FOR FUNGT I ON 90
0040 75 03
JNZ Cl
E
GO I F NOT
0042
E9 0475 R JMP DEY ICE_BUSY
0045
FE CC
Cl
_E:
DEC Ali
CHECK FOR FUNCTION 8B
0047
75 03 JNZ Cl GO I F NOT
0049 E9 0479 R
JMP
I NT_COMPLETE
004C
004E
B4 86
F9
Cl : MOV
STC
AH,86H SET BAD COMMAND
SET CARRY FLAG ON
004F
Cl -
F,
004F CA 0002
RET
0052 DEV_OPEN:
0052 DEV_CLOSE:
0052 PROG_TERM:
0052 SYS_REQ:
0052 EB FB
JMP Cl F
; RETURN
0054
CASSETTE
-
10_' ENOP
0054
EVENT WAI T
PRDC NEAR
0054
1E
- ASSUME
PUSH
CS:COOE, OS: DATA
OS
SAVE
0055
E8 0000 E CALL
DDS
0058 F6 06 OOAO R 01 TEST RTC WAIT fLAG,O'
CHECK fOR FUNCTION ACTIVE
0050
005F
74 04
1F
JZ
POP
6~ENT_WATT_l
0060 F9 STC
SET ERROR
0061 EB EC JMP C1J RETURN
0063
EVENT_WAIT_l :
0063 FA CLi ; NO I NTERRUPTS ALLOWED
0064
0066
E4 Al
24 FE
IN
AND
AL,OA1H
AL,OFEH
jENSURE INTERRUPT UNMASKED
0068 E6 Al OUT OA1H,AL
006A 8C 06 009A R
MOV
USER_FLAG_SEG, ES SET UP TRANSFER TABLE
006E 89 1 E 0098 R MOV USER_FLAG, BX
0072 89 DE 009E R
MOV
RTC HIGH,CX
0076
007A
89 16 009C R
C6 06 OOAO R 01
MOV
MOV
RTC::::LOW,
ox
RTC WAIT FLAG,Ol SET ON FUNCT I ON ACT I VE SW ITCH
007F BO OB MOV
AL, aBH -
ENABLE PI E
0081 E6 70 OUT CMOS PORT, AL
0083 E4 71 IN AL,CMOS_PORT+1
0085 24 7F AND AL,07FH
0087 DC 40 OR AL,040H
0089
50
PUSH
AX
abBA
008C
008E
008F
ao
OB
E6 70
5'
E6 71
MOV
OUT
POP
OUT
Al,OBH
CMOS PORT, AL
AX -
CMOS_PORT+l,Al
0091 FB STI ENABLE INTERRUPTS
0092 1F POP OS
0093
EB BA
JMP Cl_F
0095
EVENT_WAIT ENOP
j - - -
JOY_ST I CK
~--------------
---------------- ----------------- ­
; THIS ROUTINE WILL READ THE JOYSTICK PORT
INPUT
lDX)=O READ THE CURRENT SWI TCHES
RETURNS (AL)= SWITCH SETTINGS IN BITS 7-4
lDX)=l READ THE RESISTIVE INPUTS
RETURNS (AX)=A(x) VALUE
(BX)=A(;r) VALUE
(CX)=B(x) VALUE
(OX)=B(;r) VALUE
CY FLAG ON I f NO ADAPTER CARD OR I NVAL I 0 CAll
ASSUME CS: CODE
0095
JOY_ST I CK
PROC NEAR
0095 FB STI I NTERRUPTS SACK ON
0096
68 C2
MOV
AX,DX GET SUBFUNCT I ON CODE
0098
BA 0201
MOV DX,201H ADDRESS OF PORT
009B OA CO
OR
AL,Al
0090 74 09 JZ
JOY_2 READ SWITCHES
D09F
FE C8
DEC AL
OOAl 74 OA JZ JOY_3 READ RESISTIVE INPUTS
00A3 EB A7
JMP Cl
GO TO ERROR RETURN
OOA5 JOY_, :
00A5 Fa STI
00A6 EB A7
JMP Cl F
GO TO COMMON RETURN -
00A8 JOY_2:
OOA8 EC IN Al, OX
00A9 24 FO AND AL,OFOH STRIP UNWANTED BITS OFr
OOAB EB F8 JMP JOY_1 FiN ISHED
OOAD JOY_3:
OOAD B3 01
MOV
Bl,l
OOAF E8 OOCB R CALL TEST_CORD
00B2
51
PUSH
CX
SAVE A(X) VALUE
00B3 B3 02 MOV Bl,2
00B5 E8 OOCB R
CAll
TEST_CORD
00B8 51 PUSH
CX
SAVE A(;r) VALUE
00B9 B3 04 MOV Bl,4
OOBB E8 OOCB R
CAll
TEST_CORD
OOBE 51 PUSH
CX
SAVE Six) VALUE
OOBF B3 08
MOV
BL,8
OOCl E8 DOCS R
CAll
TEST CORD
OOC4 8B 01
MOV
DX,CX SAVE 8(y) VALUE
OOC6
59
POP CX
GET SiX) VALUE
OOC7
5B POP BX
GET A(y) VALUE
OOC8
5a
POP AX GET At x) VALUE
OOC9
EB OA
JMP
JOY_1 FIN I SHED - RETURN
OOCB TEST_CORD PROC NEAR
OOCB 52
PUSH
OX
SAVE
5-148 BIOS 1