From 5d2a23451b3dd59875fd63e1789f192500f0ae87 Mon Sep 17 00:00:00 2001 From: "aljazbrodar." Date: Mon, 3 Nov 2025 18:42:56 +0100 Subject: [PATCH] screen completed --- vaja2/vhod_izhod/echo.asm | 10 ++++++++++ vaja2/zaslon/screen.asm | 40 ++++++++++++++++++++++++--------------- 2 files changed, 35 insertions(+), 15 deletions(-) diff --git a/vaja2/vhod_izhod/echo.asm b/vaja2/vhod_izhod/echo.asm index 4bad362..743684d 100644 --- a/vaja2/vhod_izhod/echo.asm +++ b/vaja2/vhod_izhod/echo.asm @@ -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 diff --git a/vaja2/zaslon/screen.asm b/vaja2/zaslon/screen.asm index 606ef3f..8e73078 100644 --- a/vaja2/zaslon/screen.asm +++ b/vaja2/zaslon/screen.asm @@ -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