TRACKERS MB SRC EN INSTALL

O*U+,Q-

db 0feh dw begin dw einde dw start org 0d900h

SNGPAG EQU 1 EDTPAG EQU 2 DSKPAG EQU 3 EM1PAG EQU 4 EM2PAG EQU 5 VOCPAG EQU 6 SMPPAG EQU 7

begin: subs: PUSH AF IN A,(0FDh) LD (LSTBNK),A LD A,SMPPAG OUT (0FDh),A POP AF CALL 04000h LD A,(LSTBNK) OUT (0FDh),A RET

subs2: PUSH AF IN A,(0FDh) LD (LSTBNK2),A LD A,VOCPAG OUT (0FDh),A POP AF CALL 04000h LD A,(LSTBNK2) OUT (0FDh),A RET

subs3: PUSH AF IN A,(0FDh) LD (LSTBNK3),A LD A,DSKPAG OUT (0FDh),A POP AF CALL 04000h LD A,(LSTBNK3) OUT (0FDh),A RET

LSTBNK: DB 0 LSTBNK2:DB 0 LSTBNK3:DB 0 start: CALL SRCFMP CALL STPDRV LD A,EDTPAG OUT (0FDh),A LD A,SNGPAG OUT (0FEh),A DI LD A,(0F342h) LD H,040h CALL 024h JP 04000h

Name

FMSRCH

Inv

-

Uitv

(FMSLOT) contains slot no. or & HFF if no PAC found

Modifies

AF,BC,DE,HL

SRCFMP: LD HL,0FCCAh XOR A LD B,4 FMLP2: PUSH BC LD B,4 FMLP1: PUSH BC PUSH AF PUSH HL SET 7,A LD H,040h CALL 024h POP HL PUSH HL LD A,(HL) CP 020h CALL Z,FMTEST JP Z,FMFND POP HL POP AF ADD A,4 AND 0Fh INC HL INC HL INC HL INC HL POP BC DJNZ FMLP1 ADD A,1 AND 03h POP BC DJNZ FMLP2 JP SETBAS

FMTEST: LD HL,0401Ch LD DE,FMTEXT LD B,4 FMLP: LD A,(DE) CP (HL) RET NZ INC HL INC DE DJNZ FMLP CP A RET

FMFND: POP HL POP AF POP BC POP BC LD A,0FFh LD (FMSLOT),A LD A,(07FF6h) OR 1 LD (07FF6h),A

SETBAS: DI LD A,(0FCC1h) LD H,040h CALL 024h EI RET

STPDRV: LD B,0 STPDRL: PUSH BC CALL 0FD9FH POP BC DJNZ STPDRL RET

FMTEXT: DEFB "OPLL" FMSLOT: DEFB 0

einde: end

���������������������������������������������������������������������������������������������������