From 65cfbf1e1b5ce665275d740e777f1c5cd2565e0f Mon Sep 17 00:00:00 2001 From: "aljazbrodar." Date: Mon, 3 Nov 2025 08:56:29 +0100 Subject: [PATCH] echo.asm completed + screen.asm started --- vaja2/zaslon/screen.asm | 69 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 69 insertions(+) create mode 100644 vaja2/zaslon/screen.asm diff --git a/vaja2/zaslon/screen.asm b/vaja2/zaslon/screen.asm new file mode 100644 index 0000000..606ef3f --- /dev/null +++ b/vaja2/zaslon/screen.asm @@ -0,0 +1,69 @@ +SCREEN START 0 + LDA #65 + JSUB scrfill + JSUB scrclear + +HALT J HALT + END SCREEN + +scrfill STA znak +loop LDA y + MUL scrcols + ADD screen + ADD x + STA pix_ptr + LDA znak + STCH @pix_ptr + LDA x + ADD #1 + STA x + COMP scrrows + JLT loop + CLEAR A + STA x + LDA y + ADD #1 + STA y + COMP scrcols + JLT loop + + LDA znak + RSUB + + +.address = screen + y * scrcols + x +scrclear LDA y + MUL scrcols + ADD screen + ADD x + STA pix_ptr + CLEAR A + STCH @pix_ptr + LDA x + ADD #1 + STA x + COMP scrrows + JLT scrclear + CLEAR A + STA x + LDA y + ADD #1 + STA y + COMP scrcols + JLT scrclear + + CLEAR A + STA x + STA y + RSUB + + + +znak WORD 0 +x WORD 0 +y WORD 0 +pix_ptr WORD 0 +screen WORD X'00B800' +scrcols WORD 25 +scrrows WORD 80 +scrlen WORD 2000