;       CheckPrinter v0.38
;       (alert-requester)
;       DevPac-Version
;       Istvan 'Isy' Bognar


CheckPrinter:

        lea.l  $bfd000,a0        
        move.l (a0),d0          
        and.b  #%111,d0         
        cmp.w  #$ff00,d0        
        beq.s  NoPaper          
        cmp.w  #$fd00,d0        
        beq.s  OffLine          
        cmp.w  #$fc00,d0        
        beq.s  OnLine           
        rts

OffLine:
        moveq #0,d4             
        jsr   requester           
        rts

OnLine: moveq #1,d4             
        jsr   requester           
        rts

NoPaper:
        moveq #2,d4             
        jsr   requester            
        rts


requester:
        move.l 4,a6 
        lea    intname,a1          
        jsr    -408(a6)
        move.l d0,intbase       
        move.l intbase,a6       
        cmp    #2,d4               
        lea    NoPaper_text,a0
        beq    mark
        cmp    #1,d4
        lea    OnLine_text,a0
        beq    mark
        cmp    #0,d4
        lea    OffLine_text,a0
mark:   move.l #1,d0
        move.l #55,d1
        jsr    -90(a6)
        move.l 4,a6
        move.l intbase,a1       
        jsr    -414(a6)
        rts


OffLine_text:
        dc.b 1,10
        dc.b ' printer is offline !',0

OnLine_text:
        dc.b 1,10
        dc.b ' printer is online !',0

NoPaper_text:
        dc.b 3,10
        dc.b ' no paper or printer is turned off !',0


intbase: dc.l 0

buffer:  dc.b 80,0

intname: dc.b 'intuition.library',0