KABOOM.S
FILE INFORMATION
FILENAME(S): KABOOM.S
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-12-01 19:06:54
APPEARS ON: 1 disk(s)
FILE HASH
e38101fdab473a5e1e4fdef2cd5e203ab40ffb98ee0bde51bffc994ce4da6ec3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ICE DISK 28 | KABOOM.S | PRG | Icebreaker | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 0A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 0D 2A A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 6B 61 |**.*..........ka| 00000030: 2D 62 6F 6F 6D 2E 62 6A A0 A0 A0 A0 A0 A0 A0 A0 |-boom.bj........| 00000040: A0 A0 2A 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..*.************| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 0D 20 6F 72 67 20 24 38 30 30 30 0D |****. org $8000.| 00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 0D 20 6C 64 78 20 23 30 0D 6C 6F 6F 70 31 20 6C |. ldx #0.loop1 l| 000000A0: 64 61 20 64 61 74 61 31 2C 78 0D 20 73 74 61 20 |da data1,x. sta | 000000B0: 31 32 32 38 38 2C 78 0D 20 69 6E 78 0D 20 63 70 |12288,x. inx. cp| 000000C0: 78 20 23 36 33 0D 20 62 6E 65 20 6C 6F 6F 70 31 |x #63. bne loop1| 000000D0: 0D 20 6C 64 78 20 23 30 0D 6C 6F 6F 70 32 20 6C |. ldx #0.loop2 l| 000000E0: 64 61 20 64 61 74 61 32 2C 78 0D 20 73 74 61 20 |da data2,x. sta | 000000F0: 31 32 33 35 32 2C 78 0D 20 69 6E 78 0D 20 63 70 |12352,x. inx. cp| 00000100: 78 20 23 36 33 0D 20 62 6E 65 20 6C 6F 6F 70 32 |x #63. bne loop2| 00000110: 0D 20 6C 64 78 20 23 30 0D 6C 6F 6F 70 33 20 6C |. ldx #0.loop3 l| 00000120: 64 61 20 64 61 74 61 33 2C 78 0D 20 73 74 61 20 |da data3,x. sta | 00000130: 31 32 34 31 36 2C 78 0D 20 69 6E 78 0D 20 63 70 |12416,x. inx. cp| 00000140: 78 20 23 36 33 0D 20 62 6E 65 20 6C 6F 6F 70 33 |x #63. bne loop3| 00000150: 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000170: 2A 0D 62 65 67 69 6E 20 6A 73 72 20 24 65 35 34 |*.begin jsr $e54| 00000180: 34 0D 20 6C 64 61 20 23 30 0D 20 73 74 61 20 35 |4. lda #0. sta 5| 00000190: 33 32 38 35 0D 20 6C 64 61 20 23 36 0D 20 73 74 |3285. lda #6. st| 000001A0: 61 20 35 33 32 38 36 0D 20 6C 64 61 20 23 35 0D |a 53286. lda #5.| 000001B0: 20 73 74 61 20 35 33 32 38 37 0D 20 73 74 61 20 | sta 53287. sta | 000001C0: 35 33 32 38 30 0D 20 6C 64 61 20 23 31 0D 20 73 |53280. lda #1. s| 000001D0: 74 61 20 35 33 32 38 38 0D 20 73 74 61 20 35 33 |ta 53288. sta 53| 000001E0: 32 38 39 0D 20 73 74 61 20 35 33 32 39 30 0D 20 |289. sta 53290. | 000001F0: 73 74 61 20 35 33 32 39 31 0D 20 73 74 61 20 35 |sta 53291. sta 5| 00000200: 33 32 39 32 0D 20 73 74 61 20 35 33 32 39 33 0D |3292. sta 53293.| 00000210: 20 73 74 61 20 35 33 32 39 34 0D 20 6C 64 61 20 | sta 53294. lda | 00000220: 23 31 39 32 0D 20 73 74 61 20 32 30 34 30 0D 20 |#192. sta 2040. | 00000230: 6C 64 61 20 23 31 39 33 0D 20 73 74 61 20 32 30 |lda #193. sta 20| 00000240: 34 31 0D 20 6C 64 61 20 23 31 39 34 0D 20 73 74 |41. lda #194. st| 00000250: 61 20 32 30 34 32 0D 20 73 74 61 20 32 30 34 33 |a 2042. sta 2043| 00000260: 0D 20 73 74 61 20 32 30 34 34 0D 20 73 74 61 20 |. sta 2044. sta | 00000270: 32 30 34 35 0D 20 73 74 61 20 32 30 34 36 0D 20 |2045. sta 2046. | 00000280: 73 74 61 20 32 30 34 37 0D 20 6C 64 61 20 23 33 |sta 2047. lda #3| 00000290: 0D 20 73 74 61 20 35 33 32 37 31 0D 20 73 74 61 |. sta 53271. sta| 000002A0: 20 35 33 32 37 37 0D 20 6C 64 61 20 23 31 33 0D | 53277. lda #13.| 000002B0: 20 73 74 61 20 35 33 32 38 31 0D 20 6C 64 78 20 | sta 53281. ldx | 000002C0: 23 30 0D 20 6C 64 61 20 23 31 36 30 0D 6C 6F 6F |#0. lda #160.loo| 000002D0: 70 34 20 73 74 61 20 31 30 32 34 2C 78 0D 20 69 |p4 sta 1024,x. i| 000002E0: 6E 78 0D 20 63 70 78 20 23 32 34 30 0D 20 62 6E |nx. cpx #240. bn| 000002F0: 65 20 6C 6F 6F 70 34 0D 20 6C 64 78 20 23 30 0D |e loop4. ldx #0.| 00000300: 6C 6F 6F 70 35 20 73 74 61 20 31 39 38 34 2C 78 |loop5 sta 1984,x| 00000310: 0D 20 69 6E 78 0D 20 63 70 78 20 23 34 30 0D 20 |. inx. cpx #40. | 00000320: 62 6E 65 20 6C 6F 6F 70 35 0D 20 6C 64 61 20 23 |bne loop5. lda #| 00000330: 35 0D 20 6C 64 78 20 23 30 0D 6C 6F 6F 70 36 20 |5. ldx #0.loop6 | 00000340: 73 74 61 20 35 35 32 39 36 2C 78 0D 20 69 6E 78 |sta 55296,x. inx| 00000350: 0D 20 63 70 78 20 23 32 34 30 0D 20 62 6E 65 20 |. cpx #240. bne | 00000360: 6C 6F 6F 70 36 0D 20 6C 64 78 20 23 30 0D 6C 6F |loop6. ldx #0.lo| 00000370: 6F 70 37 20 73 74 61 20 35 36 32 35 36 2C 78 0D |op7 sta 56256,x.| 00000380: 20 69 6E 78 0D 20 63 70 78 20 23 34 30 0D 20 62 | inx. cpx #40. b| 00000390: 6E 65 20 6C 6F 6F 70 37 0D 20 6C 64 61 20 23 32 |ne loop7. lda #2| 000003A0: 35 35 0D 20 73 74 61 20 35 33 32 36 39 0D 20 73 |55. sta 53269. s| 000003B0: 74 61 20 35 33 32 37 36 0D 20 6C 64 61 20 23 32 |ta 53276. lda #2| 000003C0: 30 30 0D 20 73 74 61 20 35 33 32 34 39 0D 20 6C |00. sta 53249. l| 000003D0: 64 61 20 23 31 34 30 0D 20 73 74 61 20 35 33 32 |da #140. sta 532| 000003E0: 35 30 0D 20 6C 64 61 20 23 36 32 0D 20 73 74 61 |50. lda #62. sta| 000003F0: 20 35 33 32 35 31 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A | 53251.*********| 00000400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000410: 2A 2A 2A 2A 2A 2A 2A 0D 6D 61 69 6E 20 6A 73 72 |*******.main jsr| 00000420: 20 73 65 74 70 6F 73 0D 20 6A 73 72 20 6D 6F 76 | setpos. jsr mov| 00000430: 65 6D 0D 20 6A 73 72 20 64 65 6C 61 79 0D 20 6A |em. jsr delay. j| 00000440: 73 72 20 64 72 6F 70 0D 20 6A 73 72 20 63 68 65 |sr drop. jsr che| 00000450: 63 6B 63 61 0D 20 6A 73 72 20 63 68 65 63 6B 6B |ckca. jsr checkk| 00000460: 62 0D 20 6A 6D 70 20 6D 61 69 6E 0D 73 65 74 70 |b. jmp main.setp| 00000470: 6F 73 20 6C 64 78 20 35 34 32 39 37 0D 20 73 74 |os ldx 54297. st| 00000480: 78 20 38 39 36 0D 20 6C 64 61 20 23 32 35 35 0D |x 896. lda #255.| 00000490: 20 73 65 63 0D 20 73 62 63 20 38 39 36 0D 20 74 | sec. sbc 896. t| 000004A0: 61 78 0D 20 73 74 78 20 35 33 32 34 38 0D 20 72 |ax. stx 53248. r| 000004B0: 74 73 0D 6D 6F 76 65 6D 20 6C 64 61 20 35 36 33 |ts.movem lda 563| 000004C0: 32 34 0D 20 63 6D 70 20 23 31 32 37 0D 20 62 70 |24. cmp #127. bp| 000004D0: 6C 20 6C 65 66 74 0D 20 62 6D 69 20 72 69 67 68 |l left. bmi righ| 000004E0: 74 0D 6C 65 66 74 20 69 6E 63 20 35 33 32 35 30 |t.left inc 53250| 000004F0: 0D 20 6A 6D 70 20 63 68 65 63 6B 0D 72 69 67 68 |. jmp check.righ| 00000500: 74 20 64 65 63 20 35 33 32 35 30 0D 20 6A 6D 70 |t dec 53250. jmp| 00000510: 20 63 68 65 63 6B 0D 63 68 65 63 6B 20 6C 64 61 | check.check lda| 00000520: 20 35 33 32 35 30 0D 20 63 6D 70 20 23 30 0D 20 | 53250. cmp #0. | 00000530: 62 65 71 20 6C 65 66 74 0D 20 63 6D 70 20 23 32 |beq left. cmp #2| 00000540: 35 35 0D 20 62 65 71 20 72 69 67 68 74 0D 64 65 |55. beq right.de| 00000550: 6C 61 79 20 6C 64 78 20 23 30 0D 64 6C 79 6C 70 |lay ldx #0.dlylp| 00000560: 20 69 6E 78 0D 20 63 70 78 20 23 32 35 35 0D 20 | inx. cpx #255. | 00000570: 62 6E 65 20 64 6C 79 6C 70 0D 20 72 74 73 0D 64 |bne dlylp. rts.d| 00000580: 72 6F 70 20 6E 6F 70 0D 20 72 74 73 0D 63 68 65 |rop nop. rts.che| 00000590: 63 6B 63 61 20 6E 6F 70 0D 20 72 74 73 0D 63 68 |ckca nop. rts.ch| 000005A0: 65 63 6B 6B 62 20 6E 6F 70 0D 20 72 74 73 0D 2A |eckkb nop. rts.*| 000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.| 000005D0: 64 61 74 61 31 20 64 66 62 20 30 2C 30 2C 30 2C |data1 dfb 0,0,0,| 000005E0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 33 2C 32 35 |0,0,0,0,0,0,3,25| 000005F0: 35 2C 31 39 32 2C 32 2C 31 37 30 2C 31 32 38 2C |5,192,2,170,128,| 00000600: 32 2C 31 37 30 2C 31 32 38 0D 20 64 66 62 20 30 |2,170,128. dfb 0| 00000610: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0| 00000620: 2C 33 2C 32 35 35 2C 31 39 32 2C 32 2C 31 37 30 |,3,255,192,2,170| 00000630: 2C 31 32 38 2C 32 2C 31 37 30 2C 31 32 38 0D 20 |,128,2,170,128. | 00000640: 64 66 62 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |dfb 0,0,0,0,0,0,| 00000650: 30 2C 30 2C 30 2C 33 2C 32 35 35 2C 31 39 32 2C |0,0,0,3,255,192,| 00000660: 32 2C 31 37 30 2C 31 32 38 2C 32 2C 31 37 30 2C |2,170,128,2,170,| 00000670: 31 32 38 2C 30 2C 30 2C 30 0D 20 64 66 62 20 30 |128,0,0,0. dfb 0| 00000680: 2C 30 2C 30 2C 30 2C 30 2C 30 0D 64 61 74 61 32 |,0,0,0,0,0.data2| 00000690: 20 64 66 62 20 30 2C 38 34 2C 30 2C 30 2C 38 34 | dfb 0,84,0,0,84| 000006A0: 2C 30 2C 30 2C 31 30 38 2C 30 2C 30 2C 31 36 38 |,0,0,108,0,0,168| 000006B0: 2C 30 2C 30 2C 31 30 38 2C 30 2C 30 2C 38 34 2C |,0,0,108,0,0,84,| 000006C0: 30 2C 30 2C 31 36 2C 30 0D 20 64 66 62 20 35 2C |0,0,16,0. dfb 5,| 000006D0: 38 35 2C 36 34 2C 38 2C 31 36 38 2C 31 32 38 2C |85,64,8,168,128,| 000006E0: 34 2C 38 34 2C 36 34 2C 38 2C 31 36 38 2C 31 32 |4,84,64,8,168,12| 000006F0: 38 2C 34 2C 38 34 2C 36 34 2C 38 2C 31 36 38 2C |8,4,84,64,8,168,| 00000700: 31 32 38 0D 20 64 66 62 20 34 2C 38 34 2C 36 34 |128. dfb 4,84,64| 00000710: 2C 38 2C 31 36 38 2C 31 32 38 2C 34 2C 38 34 2C |,8,168,128,4,84,| 00000720: 36 34 2C 30 2C 31 36 38 2C 30 2C 30 2C 38 34 2C |64,0,168,0,0,84,| 00000730: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,| 00000740: 30 2C 30 0D 64 61 74 61 33 20 64 66 62 20 30 2C |0,0.data3 dfb 0,| 00000750: 34 30 2C 30 2C 30 2C 34 30 2C 30 2C 30 2C 34 30 |40,0,0,40,0,0,40| 00000760: 2C 30 2C 30 2C 32 30 2C 30 2C 30 2C 38 35 2C 30 |,0,0,20,0,0,85,0| 00000770: 2C 31 2C 38 35 2C 36 34 2C 31 2C 38 35 2C 36 34 |,1,85,64,1,85,64| 00000780: 2C 31 2C 38 35 2C 36 34 0D 20 64 66 62 20 31 2C |,1,85,64. dfb 1,| 00000790: 38 35 2C 36 34 2C 31 2C 38 35 2C 36 34 2C 31 2C |85,64,1,85,64,1,| 000007A0: 38 35 2C 36 34 2C 30 2C 38 35 2C 30 2C 30 2C 32 |85,64,0,85,0,0,2| 000007B0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,| 000007C0: 30 2C 30 2C 30 0D 20 64 66 62 20 30 2C 30 2C 30 |0,0,0. dfb 0,0,0| 000007D0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0| 000007E0: 2C 30 2C 30 2C 30 2C 30 0D |,0,0,0,0. |
..********************************.*
KA-BOOM.BJ *.************
********************. ORG $8000.********
************************. LDX #0.LOOP1 L
DA DATA1,X. STA 12288,X. INX. CPX #63. B
NE LOOP1. LDX #0.LOOP2 LDA DATA2,X. STA
12352,X. INX. CPX #63. BNE LOOP2. LDX #0
.LOOP3 LDA DATA3,X. STA 12416,X. INX. CP
X #63. BNE LOOP3.***********************
*********.BEGIN JSR $E544. LDA #0. STA 5
3285. LDA #6. STA 53286. LDA #5. STA 532
87. STA 53280. LDA #1. STA 53288. STA 53
289. STA 53290. STA 53291. STA 53292. ST
A 53293. STA 53294. LDA #192. STA 2040.
LDA #193. STA 2041. LDA #194. STA 2042.
STA 2043. STA 2044. STA 2045. STA 2046.
STA 2047. LDA #3. STA 53271. STA 53277.
LDA #13. STA 53281. LDX #0. LDA #160.LOO
P4 STA 1024,X. INX. CPX #240. BNE LOOP4.
LDX #0.LOOP5 STA 1984,X. INX. CPX #40.
BNE LOOP5. LDA #5. LDX #0.LOOP6 STA 5529
6,X. INX. CPX #240. BNE LOOP6. LDX #0.LO
OP7 STA 56256,X. INX. CPX #40. BNE LOOP7
. LDA #255. STA 53269. STA 53276. LDA #2
00. STA 53249. LDA #140. STA 53250. LDA
#62. STA 53251.*************************
*******.MAIN JSR SETPOS. JSR MOVEM. JSR
DELAY. JSR DROP. JSR CHECKCA. JSR CHECKK
B. JMP MAIN.SETPOS LDX 54297. STX 896. L
DA #255. SEC. SBC 896. TAX. STX 53248. R
TS.MOVEM LDA 56324. CMP #127. BPL LEFT.
BMI RIGHT.LEFT INC 53250. JMP CHECK.RIGH
T DEC 53250. JMP CHECK.CHECK LDA 53250.
CMP #0. BEQ LEFT. CMP #255. BEQ RIGHT.DE
LAY LDX #0.DLYLP INX. CPX #255. BNE DLYL
P. RTS.DROP NOP. RTS.CHECKCA NOP. RTS.CH
ECKKB NOP. RTS.*************************
*******.DATA1 DFB 0,0,0,0,0,0,0,0,0,3,25
5,192,2,170,128,2,170,128. DFB 0,0,0,0,0
,0,0,0,0,3,255,192,2,170,128,2,170,128.
DFB 0,0,0,0,0,0,0,0,0,3,255,192,2,170,12
8,2,170,128,0,0,0. DFB 0,0,0,0,0,0.DATA2
DFB 0,84,0,0,84,0,0,108,0,0,168,0,0,108
,0,0,84,0,0,16,0. DFB 5,85,64,8,168,128,
4,84,64,8,168,128,4,84,64,8,168,128. DFB
4,84,64,8,168,128,4,84,64,0,168,0,0,84,
0,0,0,0,0,0,0,0,0,0.DATA3 DFB 0,40,0,0,4
0,0,0,40,0,0,20,0,0,85,0,1,85,64,1,85,64
,1,85,64. DFB 1,85,64,1,85,64,1,85,64,0,
85,0,0,20,0,0,0,0,0,0,0,0,0,0. DFB 0,0,0
,0,0,0,0,0,0,0,0,0,0,0,0.
> CLICK IMAGE PREVIEW FOR FULL MODAL