_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

SIREN.S

FILE INFORMATION

FILENAME(S): SIREN.S

FILE TYPE(S): PRG

FILE SIZE: 530b

FIRST SEEN: 2025-12-01 19:06:54

APPEARS ON: 1 disk(s)

FILE HASH

824f9213c336b77a14f756dbce012928232f5e42d341663e1ad859386dfa4e75

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
ICE DISK 28 SIREN.S PRG Icebreaker 19 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 76 6F 69 63 65  |**.*.......voice|
00000030: 31 A0 73 69 72 65 6E A0  A0 A0 A0 A0 A0 A0 A0 A0  |1.siren.........|
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 6C 64  78 20 23 24 30 30 0D 20  |****. ldx #$00. |
00000070: 6C 64 61 20 23 24 30 30  0D 6C 6F 6F 70 31 20 73  |lda #$00.loop1 s|
00000080: 74 61 20 35 34 32 37 32  2C 78 0D 20 69 6E 78 0D  |ta 54272,x. inx.|
00000090: 20 63 70 78 20 23 32 35  0D 20 62 6E 65 20 6C 6F  | cpx #25. bne lo|
000000A0: 6F 70 31 0D 20 6C 64 61  20 23 32 34 30 0D 20 73  |op1. lda #240. s|
000000B0: 74 61 20 35 34 32 37 38  0D 20 6C 64 61 20 23 31  |ta 54278. lda #1|
000000C0: 35 0D 20 73 74 61 20 35  34 32 39 36 0D 20 6C 64  |5. sta 54296. ld|
000000D0: 61 20 23 33 33 0D 20 73  74 61 20 35 34 32 37 36  |a #33. sta 54276|
000000E0: 0D 61 67 61 69 6E 20 6C  64 78 20 23 24 30 30 0D  |.again ldx #$00.|
000000F0: 6C 6F 6F 70 32 20 73 74  78 20 35 34 32 37 33 0D  |loop2 stx 54273.|
00000100: 20 69 6E 78 0D 20 63 70  78 20 23 32 35 35 0D 20  | inx. cpx #255. |
00000110: 62 6E 65 20 6C 6F 6F 70  32 0D 6E 65 78 74 31 20  |bne loop2.next1 |
00000120: 73 74 78 20 35 34 32 37  33 0D 20 64 65 78 0D 20  |stx 54273. dex. |
00000130: 63 70 78 20 23 24 30 30  0D 20 62 6E 65 20 6E 65  |cpx #$00. bne ne|
00000140: 78 74 31 0D 6E 65 78 74  32 20 6A 73 72 20 64 65  |xt1.next2 jsr de|
00000150: 6C 61 79 0D 20 6A 73 72  20 63 68 6B 65 6E 64 0D  |lay. jsr chkend.|
00000160: 20 6A 6D 70 20 61 67 61  69 6E 0D 64 65 6C 61 79  | jmp again.delay|
00000170: 20 6C 64 78 20 23 24 30  30 0D 6C 6F 6F 70 6F 20  | ldx #$00.loopo |
00000180: 6C 64 79 20 23 24 30 30  0D 6C 6F 6F 70 69 20 69  |ldy #$00.loopi i|
00000190: 6E 79 0D 20 63 70 79 20  23 31 30 30 0D 20 62 6E  |ny. cpy #100. bn|
000001A0: 65 20 6C 6F 6F 70 69 0D  20 69 6E 78 0D 20 63 70  |e loopi. inx. cp|
000001B0: 78 20 23 32 35 35 0D 20  62 6E 65 20 6C 6F 6F 70  |x #255. bne loop|
000001C0: 6F 0D 20 72 74 73 0D 63  68 6B 65 6E 64 20 6C 64  |o. rts.chkend ld|
000001D0: 61 20 31 39 37 0D 20 63  6D 70 20 23 35 37 0D 20  |a 197. cmp #57. |
000001E0: 62 6E 65 20 67 6F 62 61  63 6B 0D 20 6C 64 61 20  |bne goback. lda |
000001F0: 23 24 30 30 0D 20 73 74  61 20 31 39 38 0D 20 6A  |#$00. sta 198. j|
00000200: 6D 70 20 37 37 30 0D 67  6F 62 61 63 6B 20 72 74  |mp 770.goback rt|
00000210: 73 0D                                             |s.              |

..********************************.*    
   VOICE1 SIREN           *.************
********************. LDX #$00. LDA #$00
.LOOP1 STA 54272,X. INX. CPX #25. BNE LO
OP1. LDA #240. STA 54278. LDA #15. STA 5
4296. LDA #33. STA 54276.AGAIN LDX #$00.
LOOP2 STX 54273. INX. CPX #255. BNE LOOP
2.NEXT1 STX 54273. DEX. CPX #$00. BNE NE
XT1.NEXT2 JSR DELAY. JSR CHKEND. JMP AGA
IN.DELAY LDX #$00.LOOPO LDY #$00.LOOPI I
NY. CPY #100. BNE LOOPI. INX. CPX #255. 
BNE LOOPO. RTS.CHKEND LDA 197. CMP #57. 
BNE GOBACK. LDA #$00. STA 198. JMP 770.G
OBACK RTS.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL