Table of Contents
Advertisement
..
~
IBM Personal Computer MACRO Assembler
Version 2.00
1-28
TEST 1 ----
06/10/85
POWER ON SELF TEST
(POST]
06-10-65
2909
2910
;-----
CHECK HORIZONTAL LINE
2911
2912 0844 81
03
E16:
"OV
CL,3
GET NEXT 81T TO CHECK
2913 0846 D2 EC
SHR
AH,CL
2914 0848 15 E4
"NZ
EI2
I CONT INUE
2915 084A
E18:
2916 084A 58
POP
GET VIDEO SENSE SWITCHES (AHI
291 1 084B B4 00
"OV
SET MODE AND
0 I SPLA Y CURSOR
2918 OB4D CD 10
INT
CALL VIDEO
1/0 PROCEDURE
2919
2920
CHECK FOR THE ADVANCED V IDEO CARD
2921
2922 084F SA COOO
EI6
II
"OV
oX ,nCOOOH
SET THE LOW SEGMENT VALUE
2923 0852
EI8A:
2924 0852 80 23
"OV
AL,23H
<> <> <> <><> <><> <> <> <> <> <>
2925 0854 E6 80
OUT
MFG_PORT, AL
<><>
CHECKPO I NT
23
<><>
2926 OB56 8E DA
"OV
OS,DX
2927 OB58 57
PUSH
DI
SAVE WORK REG I S TER
2928 0859 8F AA5S
"OV
Ol,OAA55H
PRESENCE SIGNATURE
2929 OBSC 28 08
sus
BX,8X
CLEAR POINTER
2930 08SE 88 07
"OV
AX, (BX)
GET FIRST 2 LOCATIONS
2931
0860 38 C7
COP
AX,DI
PRESENT?
2932 0862 5F
POP
01
RECOVER REG I S TER
2933 OB63 75 05
"NZ
EI68
NO? GO LOOK FOR OTHER MODULES
2934
2935 0865 E8 0000 E
CALL
ROM CHECK
GO SCAN MODULE
2936 0868 EB 04
SHORT EI8C
""P
2937 086A
EI8BI
2936 086A 81
C2 0060
ADD
ox,
0080H
I
POINT TO NEXT 2K BLOCK
2939 OB6E
EI8C:
2940 OB6E 81 FA CBOO
COP
OX,OCBOOH
TOP OF VIDEO ROM AREA YET?
2941
0872 7C DE
EI8A
GO SCAN FOR ANOTHER MODULE
2942
"L
2943 0874 80 24
"OV
AL,24H
<><><><><><><><><><><><>
2944 OB76 E6 80
OUT
MFG_PORT
I
AL
<><>
CHECKPO I NT
24
<><>
2945
2946 0816 E9 0000 E
POST2
GO TO NEXT TEST
2947
2946
2949
CRT ERROR SET MFG CHECKPO I NT AND ERROR 8EEP
2950
2951
OB78 E8 0000 E
E17:
CALL
DDS
; POINT TO DATA
2952
2953
1-----
CHECKPOINT OC
=
MONOCHROME FAILED
2954
2955 OB7E C6 06 00 15 R OC
"OV
.MFG ERR FLAG,OCH
;
<><>
CRT ERROR CHECKPOINT
OC
<><>
2956 OB83 80 3E 0012 R 64
COP
8YTE-PTR-CiRESET FLAG,064H ;
IS THIS A MFG REQUEST?
2951 OB88 14 00
E 19
-
; BY PASS ERROR SEEP
I
F
YES
""P
"Z
2958 OB8A F6 06 0012 R 20
TEST
.MFG TST ,MFG LOOP
;
I S THE MFG LOOP .JUMPER
INSTALLED?
2959 OBaF 14 06
E 19 -
-
; BY PASS ERROR BEEP IF YES
"Z
2960 0891
BA
a
I
02
"OV
OX, 102H
2961
OB94 E8 0000 E
CALL
ERR_BEEP
, GO BEEP SPEAKER
2962 OB91
E19:
2963 OB97
IE
PUSH
os
:~:;~~UIP
_FLAG
2964 OB98 A'
00 lOR
MOV
GET THE CURRENT
v
IDEO
2965 0898 24 30
AND
STRIP OTHER BITS
2966 OB9D 3C 30
COP
AL,30H
I SIT MONOCHROME ?
2961 089F 74 30
TRY_COLOR
GO IF YES
2968
"Z
2969
COLOR FAILED TRY MONOCHROME -
CHECKPOINT 00
=
COLOR FAILED
2970
2971
08AI
C6 06 0015 R 00
"OV
ClMFG_ERR_FLAG,OOH
<><>
CRT ERROR CHECKPOINT
00
<><>
2972
2973 OBA6 BA 0388
"OV
OX,388H
I DISABLE BfW
2974 OBA9 80 0 I
"OV
AL,I
2975 OBAB EE
OUT
OX,AL
OUTPUT THE
0
I SABLE
2976 08AC 88 BOOO
MOV
BX,OBOOOH
CHECK FOR MONOCHROME
v
IDEO MEMORY
2917 OBAF 8E DB
"OV
OS,8X
2978 OBBI
88 AA55
"OV
AX,OAA55H
WRITE AN AA55
2919 OB84 28 DB
sus
8X , 8X
TO THE FIRST LOCATION
2960 OB86 89 07
"OV
[BX) ,AX
2981
OBB8 EB 00
I
ALLOW BUS TO SETTLE
2982 OBBA 68 01
"OV
AX, [BX)
; READ THE FIRST LOCATiON
""P
'.2
2983 OBBC 3D AA55
COP
AX,OAA55H
;
IS THE MONOCHROME VIDEO CARD THERE?
2984 08BF IF
POP
os
I
RESTORE THE DATA SEGMENT
2985 OBCO 15 55
"NZ
E 17 3
; GO I F NOT
2986 OBC2 81
OE 0010 R 0030
OR
OEQU I P FLAG
I
30H
; TURN ON MONOCHROME BITS IN EQUIP FLAG
2987 08C8 AI
0010 R
"OV
AX,.EQUIP FLAG
; ENABLE V IDEO
2988 OBCB 2A E4
sus
AH,AH
2989 OBCO CD 10
INT
INT VIDEO
2990 08CF EB 34
SHORT Ell
I
CONTINUE
2991
""P
2992
MONOCHROME FA I LEO TRY COLOR
2993
2994 080 \
TRY COLOR
I
2995 aBO I 80 a I
-
MOV
AL,O IH
SET MODE COLOR 40X25
2996 0803 2A E4
SUB
AH,AH
2991 0805 CD
10
INT
INT VIDEO
2996 0807 8A 0308
"OV
OX. ~08H
o
I SABLE COLOR
2999 OBoA 80 00
"OV
AL,O
3000 080c EE
OUT
OX,AL
OUTPUT THE 0 I SABLE
3001
0800 88 8800
"OV
8X,08800H
CHECK FOR COLOR V IDEO MEMORY
3002 08EO 8E 08
"OV
OS,BX
3003 08E2
88
AA55
"OV
AX,OAA55H
WRITE AN AA55
3004 OBE5 28 DB
sus
BX,BX
TO THE FIRST LOCATION
3005 aBEl 89 01
"OV
[BX],AX
3006 OBE9 EB 00
ALLOW BUS TO SETTLE
""P
'.2
3001 OBEB 158 07
"OV
AX, [BX)
READ THE FIRST LOCATION
3008 aBED 3D AA55
COP
AX,OAA55H
IS THE COLOR VIDEO CARD THERE?
3009 OBFO
IF
POP
OS
RESTORE THE DATA SEGMENT
30 1 0 08F I
75 24
"NZ
Ell
3
GO IF NOT
30 I I OBF3 81
26 00 lOR FFCF
AND
OEQO I P FLAG
I
OFFCFH
TURN OFF VIDEO BITS
3012 OBF9 81
OE 0010 R 0010
OR
.EQU I P-FLAG. 'OH
SET COLOR 40X24
3013 oeFF eo 01
"OV
AL.OIH
3014 OCOI
2A E4
SUB
AH,AH
3015 OC03 CD
10
INT
INT_VIDEO
3016 OC05
3017 OC05 58
POP
AX
SET NEW VIDEO TYPE ON STACK
3018 OC06 AI
0010 R
"OV
AX,II'>EQUIP FLAG
3019 OC09 24 30
AND
AL , 30H
3020 aCOB 3C 30
COP
AL.30H
I
IS IT THE B/W1
3021
OCOD 2A CO
sus
AL,AL
3022 OCOF 74 02
EI7 2
GO
IF YES
"Z
TESTl
5-55
Advertisement
Chapters
Table of Contents
