1 REM Ins{nd av David Asztely <2920>    1985-05-05 11.31.28
; HSCROLL.ASM
;
;AV: DAVID ASZTELY <2920>
; SKRIVEN N]GON G]NG UNDER 1984 (?)
; KOMMENTERAD I MAJ 1985
;
;
;          ***H-SCROLLER***
;
;SCROLLAR BILDSK[RMEN ETT STEG 
;]T H\GER OCH BLANKAR KOLUMM 0
;
;
;OM DU VILL SPARA KOLUMM 0 VID
;SCROLLNING,G\R S] H[R:
; S[TT IN " DEC BC" VID LABELN "XXX"
;D] KOMMER RADEN ATT SE UT S] H[R:
;"XXX DEC BC"
;DENNA [NDRING [R ANV[NDBAR N[R MAN 
;ANV[NDER GRAFIKEN EFTERSOM MAN D]
;HAR CHR$(151) ST]ENDE I KOLUMM 0
 ORG 65408
 LD IX,884     ;LADDA IX MED ADRESSEN
               ;TILL BILDSK[RMS-
               ;ADRESSERNA I ROMET
 LD A,24       ;ANTAL RADER
LOOP
 LD L,(IX)     ;LADDA HL MED
 LD H,(IX+1)   ;RADADRESS
 LD BC,39      ;L[GG TILL 39 S] ATT
 ADD HL,BC     ;HL PEKAR P] KOLUMM 39
 PUSH HL
 POP DE        ;LADDA DE MED KOLUMM 39
 DEC HL        ;R[KNA NER HL TILL
               ;KOLUMM 38
XXX
 LDDR          ;SCROLLAR RADEN
 INC HL
 LD (HL),32    ;SKRIV ETT BLANKTECKEN
               ;I KOLUMM 0
 DEC A         ;R[KNA NER LOOPR[KNARE
 RET Z         ; OM A=0 ]TER TILL BASIC
 INC IX        ;R[KNA UPP IX S] ATT
 INC IX        ;IX PEKAR P] N[STA
               ;RADADRESS
 JR LOOP       ;HOPPA TILL LOOPENS 
               ;B\RJAN
 END


