; EDYTOR DUSZKOW 1991, 2011 (MODYFIKACJE SPACEPATROL)›; + I/O + errors››;›; ACTION! RUNTIME-PACKAGE PART I›;›;(C) MCMXC by Mirage Software Ltd.›;››PROC RUDIV2=*()›[$85 $86 $87 $38 $A9 $00 $E5 $86 $A8 $A9 $00 $E5 $87 $AA $98 $60]››PROC RUMLT0=*()›[$F0 $1B $CA $86 $C1 $AA $F0 $15 $86 $C0 $A9 $00 $A2 $08 $0A $06 $C0 $90 $02 $65 $C1 $CA $D0 $F6 $18 $65 $87 $85 $87 $A5 $86›$A6 $87 $60]› ›PROC RUMLT1=*()›[$86 $C2 $E0 $00 $10 $03 $20 RUDIV2 $85 $82 $86 $83 $A5 $85 $10 $0E $AA $45 $C2 $85 $C2 $A5 $84 $20 RUDIV2 $85 $84 $86 $85›$A9 $00 $85 $87 $60]››PROC MULT=*()›[$20 RUMLT1 $A6 $82 $F0 $1B $86 $C0 $A6 $84 $F0 $15 $CA $86 $C1 $A2 $08 $0A $26 $87 $06 $C0 $90 $06 $65 $C1 $90 $02 $E6  ›$87 $CA $D0 $F0 $85 $86 $A5 $82 $A6 $85 $20 RUMLT0 $A5 $83 $A6 $84 $20 RUMLT0]››PROC RUDIV=*() ›[$A4 $C2 $10 $03 $4C RUDIV2 $60]››PROC DIV=*()›[$20 RUMLT1 $A5 $85 $F0 $27 $A2 $08 $26 $82 $26 $83 $26 $87 $38 $A5 $83 $E5 $84 $A8 $A5 $87 $E5 $85 $90 $04 $85 $87 $84    ›$83 $CA $D0 $E7 $A5 $82 $2A $A2 $00 $A4 $83 $84 $86 $18 $90 $1D $A2 $10 $26 $82 $26 $83 $2A $B0 $04 $C5 $84 $90 $03 $E5  ›$84 $38 $CA $D0 $EF $26 $82 $26 $83 $85 $86 $A5 $82 $A6 $83 $A4 $C2 $10 $10 $85 $84 $86 $85 $38 $A9 $00 $E5 $84 $A8 $A9  ›$00 $E5 $85 $AA $98 $60]››PROC MODULO=*()›[$20 DIV $A5 $86 $A6 $87 $60] ››PROC RRSH=*()›[$A4 $84 $F0 $0A $86 $85 $46 $85 $6A $88 $D0 $FA $A6 $85 $60]››PROC RLSH=*()›[$A4 $84 $F0 $0A $86 $85 $0A $26 $85 $88 $D0 $FA $A6 $85 $60] ››PROC PARA=*()›[$85 $A0 $86 $A1 $84 $A2 $18 $68 $85 $84 $69 $03 $A8 $68 $85 $85 $69 $00 $48 $98 $48 $A0 $01 $B1 $84 $85 $82 $C8 $B1 $84   ›$85 $83 $C8 $B1 $84 $A8 $B9 $A0 $00 $91 $82 $88 $10 $F8 $A5 $11 $D0 $05 $E6 $11 $6C $0A $00 $60]››SET $4E4=RLSH›SET $4E6=RRSH›SET $4E8=MULT›SET $4EA=DIV›SET $4EC=MODULO›SET $4EE=PARA››PROC _ERROU=*()›[$A9$70$AA$A9$0C$9D$42$03$20$56$E4$8A›$38$E9$10$D0$F1$6C$0A$00]››PROC _ERRVEC=*()›[_ERROU]››PROC _DEVIC=*()›[$00]›››;       ACTION! Library›;    Supplement to RTPI.ACT›;(C) MCMXC by Mirage Software Ltd.››; OPEN›; CLOSE›; GRAPHICS›; PUTDE›; PUTD›; _GETD›; MOVEBLOCK›; SETBLOCK›; ZERO››MODULE› CARD Error=_ERRVEC› BYTE device=_DEVIC››PROC _GOCIO=*()›[$20$56$E4$10$1A$C0$88$F0$06$68$68$98›$6C _ERRVEC $48$8A$48$4A$4A$4A$4A$AA›$A9$01$9D$C0$05$68$AA$68$60]›››PROC _LODCHN=*()›[$C9$08$90$07$68$68$A9$86$6C _ERRVEC›$0A$0A$0A$0A$AA$60]›››PROC _STONAM=*()›[$18$69$01$9D$44$03$98$69$00$9D$45$03›$60]›››PROC _SHFTR=*()›[$48$8A$A8$68$AA$AD _DEVIC $60]››› PROC _CLREOL=*()› [$48$A9$00$85$A5$68$60]››› PROC _SETEOL=*()› [$48$A9$01$85$A5$68$60]››› PROC _PRECON=*()› [$8A$48$98$AA$68$A0$03$84$A3$A0$FD$60]››PROC Open=*(BYTE d CARD s BYTE m, a)›[$86$A1$20 _LODCHN $A5$A1$20› _STONAM $A5$A3$9D$4A$03$A5$A4$9D$4B›$03$A9$03$9D$42$03$20 _GOCIO $8A$4A›$4A$4A$4A$AA$A9$00$9D$C0$05$60]››PROC Close=*(BYTE d)›[$20 _LODCHN $A9$0C$9D$42$03$20›_GOCIO $60]››››PROC MOVEBLOCK=*(CARD DK,SK,IL)›[$85 $A0 ;    STA $A0› $86 $A1 ;    STX $A1› $84 $A2 ;    STY $A2› $A0 $00 ;    LDY #$00› $A5 $A5 ;    LDA $A5› $F0 $16 ;    BEQ TAM› $B1 $A2 ;N1  LDA ($A2),Y› $91 $A0 ;    STA ($A0),Y› $C8     ;    INY › $D0 $F9 ;    BNE N1› $E6 $A1 ;    INC $A1› $E6 $A3 ;    INC $A3› $C6 $A5 ;    DEC $A5› $D0 $F1 ;    BNE N1› $F0 $05 ;    BEQ TAM› $B1 $A2 ;N2  LDA ($A2),Y› $91 $A0 ;    STA ($A0),Y› $C8     ;    INY › $C4 $A4 ;TAM CPY $A4› $D0 $F7 ;    BNE N2›]RETURN››PROC SETBLOCK=*(CARD SK,IL BYTE CO)[› $85 $A0 ;    STA $A0› $86 $A1 ;    STX $A1› $84 $A2 ;    STY $A2› $A0 $00 ;    LDY #$00› $A5 $A3 ;    LDA $A3› $F0 $14 ;    BEQ TAM› $A5 $A4 ;N1  LDA $A4› $91 $A0 ;    STA ($A0),Y› $C8     ;    INY › $D0 $F9 ;    BNE N1› $E6 $A1 ;    INC $A1› $C6 $A3 ;    DEC $A3› $D0 $F3 ;    BNE N1› $F0 $05 ;    BEQ TAM› $A5 $A4 ;N2  LDA $A4› $91 $A0 ;    STA ($A0),Y› $C8     ;    INY › $C4 $A2 ;TAM CPY $A2› $D0 $F7 ;    BNE N2›]RETURN››PROC ZERO(CARD SK,IL)› SETBLOCK(SK,IL,0)›RETURN››PROC Sound=*(BYTE c, p, d, v)›[$C9$04$B0$25$86$A1$0A$AA$A9$00$8D$08›$D2$A9$03$8D$0F$D2$A5$A3$29$0F$85$A3›$98$29$0E$0A$0A$0A$0A$05$A3$9D$01$D2›$A5$A1$9D$00$D2$60]››PROC Poke=*(CARD a BYTE v)›[$85$A0$86$A1$98$A0$00$91$A0$60]›››PROC PokeC=*(CARD a, v)›[$20 Poke $C8$A5$A3$91$A0$60]››;BYTE FUNC Peek=*(CARD a)›CARD FUNC PeekC=*(CARD a)›[$85$A2$86$A3$A0$00$B1$A2$85$A0$C8$B1›$A2$85$A1$60]››BYTE FUNC STrig=*(BYTE p)›[$29$03$AA$BD$84$02$85$A0$60]›››MODULE››