Log inRegister an accountBrowse CSDbHelp & documentationFacts & StatisticsThe forumsAvailable RSS-feeds on CSDbSupport CSDb Commodore 64 Scene Database
You are not logged in - nap
CSDb User Forums


Forums > C64 Coding > Kick Assembler Thread 2
2009-07-21 17:20
Slammer

Registered: Feb 2004
Posts: 416
Kick Assembler Thread 2

The previous thread took a little long to load, so this is a new fresh one..
 
... 590 posts hidden. Click here to view all posts....
 
2015-03-27 00:07
Agemixer

Registered: Dec 2002
Posts: 38
Because i haven't found any examples how to produce C64 ascii with kickassembler, here is mine:

.function pet2asc(p) { .eval p = [ p>$40? p+=$80 : p ] .return [ p<$20? p^$40 : p ] }
.macro asctxt(str) { .fill str.size(), pet2asc(str.charAt(i)) }
.macro asctxtCR(str) { :asctxt(str) .byte $0d }


ldx #$00
loop: lda text,x
beq end
jsr $ffd2
inx
bne loop
end: rts


text: // C64 ascii
.byte 5 // color = white
.byte 147 // clr+home
.byte 9,14,8 // case change: enable C= + shift, set locase, disable
:asctxt("Hello World!")
:asctxtCR(" 1,2,3,4...")
:asctxtCR("")
:asctxt("The quick brown fox ")
:asctxtCR("jumps over the lazy dog")
.byte 0
2015-03-27 00:45
Agemixer

Registered: Dec 2002
Posts: 38
Thanks Slammer
2015-04-30 09:40
Murphy

Registered: Jul 2006
Posts: 10
Slammer: Thanks for this awesome assembler!

Support of |= (and &=) operators are planned?
2015-04-30 12:37
Murphy

Registered: Jul 2006
Posts: 10
I found a strange issue with the asserts.

.assert "Key is valid=", tab.containsKey(key), true
.var actList= List().addAll(tab.get(key))

The tab is a Hashtable which contains lists.
When the value of the key is invalid, i get an error:

cml.kickass.values.NullValue cannot be cast to cml.kickass.values.ListValue

It looks, the assert interpreted later than the addAll.
2015-05-01 07:30
Slammer

Registered: Feb 2004
Posts: 416
Hi Murphy

|= and &= can easily be implemented so it goes on the todo list (Feel free to enter the Facebook group and add them yourself).

In some cases KickAssembler can skip parts of evaluation if it doesnt have enough information to do the evaluations. Assert is not asserting before both values are valid and invalid values can occur if you base you calculations on labels that is not yet resolved.

However I would like to see your code, Could you shortend it to a small example and send it to me? You where not supposed to get a cast execption but a "Invalid argument. It has to be a list."-message in case of null.
2015-05-01 10:46
Murphy

Registered: Jul 2006
Posts: 10
Thanks Slammer! The source was sent in PM.
2015-05-01 12:48
Murphy

Registered: Jul 2006
Posts: 10
I know this is a complex request...

but string concatenating for label names can be very usefull in macros. Of course, only when the label can be 'exported' out of the scope of the macro.

Example code: register saver macros for irq.

.macro SaveRegsImm(reg_cache) {
sta reg_cache#_a
stx reg_cache#_x
sty reg_cache#_y
}

.macro LoadRegsImm(reg_cache) {
.label reg_cache#_a = *+1
lda #0
.label reg_cache#_x = *+1
ldx #0
.label reg_cache#_y = *+1
ldy #0

.public reg_cache#_a
.public reg_cache#_x
.public reg_cache#_y
}
2015-05-03 16:31
Slammer

Registered: Feb 2004
Posts: 416
I just released v3.40, where you will get a normal errormessage instead of a class cast exception when you suply a non-list-value to the addAll method.

I don't see anything that could be tricky with the assert, and it asserts fine here. Are you sure the given parameter is in the table?

About concatenating label names. I think it will a bit too complex. Basically, I have to be able to scan for labels and know their names.
2015-05-03 16:43
Slammer

Registered: Feb 2004
Posts: 416
Murphy: Btw. are you aware that you can access variables of executed macros by adding a label on the line that executes the macro:
.macro SetColor() {
color:	lda #00
	sta $d020
}

...
	lda #1
	sta x.color+1 // Set color in first execution of macro
	lda #2
	sta y.color+1 // Set color in second execution of macro

x:	:SetColor()
y:	:SetColor()

Perhaps this will solve your concatenation problem.
2015-05-03 16:59
Slammer

Registered: Feb 2004
Posts: 416
Btw. One thing about the assert commands. They don't stop execution if they fails. Instead they remember the error and print them out at the end of execution (If no 'hard' errors occurs.) They are primary made so I could have a testsuite to run before each release (currently 615 asserts)

I guess this explains your original problem :-)

http://theweb.dk/KickAssembler/webhelp/content/cpt_Testing.html
Previous - 1 | ... | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | ... | 61 - Next
RefreshSubscribe to this thread:

You need to be logged in to post in the forum.

Search the forum:
Search   for   in  
All times are CET.
Search CSDb
Advanced
Users Online
icon/The Silents, Sp..
skull
ΛΛdZ
jmin
Harry Potthead
Guests online: 180
Top Demos
1 Next Level  (9.8)
2 Mojo  (9.7)
3 Coma Light 13  (9.7)
4 Edge of Disgrace  (9.6)
5 No Bounds  (9.6)
6 Comaland 100%  (9.6)
7 Uncensored  (9.6)
8 The Ghost  (9.6)
9 Wonderland XIV  (9.6)
10 Bromance  (9.6)
Top onefile Demos
1 Party Elk 2  (9.7)
2 Cubic Dream  (9.6)
3 Copper Booze  (9.5)
4 Rainbow Connection  (9.5)
5 TRSAC, Gabber & Pebe..  (9.5)
6 Onscreen 5k  (9.5)
7 Dawnfall V1.1  (9.5)
8 Quadrants  (9.5)
9 Daah, Those Acid Pil..  (9.5)
10 Birth of a Flower  (9.5)
Top Groups
1 Booze Design  (9.3)
2 Nostalgia  (9.3)
3 Oxyron  (9.3)
4 Censor Design  (9.3)
5 Crest  (9.3)
Top Crackers
1 Mr. Z  (9.9)
2 S!R  (9.9)
3 Mr Zero Page  (9.8)
4 Antitrack  (9.8)
5 OTD  (9.8)

Home - Disclaimer
Copyright © No Name 2001-2024
Page generated in: 0.078 sec.