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
JSUB num
JSUB nl
LDA #23
JSUB num
JSUB nl
HALT J HALT
END ECHO
@ -77,6 +80,13 @@ loop_num LDX digits_ix
STA i
COMP len
JLT loop_num
LDX #0
LDA #0
STA digits_ix
STA i
STA len
LDA number
RSUB
old_A WORD 0

40
vaja2/zaslon/screen.asm
View file

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