EXAMPLE.SRC
FILE INFORMATION
FILENAME(S): EXAMPLE.SRC
FILE TYPE(S): SEQ
FILE SIZE: 1.5K
FIRST SEEN: 2025-12-02 00:15:24
APPEARS ON: 1 disk(s)
FILE HASH
eb62aee8d822d438cdfa72eae202a48179685a8bae0630c6f324eca71ce901bd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CODERZ ORGASM V3 | EXAMPLE.SRC | SEQ | Maestro | 8 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 3B 0D 0D 3B 2D 2D 2D | ;..;---| 00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000030: 2D 2D 2D 2D 0D 50 52 49 4E 54 20 20 20 20 2E 4D |----.PRINT .M| 00000040: 41 43 52 4F 0D 20 20 20 20 20 20 20 20 20 4C 44 |ACRO. LD| 00000050: 41 20 23 3C 54 45 58 54 0D 20 20 20 20 20 20 20 |A #<TEXT. | 00000060: 20 20 4C 44 59 20 23 3E 54 45 58 54 0D 20 20 20 | LDY #>TEXT. | 00000070: 20 20 20 20 20 20 4A 53 52 20 24 41 42 31 45 0D | JSR $AB1E.| 00000080: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 45 4E 44 | JMP END| 00000090: 0D 54 45 58 54 20 20 20 20 20 2E 42 59 54 45 20 |.TEXT .BYTE | 000000A0: 24 30 44 0D 20 20 20 20 20 20 20 20 20 2E 4E 55 |$0D. .NU| 000000B0: 4C 4C 20 22 40 32 22 0D 45 4E 44 20 20 20 20 20 |LL "@2".END | 000000C0: 20 2E 45 4E 44 4D 0D 0D 50 4F 4B 45 20 20 20 20 | .ENDM..POKE | 000000D0: 20 2E 53 45 47 4D 45 4E 54 0D 20 20 20 20 20 20 | .SEGMENT. | 000000E0: 20 20 20 4C 44 41 20 23 5C 31 0D 20 20 20 20 20 | LDA #\1. | 000000F0: 20 20 20 20 53 54 41 20 5C 32 0D 20 20 20 20 20 | STA \2. | 00000100: 20 20 20 20 2E 45 4E 44 4D 0D 0D 20 20 20 20 20 | .ENDM.. | 00000110: 20 20 20 20 3B 20 2E 53 45 47 4D 45 4E 54 20 49 | ; .SEGMENT I| 00000120: 53 20 4C 49 4B 45 20 2E 4D 41 43 52 4F 20 42 55 |S LIKE .MACRO BU| 00000130: 54 0D 20 20 20 20 20 20 20 20 20 3B 20 44 4F 45 |T. ; DOE| 00000140: 53 4E 27 54 20 43 52 45 41 54 45 20 42 4C 4F 43 |SN'T CREATE BLOC| 00000150: 4B 20 41 52 4F 55 4E 44 0D 20 20 20 20 20 20 20 |K AROUND. | 00000160: 20 20 3B 20 54 48 45 20 4D 41 43 52 4F 2E 0D 0D | ; THE MACRO...| 00000170: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 00000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000190: 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 20 20 20 20 20 20 |--------. | 000001A0: 20 20 2A 3D 20 24 31 30 30 30 0D 0D 20 20 20 20 | *= $1000.. | 000001B0: 20 20 20 20 20 4C 44 41 20 41 44 52 45 53 53 2B | LDA ADRESS+| 000001C0: 31 0D 20 20 20 20 20 20 20 20 20 50 48 41 0D 20 |1. PHA. | 000001D0: 20 20 20 20 20 20 20 20 4C 44 41 20 41 44 52 45 | LDA ADRE| 000001E0: 53 53 0D 20 20 20 20 20 20 20 20 20 50 48 41 0D |SS. PHA.| 000001F0: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 41 44 | RTS..AD| 00000200: 52 45 53 53 20 20 20 2E 52 54 41 20 53 54 41 52 |RESS .RTA STAR| 00000210: 54 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |T..;------------| 00000220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D 53 54 41 |-----------..STA| 00000240: 52 54 20 20 20 20 49 4E 43 20 24 44 30 32 30 0D |RT INC $D020.| 00000250: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C 54 | LDA #<T| 00000260: 45 58 54 0D 20 20 20 20 20 20 20 20 20 4C 44 59 |EXT. LDY| 00000270: 20 23 3E 54 45 58 54 0D 20 20 20 20 20 20 20 20 | #>TEXT. | 00000280: 20 4A 53 52 20 24 41 42 31 45 0D 3B 2D 2D 2D 2D | JSR $AB1E.;----| 00000290: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000002A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000002B0: 2D 2D 2D 0D 4C 41 42 45 4C 20 20 20 20 3D 20 31 |---.LABEL = 1| 000002C0: 30 30 20 20 3B 20 54 52 59 20 4F 54 48 45 52 21 |00 ; TRY OTHER!| 000002D0: 0D 0D 20 20 20 20 20 20 20 20 20 2E 49 46 45 51 |.. .IFEQ| 000002E0: 20 4C 41 42 45 4C 2D 31 30 30 0D 20 20 20 20 20 | LABEL-100. | 000002F0: 20 20 20 20 23 50 52 49 4E 54 20 31 2C 22 4C 41 | #PRINT 1,"LA| 00000300: 42 45 4C 20 49 53 20 31 30 30 22 2C 32 0D 20 20 |BEL IS 100",2. | 00000310: 20 20 20 20 20 20 20 2E 45 4E 44 49 46 0D 20 20 | .ENDIF. | 00000320: 20 20 20 20 20 20 20 2E 49 46 20 4C 41 42 45 4C | .IF LABEL| 00000330: 0D 20 20 20 20 20 20 20 20 20 23 50 52 49 4E 54 |. #PRINT| 00000340: 20 31 2C 22 4C 41 42 45 4C 20 49 53 20 4E 4F 54 | 1,"LABEL IS NOT| 00000350: 20 5A 45 52 4F 22 2C 32 0D 20 20 20 20 20 20 20 | ZERO",2. | 00000360: 20 20 2E 45 4E 44 49 46 0D 0D 20 20 20 20 20 20 | .ENDIF.. | 00000370: 3B 20 20 2E 49 46 20 2E 49 46 45 51 20 2E 49 46 |; .IF .IFEQ .IF| 00000380: 50 4C 20 2E 49 46 4D 49 20 2E 45 4E 44 49 46 0D |PL .IFMI .ENDIF.| 00000390: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 000003A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 20 20 20 20 20 |---------. | 000003C0: 20 20 20 23 50 4F 4B 45 20 24 30 30 2C 24 44 30 | #POKE $00,$D0| 000003D0: 32 30 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |20.;------------| 000003E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 20 20 20 |-----------. | 00000400: 20 20 20 20 3B 54 48 49 53 20 57 49 4C 4C 20 49 | ;THIS WILL I| 00000410: 4E 43 20 24 44 30 32 31 20 31 30 30 20 54 49 4D |NC $D021 100 TIM| 00000420: 45 53 0D 0D 20 20 20 20 20 20 20 20 20 2E 42 4C |ES.. .BL| 00000430: 4F 43 4B 20 20 20 20 20 20 20 20 20 3B 59 4F 55 |OCK ;YOU| 00000440: 20 43 41 4E 20 52 45 55 53 45 0D 43 4F 55 4E 54 | CAN REUSE.COUNT| 00000450: 45 52 20 20 2E 56 41 52 20 31 30 30 2A 33 20 20 |ER .VAR 100*3 | 00000460: 20 20 20 3B 4C 41 42 45 4C 53 20 49 46 20 59 4F | ;LABELS IF YO| 00000470: 55 0D 41 53 53 4C 4F 50 20 20 20 2E 4C 42 4C 20 |U.ASSLOP .LBL | 00000480: 20 20 20 20 20 20 20 20 20 20 3B 55 53 45 20 2E | ;USE .| 00000490: 42 4C 4F 43 4B 0D 20 20 20 20 20 20 20 20 20 49 |BLOCK. I| 000004A0: 4E 43 20 24 44 30 32 31 0D 43 4F 55 4E 54 45 52 |NC $D021.COUNTER| 000004B0: 20 20 2E 56 41 52 20 43 4F 55 4E 54 45 52 2D 33 | .VAR COUNTER-3| 000004C0: 0D 20 20 20 20 20 20 20 20 20 2E 49 46 20 43 4F |. .IF CO| 000004D0: 55 4E 54 45 52 0D 20 20 20 20 20 20 20 20 20 2E |UNTER. .| 000004E0: 47 4F 54 4F 20 41 53 53 4C 4F 50 0D 20 20 20 20 |GOTO ASSLOP. | 000004F0: 20 20 20 20 20 2E 45 4E 44 49 46 0D 20 20 20 20 | .ENDIF. | 00000500: 20 20 20 20 20 2E 42 45 4E 44 0D 3B 2D 2D 2D 2D | .BEND.;----| 00000510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000520: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000530: 2D 2D 2D 0D 20 20 20 20 20 20 20 3B 20 2E 49 4E |---. ; .IN| 00000540: 43 4C 55 44 45 20 22 46 49 4C 45 4E 41 4D 45 22 |CLUDE "FILENAME"| 00000550: 0D 3B 20 54 48 49 53 20 41 53 53 45 4D 42 4C 45 |.; THIS ASSEMBLE| 00000560: 53 20 41 4E 20 41 53 43 49 49 20 53 4F 55 52 43 |S AN ASCII SOURC| 00000570: 45 20 48 45 52 45 21 0D 3B 2D 2D 2D 2D 2D 2D 2D |E HERE!.;-------| 00000580: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000005A0: 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 54 |. RTS..T| 000005B0: 45 58 54 20 20 20 20 20 2E 53 48 49 46 54 20 22 |EXT .SHIFT "| 000005C0: 46 55 43 4B 22 0D 20 20 20 20 20 20 20 20 20 2E |FUCK". .| 000005D0: 4E 55 4C 4C 20 22 20 48 45 4C 4C 4F 21 22 0D 0D |NULL " HELLO!"..|
;..;---------------------------
------------.PRINT .MACRO. LD
A #<TEXT. LDY #>TEXT. JS
R $AB1E. JMP END.TEXT .BYTE
$0D. .NULL "@2".END .ENDM..
POKE .SEGMENT. LDA #\1.
STA \2. .ENDM.. ; .S
EGMENT IS LIKE .MACRO BUT. ; DOE
SN'T CREATE BLOCK AROUND. ; THE
MACRO...;-------------------------------
--------. *= $1000.. LDA
ADRESS+1. PHA. LDA ADRE
SS. PHA. RTS..ADRESS .
RTA START..;----------------------------
-----------..START INC $D020.
LDA #<TEXT. LDY #>TEXT.
JSR $AB1E.;----------------------------
-----------.LABEL = 100 ; TRY OTHER!
.. .IFEQ LABEL-100. #PRI
NT 1,"LABEL IS 100",2. .ENDIF.
.IF LABEL. #PRINT 1,"LABE
L IS NOT ZERO",2. .ENDIF..
; .IF .IFEQ .IFPL .IFMI .ENDIF..;------
---------------------------------.
#POKE $00,$D020.;--------------------
-------------------. ;THIS WILL I
NC $D021 100 TIMES.. .BLOCK
;YOU CAN REUSE.COUNTER .VAR 100*3
;LABELS IF YOU.ASSLOP .LBL
;USE .BLOCK. INC $D021.COUNTER
.VAR COUNTER-3. .IF COUNTER.
.GOTO ASSLOP. .ENDIF.
.BEND.;----------------------------
-----------. ; .INCLUDE "FILENAME"
.; THIS ASSEMBLES AN ASCII SOURCE HERE!.
;---------------------------------------
. RTS..TEXT .SHIFT "FUCK".
.NULL " HELLO!"..
> CLICK IMAGE PREVIEW FOR FULL MODAL