System information

; MUST BE SECTOR 26, ZERO AND GO TO NEXT TRACK
16FC 3A6A18 LDA IOT ;GET TRACK TO REGISTER A
16FF 3C INR A
1700 4F MOV C,A ;READY FOR CALL
1701 CDA717 CALL SETTRK
1704 AF XRA A ;CLEAR SECTOR NUMBER
1705 3C RD1: INR A ;TO NEXT SECTOR
1706 4F MOV C,A ;READY FOR CALL
1707 CDAC17 CALL SETSEC
170A C1 POP B ;RECALL SECTOR COUNT
170B 05 DCR B ;DONE?
170C C2E116 JNZ RDSEC
;
; DONE WITH THE LOAD, RESET DEFAULT BUFFER ADDRESS
GOCPM: ;(ENTER HERE FROM COLD START BOOT)
; ENABLE RST0 AND RST7
170F F3 DI
1710 3E12 MVI A,12H ;INITIALIZE COMMAND
1712 D3FD OUT REVRT
1714 AF XRA A
1715 D3FC OUT INTC ;CLEARED
1717 3E7E MVI A,INTE ;RST0 AND RST7 BITS ON
1719 D3FC OUT INTC
171B AF XRA A
171C D3F3 OUT ICON ;INTERRUPT CONTROL
;
; SET DEFAULT BUFFER ADDRESS TO 80H
171E 018000 LXI B,BUFF
1721 CDBB17 CALL SETDMA
;
; RESET MONITOR ENTRY POINTS
1724 3EC3 MVI A,JMP
1726 320000 STA 0
1729 210316 LXI H,WBOOTE
172C 220100 SHLD 1 ;JMP WBOOT AT LOCATION 00
172F 320500 STA 5
1732 210608 LXI H,BDOS
1735 220600 SHLD 6 ;JMP BDOS AT LOCATION 5
IF NOT TEST
1738 323800 STA 7*8 ;JMP TO MON80 (MAY HAVE BEEN
;CHANGED BY DDT)
173B 2100F8 LXI H,MON80
173E 223900 SHLD 7*8+1
ENDIF
; LEAVE IOBYTE SET
Appendix A : The MDS-800 BIOS CP/M Operating System Manual
A-7