ab76015/spo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

screen completed

Browse source
This commit is contained in:
aljazbrodar. 2025-11-03 18:42:56 +01:00
parent 65cfbf1e1b
commit 5d2a23451b
2 changed files with 35 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

10
vaja2/vhod_izhod/echo.asm
View file

@ -11,6 +11,9 @@ ECHO START 0
LDA number LDA number
JSUB num JSUB num
JSUB nl JSUB nl
LDA #23
JSUB num
JSUB nl
HALT J HALT HALT J HALT
END ECHO END ECHO
@ -77,6 +80,13 @@ loop_num LDX digits_ix
STA i STA i
COMP len COMP len
JLT loop_num JLT loop_num
LDX #0
LDA #0
STA digits_ix
STA i
STA len
LDA number
RSUB RSUB
old_A WORD 0 old_A WORD 0

40
vaja2/zaslon/screen.asm
View file

@ -1,13 +1,19 @@
SCREEN START 0 SCREEN START 0
LDA #65 LDA #65
JSUB scrfill JSUB scrfill
JSUB scrclear JSUB scrclear
LDA #77
JSUB scrfill
JSUB scrclear
LDA #88
JSUB scrfill
JSUB scrclear
HALT J HALT HALT J HALT
END SCREEN END SCREEN
scrfill STA znak scrfill STA znak
loop LDA y loop_fill LDA y
MUL scrcols MUL scrcols
ADD screen ADD screen
ADD x ADD x
@ -17,22 +23,26 @@ loop LDA y
LDA x LDA x
ADD #1 ADD #1
STA x STA x
COMP scrrows COMP scrcols
JLT loop JLT loop_fill
CLEAR A CLEAR A
STA x STA x
LDA y LDA y
ADD #1 ADD #1
STA y STA y
COMP scrcols COMP scrrows
JLT loop JLT loop_fill
CLEAR A
STA x
STA y
LDA znak LDA znak
RSUB RSUB
.address = screen + y * scrcols + x .address = screen + y * scrcols + x
scrclear LDA y scrclear STA old_val
loop_clear LDA y
MUL scrcols MUL scrcols
ADD screen ADD screen
ADD x ADD x
@ -42,28 +52,28 @@ scrclear LDA y
LDA x LDA x
ADD #1 ADD #1
STA x STA x
COMP scrrows COMP scrcols
JLT scrclear JLT loop_clear
CLEAR A CLEAR A
STA x STA x
LDA y LDA y
ADD #1 ADD #1
STA y STA y
COMP scrcols COMP scrrows
JLT scrclear JLT loop_clear
CLEAR A CLEAR A
STA x STA x
STA y STA y
LDA old_val
RSUB RSUB
old_val WORD 0
znak WORD 0 znak WORD 0
x WORD 0 x WORD 0
y WORD 0 y WORD 0
pix_ptr WORD 0 pix_ptr WORD 0
screen WORD X'00B800' screen WORD X'00B800'
scrcols WORD 25 scrcols WORD 25
scrrows WORD 80 scrrows WORD 80
scrlen WORD 2000 scrlen WORD 2000