JAC! information 1585 glöps
- 128b Atari XL/XE PigXLs by JAC! [web]
- Quote:
Is the line routine a system call of AtariXL basic?
I knew this question would come ;-) Entering the graphics mode and line drawing is part of the Atari OS's general device driver concept (central I/O). It's command "11" for the screen device "S:". The problem is that even calling these routines requires tons of code for passing parameters/strings (called IO control blocks). So the point is to get around this and to find a way to read the 42 coordinates for the 20 lines most effectivly.
So I made the coordinates executable and the code drawable ;-)
I have put the coordinates before the code, put all into the stack, changed to coordinates to be valid 6502 code plus valid colors. Also the first portion of the code represents coordinates and the shape termination.
Code:* = $154 ;Start at stack position "S"=$53 ; These are the x,y corrdinates for the lines. ; Bit 0 in the x coordinate is also the line color. ; The first line is black because is implicitly starts at 0,0. ; The last relevant coordinate must be the same as the first, except for the color. ; The coordinates are chosen in a way they represent valid code. ; This allows the demo to start without having a RUNADR segment. ; .byte x, y, x, y, x, y, x, y, x, y, x, y, x, y pigxy .byte $18, $43, $21, $3E, $5d, $4E, $61, $58, $69, $5A, $71, $4E, $75, $55 .byte $7f, $57, $8D, $35, $75, $15, $4F, $1D, $45, $15, $49, $1F, $45, $23 .byte $2d, $19, $3b, $26, $37, $2D, $23, $34, $17, $2c, $17, $43
Code:start ldx #'S ;Instead of string definition "S:",$9B, causes also invisible line. stx $00 ;Operand $00 will terminate drawloop txs ;X=$53 => PLA will start at $154 ldx #$10 ;Channel 1 lda #open ;Set open command sta iocom,x asl ;Graphics 2*3 = 6, 2 colors sta icaux2,x ;icaux1,x is already 0 drawloop jsr ciov ;Leaves a and x unchanged, returns y=1 lda #draw ;Set draw command sta iocom,x pla ;Pull x corrdinate sta colcrs sta color ;Bit 0 of the xpos is the color pla ;Pully y coordinate sta rowcrs bne drawloop ;Will end when PLA has reached "stx $00" - isokadded on the 2010-09-16 15:14:57
- 128b Atari XL/XE PigXLs by JAC! [web]
>> PigXLs <<
A 128 bytes intro in 5 working stages for the Atari 800 XL.
History:
After I had put my Fake Fade 64 bytes prod on Pouet, it was not obvious to everybody why it is an achievement to change colors and draw lines in 64 bytes. In fact on Atari there are only 52 bytes of code in case of a 64 bytes executable, and I'd really like to see the MS DOS conversion of my release in 52 bytes x86 code.
So I decided to go for "bigger" release and port the MS DOS prod Origins of the pig 128 bytes. That prod is #1761 in the all time top with 43 thumbs - strange world!

And to show that the XL can do it better, I decided to add raster bars, color cycling, sprites and “sound”. So here are the 5 working stages to the final result:
Stage 1: Hires mode, index addressing, color based on index, raster bars
Stage 2: Lores mode with scaled coordinates
Stage 3: Stack/PLA addressing, color based on coordinates, $d20x alarm sound
Stage 4: $d20x rhythm sound
Stage 5: moving players
The executables for all stages will start automatically from a game DOS or an emulator. When using MyDOS or ATARI DOS, the executable has to be start via "M - Run Address". The start address for stage 1 and 2 is "2000", for all others it is "0154".
For PC users: Here is your youtube video and no, there is no ESC support because Atarians and Chuck Norris use RESET instead ;-)
Created using WUDSN IDE.
- isokadded on the 2010-09-15 23:49:04
- demo Windows Finally Inside by Still [web]
- The first 1:30 minutes are really nice and looked great on the big screen, but then it gets somehow pointless and too chaotic for me.
- isokadded on the 2010-09-15 20:29:42
- 256b MS-Dos this two-sixteen number by Exceed [web]
- Broken link :-(
- isokadded on the 2010-09-13 10:40:08
- 64b Atari XL/XE Fake Fade by JAC! [web]
- Quote:
draws lines, changes color. I fail to see the achievement.
Well, I first wanted to port this to get many thumbs on Pouet - but then I decided to add color changes, shade lines and to do it in half the size on an platform which leaves you with only 52 bytes of code for a 64 bytes executable ;-)
- isokadded on the 2010-09-11 22:30:03
- demo Commodore 64 Amiga Demo 2.0
- Immediate thumb for the ball which keeps on bouncing even if you type LIST.
- rulezadded on the 2010-08-23 11:02:16
- 64k Windows Ars Nova by Accept Corp
- Though coherence is gone at the end, I absolutely love the "großer grüner Argelanfall" objects starting at 1:43. For me, this one is much better then the 2nd and 1st place.
- rulezadded on the 2010-08-16 23:43:14
- demo Windows Ceasefire (all falls down..) by Carillon & Cyberiad [web] & Fairlight [web]
- The distortion effect is horrible and spoils the overall nice impression - the burning match saves it - a bit
- isokadded on the 2010-08-16 23:29:39
- cracktro Playstation NickToons Racing Pal Multi 6 by Undercover Agents
- For the tune. I do (really!) have the original vinyl from which most of the middle part is taken. And it was really fun to hear it again. So hey, if we have youtube because PSX is gone, we can also use youtube if record player is gone ;-)
- rulezadded on the 2010-08-16 23:06:34
- musicdisk Atari XL/XE XL Digital by Grupa Dupa
- I like it a lot and I'll give NeoTracker a closer look. Thanks for the tip!
- rulezadded on the 2010-08-07 01:23:22
account created on the 2003-03-30 13:23:16
