Listing of file='ALIGN.SRC;01' on disk='vmedia/chip_129-sector.ccvf'
;VERSION 4
;ALIGN 19.MARCH 1981
;TRACK 11(H)
ORG 9000H
VTP EQU 1E94H
POUND EQU 1EB1H
STEPS EQU 1EC0H
OSTR EQU 182AH
WATL EQU 185FH
TDRV EQU 80E6H
DFUN EQU 80F2H
HISPD EQU 1BBFH
READY EQU 7700H
START: LXI H,MESS ;MESSAGE
CALL OSTR
;MAIN PROG
LDA DFUN ;GET DEFAULT
ANI 0FH
STA TDRV ;INITIALISE
DI
CALL POUND ;RESET
CALL VTP
MVI A,11H ;SUPPOSED TRACK 16
CALL STEPS
MVI A,30H
CALL WATL ;HEAD SETTLE
CALL HISPD
;GAP SEEK
FG1: IN 0
MVI B,4
FG2: IN 3
ANI 8
JNZ FG1
DCR B
JZ YESOK
MVI A,0F1H
DELAY: DCR A
JNZ DELAY
JMP FG2
YESOK: CALL READ
CPI 55H
JNZ YESOK
CALL READ
;HAVE TRACK. NOW DISPLAY ON SCREEN
LXI H,READY
PUSH PSW
RRC
RRC
RRC
RRC
CALL LHXD
POP PSW
CALL LHXD
JMP YES
LHXD: CALL B2HEX
MOV M,A
INX H
INX H
RET
B2HEX: ANI 0FH
ADI 90H
DAA
ACI 40H
DAA
RET
YES: JMP YES ;MAIN PROG
READ: IN 3
ANI 8
JZ READ
IN 0
RET
MESS: DB 6,2,0CH,0FH,'TRACK SELECT 17'
DB ' HEX=11',3,5,14,'(HEX) FOUND'
DB 6,3,3,30,14,'READY',3,65,0,0EFH
END START