Fast Screen IO#


MODULE


;********************************
;**                            **
;** Phoenix SoftCrew ACTION!   **
;** Programms and Tips f. 8Bit **
;**                            **
;** Carsten Strotmann          **
;**                            **
;********************************

; Programname:Write    
; done by:Carsten Strotmann
; Filename:WRITE.ACT
; first Version:21.02.90
; last change:20.11.91
; Fast Screen IO 
;
;

MODULE

BYTE ARRAY vals(7)
           
BYTE FUNC ASCtoINT =* (BYTE ascii)

[ $85$A0$29$80$85$A1$A5$A0$29$7F$C9$5F
  $10$0C$C9$1F$B0$05$18$69$40$90$03$38
  $E9$20$05$A1$85$A0$60 ]

PROC Write=* (BYTE x,y,BYTE ARRAY string)

[ $85$55$86$54$86$D6$84$D4$A5$A3$85$D5
  $A9$00$85$D7$A5$D6$0A$26$D7$0A$26$D7
  $0A$26$D7$85$D8$A5$D7$85$D9$A5$D8$0A
  $26$D7$0A$26$D7$18$65$D8$85$D6$A5$D7
  $65$D9$85$D7$A5$58$18$65$D6$85$D6$A5
  $59$65$D7$85$D7$A5$D6$18$65$55$85$D6
  $90$02$E6$D7$A0$00$B1$D4$A8$B1$D4
  $20 ASCtoINT $88$91$D6$D0$F6 ]

RETURN

PROC CWrite (BYTE y,BYTE ARRAY string)

  BYTE cen

  cen=40-string(0)
  cen==RSH 1

  Write (cen,y,string)

RETURN

PROC WriteC (BYTE x,y,CARD val)

 StrC (val,vals)
 Write (x,y,vals)

RETURN

PROC WriteI (BYTE x,y,INT val)

 StrI (val,vals)
 Write (x,y,vals)

RETURN

PROC WriteB (BYTE x,y,BYTE val)

 StrB (val,vals)
 Write (x,y,vals)

RETURN

Add new attachment

Only authorized users are allowed to upload new attachments.
« This page (revision-3) was last changed on 03-Feb-2023 16:21 by Carsten Strotmann  
G’day (anonymous guest) My Prefs
© 2010-2021 AtariWiki
All content in the Wiki is licensed under Creative Commons Share Alike License, unless otherwise noted.
JSPWiki v2.8.3