0100 ;IDE38F.ASM   04/17/99
0110 ;
0120  *=$FC98  COLDSTART
0130  JMP $E477
0140 ;
0150  *=$FC34  SELECT IDE SEG ^F1
0160  JSR SELNXTHD
0170  JMP $FC6D
0180 ;
0190  *=$FCB5  TOGGLE D2 ^F2
0200  JSR PROCD2
0210  .BYTE $EA,$EA,$EA,$EA
0220  .BYTE $EA,$EA,$EA,$EA
0230  LDA #$00
0240 ;
0250  *=$C31D  KILL ROM CHKSUM
0260  NOP
0270  NOP
0280 ;
0290  *=$D700
0300 ;
0310 INITL1L2
0320  JSR FINDX
0330  JSR SETL1L2
0340  RTS
0350 ;
0360 SELNXTHD
0370  JSR FINDX
0380  JSR INCRX
0390  JSR SETL1L2
0400  RTS
0410 ;
0420 FINDX
0430  LDX #$1C
0440 NXTPARM LDA $D7BC+3,X
0450  AND #$0F
0460  BNE FOUNDX
0470  DEX
0480  DEX
0490  DEX
0500  DEX
0510  BNE NXTPARM
0520 FOUNDX RTS
0530 ;
0540 INCRX
0550  JSR WRITEON
0560  LDA $D7BC+3,X
0570  AND #$F0
0580  STA $D7BC+3,X
0590  TXA
0600  CLC
0610  ADC #$04
0620  AND #$1C
0630  TAX
0640  LDA $D7BC+3,X
0650  ORA #$01
0660  STA $D7BC+3,X
0670  JSR WRITEOFF
0680  RTS
0690 ;
0700 SETL1L2
0710  TXA
0720  LSR A
0730  LSR A
0740  AND #$0F
0750  STA $D140
0760  LDY $D301
0770  RTS
0780 ;
0790 PROCD2
0800  JSR WRITEON
0810  LDA $D7DF
0820  EOR #$02
0830  STA $D7DF
0840  JSR WRITEOFF
0850  JSR FINDX
0860  JSR SETL1L2
0870  LDY $D301
0880  RTS
0890 ;
0900 WRITEON
0910  LDA #$40
0920  STA $D140
0930  RTS
0940 ;
0950 WRITEOFF
0960  LDA #$00
0970  STA $D140
0980  RTS
0990 ;
1000  *=$D7BC
1010  .BYTE $00,$00,$00,$00
1020 HDTABL
1030  .BYTE $00,$00,$06,$01 ;1536SD
1040  .BYTE $00,$06,$06,$00 ;1536SD
1050  .BYTE $00,$0C,$06,$00 ;1536SD
1060  .BYTE $00,$12,$06,$00 ;1536SD
1070  .BYTE $00,$18,$08,$60 ;2048DD
1080  .BYTE $00,$20,$10,$60 ;4096DD
1090  .BYTE $00,$30,$10,$60 ;4096DD
1100  .BYTE $00,$40,$10,$62 ;4096DD
1110  .BYTE $00,$50,$30,$63 ;12K DD
1120  .BYTE $00,$80,$80,$64 ;32K DD
1130  .BYTE $01,$00,$FF,$65 ;64K DD
1140  .BYTE $02,$00,$FF,$66 ;64K DD
1150  .BYTE $03,$00,$FF,$67 ;64K DD
1160  .BYTE $04,$00,$FF,$68 ;64K DD
1170  .BYTE $05,$00,$FF,$60 ;64K SD
1180  .BYTE $06,$00,$FF,$60 ;64K SD
1190 END