started up asm
This commit is contained in:
parent
ef273790b8
commit
acce30cea1
45 changed files with 1167 additions and 728 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue