; 
DSKINV   = $E453
CIOV     = $E456
SIOV     = $E459
SETVBV   = $E45C
SYSVBV   = $E45F
XITVBV   = $E462
SIOINV   = $E465
SENDEV   = $E468
INTINV   = $E46B
CIOINV   = $E46E
SELFSV   = $E471
WARMSV   = $E474
COLDSV   = $E477
RBLOKV   = $E47A
CSOPIV   = $E47D
PUPDIV   = $E480
SELFTSV  = $E483
PENTV    = $E486
PHUNLV   = $E489
PHINIV   = $E48C
GPDVV    = $E48F
;
; Code equates
;
L0404    = $0404
L4F4D    = $4F4D
L4F4F    = $4F4F
L8400    = $8400
LB022    = $B022
LB065    = $B065
LB0B7    = $B0B7
LB137    = $B137
LB14C    = $B14C
LBC20    = $BC20
LBEEA    = $BEEA
;
; Start of code
;
         *= $B000
;
         LDY #$00
         LDX #$16
LB004    LDA #$00
         STA COUNTR+1,X
         LDA LB0E4,Y
         STA LB0F9,X
         EOR #$FF
         ADC #$14
         STA LB137,Y
         STA LB14C,X
         INY
         DEX
         BNE LB004
         LDY #$0F
LB01E    LDA #$4F
         STA LBC20,X
         INX
         BNE LB01E
         INC LB022
         DEY
         BNE LB01E
         STA GPRIOR
         INY
         STY VNTP
         INY
LB033    LDA LB0B4,Y
         STA LBEEA,Y
         DEY
         BPL LB033
         INY
LB03D    LDA LOMEM
         STA L8400,Y
         LDA LOMEM+1
         ADC #$5B
         STA LOMEM+1
         BCC LB050
         LDA LOMEM
         ADC #$10
         STA LOMEM
LB050    INY
         BNE LB03D
LB053    LDA #$31
         STA VNTP+1
LB057    LDA VCOUNT
         BNE LB057
         LDY #$28
LB05E    STA L4F4F,Y
         DEY
         BPL LB05E
         LDY #$28
         LDA L8400,Y
         STA LOMEM
         LDA LB0E4,Y
         TAX
LB06F    LDA LOMEM
         STA L4F4D,X
         INX
         TXA
         CMP LB0B7,Y
         BNE LB06F
LB07B    LDA LOMEM
         EOR #$FF
         STA L4F4D,X
         INX
         TXA
         CMP LB137,Y
         BNE LB07B
         DEC LB065
         BNE LB093
         LDA #$28
         STA LB065
LB093    LDA VNTD
         ADC #$80
         STA VNTD
         BCC LB0A8
         LDY #$00
LB09D    LDA LB0B7,Y
         ADC VNTP
         STA LB0B7,Y
         INY
         BNE LB09D
LB0A8    DEC VNTP+1
         BNE LB057
         LDA VNTP
         EOR #$FF
         STA VNTP
         BNE LB053
LB0B4    EOR (ICHIDZ,X)
         LDY L0404,X
         .BYTE $04,$04,$05,$05
         .BYTE $05,$05,$06,$06
         .BYTE $06,$07,$07,$07
         .BYTE $08,$08,$08,$09
         .BYTE $09,$09,$0A,$0A
         .BYTE $0B,$0B,$0B,$0C
         .BYTE $0C,$0C,$0D,$0D
         .BYTE $0D,$0E,$0E,$0E
         .BYTE $0F,$0F,$0F,$0F
         .BYTE $10,$10,$10,$11
         .BYTE $11,$11,$11
LB0E4    .BYTE $03,$03,$03,$03
         .BYTE $02,$02,$02,$02
         .BYTE $02,$02,$01,$01
         .BYTE $01,$01,$01,$01
         .BYTE $01,$01,$01,$01
         .BYTE $01
LB0F9    .BYTE $01