;THIS IS A QUICK BOOTSTRAP THAT LOADS AT TRACK 0 SECTOR 1 ;IT WILL BE PUT INTO MEMORY AT 0000 BY THE SDPROM BOOTSTRAP DISK READ ;THEN IT WILL BE EXECUTED AND READ IN THE REST OF THE FIRST TWO TRACKS 0038 = MSIZE EQU 56 F000 = PROM EQU 0F000H F02D = LOADER EQU PROM+02DH ;LOADS IN 'N' SECTORS DA00 = BIOS EQU 5A00H+(MSIZE-24)*1024 0045 = NREC EQU 045H ;STORAGE FOR 'N' RECORDS 0043 = SCTR EQU 043H ;STORE FOR CURRENT SECTOR 0040 = TADDR EQU 040H ;STORE FOR TRANSFER ADDRESS 0080 = STACK EQU 0080H ;STACK LOCATION 0033 = NUMBR EQU 051 ;NUMBER OF SECTORS TO LOAD ; 0000 318000 LXI SP,STACK 0003 210200 LXI H,2H ;SET SECTOR TO 2 AND TRACK TO 0 0006 224300 SHLD SCTR 0009 2100C4 LXI H,BIOS-1600H 000C 224000 SHLD TADDR 000F 3E33 MVI A,NUMBR 0011 324500 STA NREC 0014 CD2DF0 CALL LOADER 0017 C300DA JMP BIOS 001A END