IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

LOC OBJ LINE SOURCE
~EB.a
£BI0 881EOO a2b MOV aX.OFFSET KB_BUFFER ; RESET BUFFER TO EMPTY
EBll 891ElADO 2027 MOV BUFFER_HEAD .aX
EB17 891E1COQ 2028 MOV BUFfER_TAIL,ex
EBIS C6067l0060 202~ MOV BIOS_BREAK.SOH ; TURN ON BIOS_BREAK BIT
EBZO CDIS 2030 INT lB. ; BREAK IUTERRUPT VECTm
E822 B80000 2031 NOV AX. 0 ; PUT OUT Dut1HY CHARACTER
E825 £98400 2032 JMP K57 ; BUFFERJIll
201l
2034 K39: I NO-BREAK
EB28 3e45 203-5 CHP AL. HUH_KEY ; LOOK FOR PAUSE KEY
E82A 7521 2036 .... K41
; NO-PAUSE
E5ze 800E180006 2037 O' KBJLAG_l,HOLD_STATE I TURN ON THE HOLD FLAG
Ea31 B020 203a MOV AL.EO! ; ENO Of INTERRUPT TO CONTROL PORT
E833 £620 2039- OUT 020H •.u ....
; ALLOW FURTHER KEYSTROKE IHTS
Z041 ; ------ DURING PAUSE INTERY.AL. TtmN CRT BACK ON
2042:
E835 803£49Q007 2043- CMP CRT_I100E.7 J IS THIS BLACK AND WHITE CARD
EalA 7407 2044 JE K4. J YES, NOTHING TO DO
EBle BAOSQl 2045 MOV DX,03DSH I PORT FOR COLOR CARD
EB1F A06500 204ft AL.CRT_HOOE_SET , GET THE VALUE OF THE CLRRENT tlDDE
""V
EB4Z EE 2047 OUT DX.AL ; SET THE CRT MODE, SO TRAT CRT IS ON
EB43 2048 K40: i PAUSE-lOOP
•••
EM3 F606180008 2049 TEST KBJLAG_l.H.OlO_STATE
EM8 75f9 2050 JHZ ; lOOP UNTIL FLAG TURNED OfF
eB4A E'H6FF 2Ul JMP .27 l INTERRUPT_RETURN_HD_EOI
E840 2052 K41: j NO-PAUSE"
2053
2054 j ------ TEST SPECIAL CASE KEY 55
2055
EB40 3C37 2056 CHP AL.S5
EB4f 7506 2057 JNE '4Z
J HOT-KEY-55
EBS1 8&4072 2058 MOV AX, 114*256 I START/STOP PRINTING SWITCH
EB54 £98500 2059 JMP '57 ~ BUFFER_FILL
z060
2061 ; ------ SET UP TO TRANSLATE CONTROL SHIFT
Z062
~EB57 2063 K42: ; NOT-KEY-55
f857 BB92ES 2064 NOV BX, OFFSET K8 ; SET UP TO TRANSLATE CTL
EeSA 3C3B 2065 tMP Al.59 ; IS IT IN TABLE
ES5C 7303 ....
JAE K43 ; CTl-TABLE-TRANSLATE
E8SE E87890 2067 JMP K56 ; YES. GO TRANSLATE CHAR
....
'861 K43: J tTL-TABLE-TRANSLATE
EB61 B8CCe8 2069 ""V BX,OFfSET 1