started up asm

This commit is contained in:
aljazbrodar. 2025-12-18 13:49:58 +01:00
parent ef273790b8
commit acce30cea1
45 changed files with 1167 additions and 728 deletions

View file

@ -1,49 +1,47 @@
00000 MAIN START 0
. doloci dolzino v word-ih
00000 012FFD LDA #bytes_len
00003 250003 DIV #3
00006 0F203C STA words_len
00009 B400 CLEAR A
. nastavi X register za prehod cez tabelo
0000B 050000 LDX #0
00000 072048 LDX counter
. izracun vrednosti za vsak x v tabeli in
0000E 3F200E LOOP J HORNER_X
00011 2F2031 TIX words_len
00014 010003 LDA #3
00017 9801 MULR A,X
00019 3B2FF2 JLT LOOP
00003 0F2048 LOOP STA ctx_a
00006 4B2015 JSUB HORNER_X
00009 03203F LDA counter
0000C 190003 ADD #3
0000F 0F2039 STA counter
00012 072036 LDX counter
00015 290009 COMP #bytes_len
00018 3B2FE8 JLT LOOP
0001C 3F2FFD HALT J HALT
0001F END MAIN
0001B 3F2FFD HALT J HALT
0001E END MAIN
0001F 010001 HORNER_X LDA #1
0001E 010001 HORNER_X LDA #1
00022 23A01D MUL in,X
00025 190002 ADD #2
00021 23A01E MUL in,X
00024 190002 ADD #2
00028 23A017 MUL in,X
0002B 190003 ADD #3
00027 23A018 MUL in,X
0002A 190003 ADD #3
0002E 23A011 MUL in,X
00031 190004 ADD #4
0002D 23A012 MUL in,X
00030 190004 ADD #4
00034 23A00B MUL in,X
00037 190005 ADD #5
00033 23A00C MUL in,X
00036 190005 ADD #5
0003A 0FA005 STA in,X
00039 0FA006 STA in,X
0003D B400 CLEAR A
. povrni kontekst pred skokom v subrutino
0003C 03200F LDA ctx_a
0003F 4F0000 RSUB
. tabela x-ov polinoma
00042 000002 in WORD 2
. WORD 5
. WORD 42
. WORD 2
00042 000000 in WORD 0
00045 000002 WORD 2
00048 000003 WORD 3
. parametri
00045 lastin EQU *
00045 bytes_len EQU lasttin-in
00045 000001 words_len WORD 1
00048 000000 res RESW 1
0004B lastin EQU *
0004B bytes_len EQU lastin-in
0004B 000000 counter WORD 0
. kontest
0004E 000000 ctx_a RESW 1