IBM RT Series Hardware Reference Manual page 257

062B B8 AA55
062E 8B 08
0630 BA 55AA
0633 F3/ AB
0635 4F
0636 4F
0637 FO
0638 8B F7
063A 8B CO
063C
063C AD
0630 33 C3
063F 75 22
0641 8B C2
0643 AB
0644 E2 F6
0646 8B CO
0648 FC
0649 46
064A 46
064B 8B FE
0640
0640 AD
064E 33 C2
0650 75 11
0652 AB
0653 E2 F8
0655 FO
0656 4E
0657 4E
0658 8B CO
065A
065A AD
0658 OB CO
0650 75 04
065F E2 F9
0661 EB 11
0663
0663 8B C8
0665 32 E4
0667 OA EO
0669 74 02
066B B4 01
0660
0660 OA C9
066F 74 03
0671 80 C4 02
0674
0674 50
0675 FC
0676 C3
0677
0677 50
0678 52
0679 B6 03
067B B2 C4
0670 B8 020F
0680 E8 0018 R
0683 5A
0684 58
0685 F3/ AB
0687 E8 0001 R
068A 89 lE 0472 R
068E 8E OA
0690 EB E2
0692
0692
0692 8C OA
0694 2B DB
0696
0696 8E C2
0698 2B FF
069A B8 AA55
0690 8B C8
069F 26: 89 05
06A2 BO OF
06A4 26: 8B 05
06A7 33 Cl
06A9 75 14
06AB B9 2000
06AE F3/ AB
06BO 81 C2 0400
06B4 83 C3 10
06B7 80 FE BO
06BA 75 OA
06BC EB 01 90
06BF
06BF 80 FE AO
06C2 74 06
06C4
06C4 01 5E 04
06C7 B8 0000
06CA
06CA C3
06C8
06CB
06CB 9C
06CC FA
06CD lE
06CE E8 ODO 1 R
0601 OA F6
06D3 74 OB
0605
0605 B3 06
0607 E8 0023 R
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
t
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
MOV
MOV
MOV
REP
DEC
DEC
STO
MOV
MOV
POOSTG 2:
- LOOSW
XOR
JNZ
MOV
STOSW
LOOP
MOV
CLO
INC
INC
MOV
POOSTG 3:
- LOOSW
XOR
JNZ
STOSW
LOOP
STD
DEC
DEC
MOV
POOSTG 4:
- LODSW
OR
JNZ
LOOP
jmp
POOSTG ERRO:
- MOV
XOR
OR
JZ
MOV
POOSTG ERR1:
- OR
JZ
ADD
POOSTG ERR2:
- POP
CLD
RET
PODSTG_5:
PODSTG
PUSH
PUSH
mov
MOV
mov
CALL
POP
POP
REP
CALL
ASSUME
MOV
MOV
JMP
ENDP
AX,OAA55H
BX,AX
OX,055AAH
STOSW
01
01
51,01
CX,BP
AX,BX
POOSTG_ERRO
AX,DX
PODSTG 2
CX,BP -
SI
51
01,51
AX,DX
PODSTG_ERRO
51
51
CX,BP
AX,AX
PODSTG ERRO
PODSTG-4
short podst9_err2
CX,AX
AH,AH
CH,CH
POOSTG ERRl
AH,l -
CL,CL
POOSTG ERR2
AH,2 -
BP
AX
DX
dh,3
DL,SEQ_ADDR
aX,020fh
OUT DX
OX -
AX
STOSW
ODS
OS:ABSO
OS: RESET FLAG, BX
OS, DX -
PODSTG_ERR2
; ----- DETERM I NE 5 I ZE OF BUFFER
HOW_BIG
MOV
SUB
FI LL_LOOP:
MOV
SUB
MOV
MOV
MOV
MOV
MOV
XOR
JNZ
PROC NEAR
DX,OS
BX,BX
ES,OX
DI,OI
AX,OAA55H
CX,AX
ES:(DI),AX
AL,OFH
AX, ES: (DII
AX,CX
HOW BIG END
CX,2000H
; LOAD DATA PATTERN
LOAD OTHER DATA PATTERN
FILL WORDS FROM LOW TO
HIGH WITH MAl'.
PO I NT TO LAST WORD
WR I TTEN
SET 0 I R FLAG TO GO DOWN
SET I NDEX REGS. EQUAL
RECOVER WORD COUNT
GO FROM HIGH TO LOW
GET WORD FROM MEMORY
EQUAL WHAT SIB THERE?
GO ERROR EXI T I F NOT
GET 55 DATA PATTERN AND
STORE IN LOC JUST READ
LOOP TILL ALL BYTES DONE
RECOVER WORD COUNT
BACK TO INCREMENT
ADJUST PTRS
, LOW TO HIGH DOING WORDS
; GET A WORD
; SHOULD COMPARE TO OX
; GO ERROR I F NOT
; WR I TE 0000 BACK TO LOC
JUST READ
LOOP TILL DONE
BACK TO DECREMENT
ADJ UST PO I NT ER DOWN TO
LAST WORD WR I TTEN
; GET WORD COUNT
GET WORD
= TO 0000
ERROR I F NOT
LOOP TILL DONE
SAVE BITS I N ERROR
HIGH BYTE ERROR?
SET III GH BYTE ERROR
LOW BYTE ERROR?
SET D I R FLAG BACK TO INC
RETURN TO CALLER
SIMPLE FILL WITH 0000 ON
WARM-START
SAVE
SAVE VALUE
SEQ_AODR
DO IT
RESTORE
RESTORE
RESTORE DS
AND EXIT
REGISTER
SET PNTR TO BUFFER LOC
BASIC COUNT OF OOK
; SET SEG. REG
j
TEST PATTERN
SEND TO MEMORY
PUT SOMETH I NG IN AL
GET PATTERN FROM MEMORY
COMPARE PATTERNS
C REP
C
MOV
STOSW
ADD OX,0400H
BX,16
OH,OBOH
GO END I F NO COMPARE
SET COUNT FOR 8K WORDS
FILL 8K WORDS
POINT TO NEXT 16K BLOCK
BUMP COUNT BY 16KB
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
ADD
CMP
JNZ
JMP
HOW BIG END:
- -CMP
RESUME:
jz
ADD
MOV
HB ERROR EXI T:
- RET
FI LL LOOP
HOW_B I G_ENO
DH,OAOH
hb_error_exit
WORD PTR( BP
II
4), BX
AX,O
ENOP
.
---------------------------------------
; SUBROUT I NES FOR POWER ON D I AGNOST I CS :
; AREA VET ? (BOOOOH)
; 1ST 16KB OK
; SAVE BUFFER FOUND
; T
~i ~
-;ROCEDUR E -
~
iLL -i
~~u;:-
oN;:-
LON~
-TON;:-
i
;-;EC
i
-~No
-oN;:-oR -------
;MORE SHORT TONES (1 SEC) TO INDICATE A FAILURE ON THE PLANAR
;BOARO ,A BAD RAM MOOULE,OR A PROBLEM WITH THE CRT.
; ENTRY REQU I REMENTS:
, DH=NUMBER OF LONG TONES TO BEEP
; DL=NUMBER OF SHORT TONES TO BEEP.
~RR- ~EE;
---PROC ----N
E~R
-------------------------------------------
- PUSHF SAVE FLAGS
CL I 0 I SABLE SYSTEM I NTS
PUSH DS
CALL DDS
ASSUME DS: ABSO
OR DH, DH
JZ G3
C Gl:
ANY LONG TONES TO BEEP
NO, 00 THE SHORT ONES
LONG BEEP
C
C
MOV
CALL
BL,6
BEEP
COUNTER FOR BEEPS
DO THE BEEP
IBM Enhanced Graphics Adapter 117