A 2040
MVRD R2,0030
MVRD R3,0039
MVRD R7,0041
MVRD R8,007A
IN 81
SHR R0
SHR R0
JRNC 2048
IN 80
MVRD R1,00FF
AND R0,R1
CMP RO,R2
JRNC 205E
CMP R3,R0
JRNC 2057
OUT 80
JMPA 2048
CMP R0,R7
JRNC 205E
CMP R8,R0
JRNC 205E
OUT 80
JMPA 2048
CALA 2151
RET
A 2151
MVRD R0,0032
CALA 2200
MVRD R0,0030
CALA 2200
MVRD R0,0031
CALA 2200
MVRD R0,0030
CALA 2200
MVRD R0,0020
CALA 2200
MVRD R0,0048
CALA 2200
MVRD R0,0041
CALA 2200
MVRD R0,0050
CALA 2200
MVRD R0,0050
CALA 2200
MVRD R0,0059
CALA 2200
MVRD R0,0020
CALA 2200
MVRD R0,004E
CALA 2200
MVRD R0,0045
CALA 2200
MVRD R0,0057
CALA 2200
MVRD R0,0020
CALA 2200
MVRD R0,0059
CALA 2200
MVRD R0,0045
CALA 2200
MVRD R0,0041
CALA 2200
MVRD R0,0052
CALA 2200
MVRD R0,0021
CALA 2200
RET
A 2200
OUT 80
IN 81
SHR R0
JRNC 2201
RET