SHOWSQUARE .ASC
FILE INFORMATION
FILENAME(S): SHOWSQUARE .ASC
FILE TYPE(S): SEQ
FILE SIZE: 2.2K
FIRST SEEN: 2025-10-20 14:31:33
APPEARS ON: 1 disk(s)
FILE HASH
25aee0c030cf2556c13af28fa0817044dc9bdc9968bfd0a0945ce283ea72bace
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MAGIC DISK 08 95 | SHOWSQUARE .ASC | SEQ | Treasure Chest - Klaus Der Suhler | 20 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 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 0D 0D 3B 20 53 45 54 2D |--------..; SET-| 00000030: 53 51 55 41 52 45 2D 54 45 53 54 0D 0D 3B 2D 2D |SQUARE-TEST..;--| 00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000060: 2D 2D 2D 2D 2D 0D 20 20 20 20 20 20 20 20 20 2A |-----. *| 00000070: 3D 20 24 30 39 30 30 0D 0D 53 43 52 45 45 4E 20 |= $0900..SCREEN | 00000080: 20 20 3D 20 24 30 34 30 30 0D 46 41 52 42 52 41 | = $0400.FARBRA| 00000090: 4D 20 20 3D 20 24 44 38 30 30 0D 42 49 54 4D 41 |M = $D800.BITMA| 000000A0: 50 20 20 20 3D 20 24 32 30 30 30 0D 53 51 55 41 |P = $2000.SQUA| 000000B0: 52 45 20 20 20 3D 20 24 30 31 0D 53 42 41 53 49 |RE = $01.SBASI| 000000C0: 53 20 20 20 3D 20 24 45 30 30 30 2B 28 53 51 55 |S = $E000+(SQU| 000000D0: 41 52 45 2A 34 30 29 0D 0D 20 20 20 20 20 20 20 |ARE*40).. | 000000E0: 20 20 4C 44 41 20 23 3C 42 49 54 4D 41 50 20 20 | LDA #<BITMAP | 000000F0: 20 3B 42 49 54 4D 41 50 2D 49 4E 53 54 41 4C 4C | ;BITMAP-INSTALL| 00000100: 2E 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |.. LDX #| 00000110: 3E 42 49 54 4D 41 50 0D 20 20 20 20 20 20 20 20 |>BITMAP. | 00000120: 20 53 54 41 20 24 46 41 0D 20 20 20 20 20 20 20 | STA $FA. | 00000130: 20 20 53 54 58 20 24 46 42 0D 20 20 20 20 20 20 | STX $FB. | 00000140: 20 20 20 4C 44 58 20 23 24 31 46 0D 20 20 20 20 | LDX #$1F. | 00000150: 20 20 20 20 20 4C 44 59 20 23 24 30 30 0D 20 20 | LDY #$00. | 00000160: 20 20 20 20 20 20 20 54 59 41 0D 49 4E 49 54 30 | TYA.INIT0| 00000170: 30 20 20 20 53 54 41 20 28 24 46 41 29 2C 59 0D |0 STA ($FA),Y.| 00000180: 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 | INY. | 00000190: 20 20 20 20 20 20 42 4E 45 20 49 4E 49 54 30 30 | BNE INIT00| 000001A0: 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 24 46 |. INC $F| 000001B0: 42 0D 20 20 20 20 20 20 20 20 20 44 45 58 0D 20 |B. DEX. | 000001C0: 20 20 20 20 20 20 20 20 42 50 4C 20 49 4E 49 54 | BPL INIT| 000001D0: 30 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |00. LDA | 000001E0: 23 3C 53 43 52 45 45 4E 20 20 20 20 20 20 20 3B |#<SCREEN ;| 000001F0: 53 43 52 45 45 4E 2D 20 55 4E 44 0D 20 20 20 20 |SCREEN- UND. | 00000200: 20 20 20 20 20 4C 44 58 20 23 3E 53 43 52 45 45 | LDX #>SCREE| 00000210: 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |N. STA $| 00000220: 46 41 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 |FA. STX | 00000230: 24 46 42 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |$FB. LDA| 00000240: 20 23 3C 46 41 52 42 52 41 4D 20 20 3B 46 41 52 | #<FARBRAM ;FAR| 00000250: 42 52 41 4D 2D 49 4E 53 54 41 4C 4C 0D 20 20 20 |BRAM-INSTALL. | 00000260: 20 20 20 20 20 20 4C 44 58 20 23 3E 46 41 52 42 | LDX #>FARB| 00000270: 52 41 4D 0D 20 20 20 20 20 20 20 20 20 53 54 41 |RAM. STA| 00000280: 20 24 46 43 0D 20 20 20 20 20 20 20 20 20 53 54 | $FC. ST| 00000290: 58 20 24 46 44 0D 20 20 20 20 20 20 20 20 20 4C |X $FD. L| 000002A0: 44 58 20 23 24 30 33 0D 20 20 20 20 20 20 20 20 |DX #$03. | 000002B0: 20 4C 44 59 20 23 24 30 30 0D 20 20 20 20 20 20 | LDY #$00. | 000002C0: 20 20 20 54 59 41 0D 49 4E 49 54 30 31 20 20 20 | TYA.INIT01 | 000002D0: 53 54 41 20 28 24 46 41 29 2C 59 0D 20 20 20 20 |STA ($FA),Y. | 000002E0: 20 20 20 20 20 53 54 41 20 28 24 46 43 29 2C 59 | STA ($FC),Y| 000002F0: 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 |. INY. | 00000300: 20 20 20 20 20 20 20 42 4E 45 20 49 4E 49 54 30 | BNE INIT0| 00000310: 31 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 24 |1. INC $| 00000320: 46 42 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 |FB. INC | 00000330: 24 46 44 0D 20 20 20 20 20 20 20 20 20 44 45 58 |$FD. DEX| 00000340: 0D 20 20 20 20 20 20 20 20 20 42 50 4C 20 49 4E |. BPL IN| 00000350: 49 54 30 31 0D 0D 20 20 20 20 20 20 20 20 20 4C |IT01.. L| 00000360: 44 41 20 24 44 44 30 30 20 20 20 20 20 20 20 20 |DA $DD00 | 00000370: 20 20 20 3B 47 52 41 46 49 4B 20 45 49 4E 0D 20 | ;GRAFIK EIN. | 00000380: 20 20 20 20 20 20 20 20 41 4E 44 20 25 31 31 31 | AND %111| 00000390: 31 31 31 30 30 0D 20 20 20 20 20 20 20 20 20 4F |11100. O| 000003A0: 52 41 20 25 30 30 30 30 30 30 30 30 0D 20 20 20 |RA %00000000. | 000003B0: 20 20 20 20 20 20 53 54 41 20 24 44 44 30 30 0D | STA $DD00.| 000003C0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 33 | LDA #$3| 000003D0: 42 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |B. STA $| 000003E0: 44 30 31 31 0D 20 20 20 20 20 20 20 20 20 4C 44 |D011. LD| 000003F0: 41 20 23 24 31 38 0D 20 20 20 20 20 20 20 20 20 |A #$18. | 00000400: 53 54 41 20 24 44 30 31 36 0D 20 20 20 20 20 20 |STA $D016. | 00000410: 20 20 20 53 54 41 20 24 44 30 31 38 0D 20 20 20 | STA $D018. | 00000420: 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 0D 20 | LDA #$00. | 00000430: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 32 | STA $D02| 00000440: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |0. STA $| 00000450: 44 30 32 31 0D 0D 20 20 20 20 20 20 20 20 20 53 |D021.. S| 00000460: 45 49 20 20 20 20 20 20 20 20 20 20 20 20 3B 53 |EI ;S| 00000470: 51 55 41 52 45 20 41 4E 5A 45 49 47 45 4E 0D 20 |QUARE ANZEIGEN. | 00000480: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 33 35 | LDA #$35| 00000490: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 |. STA $0| 000004A0: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |1. LDX #| 000004B0: 24 30 37 20 20 20 20 20 20 20 20 20 20 20 20 20 |$07 | 000004C0: 20 20 20 3B 42 49 54 4D 41 50 0D 4C 4F 4F 50 0D | ;BITMAP.LOOP.| 000004D0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 42 41 | LDA SBA| 000004E0: 53 49 53 2B 28 30 2A 31 30 29 2C 58 0D 20 20 20 |SIS+(0*10),X. | 000004F0: 20 20 20 20 20 20 53 54 41 20 42 49 54 4D 41 50 | STA BITMAP| 00000500: 2B 28 30 2A 24 30 31 34 30 29 2B 28 30 2A 38 29 |+(0*$0140)+(0*8)| 00000510: 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |,X. LDA | 00000520: 53 42 41 53 49 53 2B 28 31 2A 31 30 29 2C 58 0D |SBASIS+(1*10),X.| 00000530: 20 20 20 20 20 20 20 20 20 53 54 41 20 42 49 54 | STA BIT| 00000540: 4D 41 50 2B 28 30 2A 24 30 31 34 30 29 2B 28 31 |MAP+(0*$0140)+(1| 00000550: 2A 38 29 2C 58 0D 20 20 20 20 20 20 20 20 20 4C |*8),X. L| 00000560: 44 41 20 53 42 41 53 49 53 2B 28 32 2A 31 30 29 |DA SBASIS+(2*10)| 00000570: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 00000580: 42 49 54 4D 41 50 2B 28 31 2A 24 30 31 34 30 29 |BITMAP+(1*$0140)| 00000590: 2B 28 30 2A 38 29 2C 58 0D 20 20 20 20 20 20 20 |+(0*8),X. | 000005A0: 20 20 4C 44 41 20 53 42 41 53 49 53 2B 28 33 2A | LDA SBASIS+(3*| 000005B0: 31 30 29 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |10),X. S| 000005C0: 54 41 20 42 49 54 4D 41 50 2B 28 31 2A 24 30 31 |TA BITMAP+(1*$01| 000005D0: 34 30 29 2B 28 31 2A 38 29 2C 58 0D 20 20 20 20 |40)+(1*8),X. | 000005E0: 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 20 | DEX. | 000005F0: 20 20 42 50 4C 20 4C 4F 4F 50 0D 20 20 20 20 20 | BPL LOOP. | 00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000610: 20 20 20 20 20 20 20 20 20 20 20 20 3B 53 43 52 | ;SCR| 00000620: 45 45 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |EEN. LDA| 00000630: 20 53 42 41 53 49 53 2B 28 30 2A 31 30 29 2B 38 | SBASIS+(0*10)+8| 00000640: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 53 43 |. STA SC| 00000650: 52 45 45 4E 2B 28 30 2A 34 30 29 2B 30 0D 20 20 |REEN+(0*40)+0. | 00000660: 20 20 20 20 20 20 20 4C 44 41 20 53 42 41 53 49 | LDA SBASI| 00000670: 53 2B 28 31 2A 31 30 29 2B 38 0D 20 20 20 20 20 |S+(1*10)+8. | 00000680: 20 20 20 20 53 54 41 20 53 43 52 45 45 4E 2B 28 | STA SCREEN+(| 00000690: 30 2A 34 30 29 2B 31 0D 20 20 20 20 20 20 20 20 |0*40)+1. | 000006A0: 20 4C 44 41 20 53 42 41 53 49 53 2B 28 32 2A 31 | LDA SBASIS+(2*1| 000006B0: 30 29 2B 38 0D 20 20 20 20 20 20 20 20 20 53 54 |0)+8. ST| 000006C0: 41 20 53 43 52 45 45 4E 2B 28 31 2A 34 30 29 2B |A SCREEN+(1*40)+| 000006D0: 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 |0. LDA S| 000006E0: 42 41 53 49 53 2B 28 33 2A 31 30 29 2B 38 0D 20 |BASIS+(3*10)+8. | 000006F0: 20 20 20 20 20 20 20 20 53 54 41 20 53 43 52 45 | STA SCRE| 00000700: 45 4E 2B 28 31 2A 34 30 29 2B 31 0D 20 20 20 20 |EN+(1*40)+1. | 00000710: 20 20 20 20 20 4C 44 41 20 53 42 41 53 49 53 2B | LDA SBASIS+| 00000720: 28 30 2A 31 30 29 2B 39 20 20 20 20 3B 46 41 52 |(0*10)+9 ;FAR| 00000730: 42 52 41 4D 0D 20 20 20 20 20 20 20 20 20 53 54 |BRAM. ST| 00000740: 41 20 46 41 52 42 52 41 4D 2B 28 30 2A 34 30 29 |A FARBRAM+(0*40)| 00000750: 2B 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |+0. LDA | 00000760: 53 42 41 53 49 53 2B 28 31 2A 31 30 29 2B 39 0D |SBASIS+(1*10)+9.| 00000770: 20 20 20 20 20 20 20 20 20 53 54 41 20 46 41 52 | STA FAR| 00000780: 42 52 41 4D 2B 28 30 2A 34 30 29 2B 31 0D 20 20 |BRAM+(0*40)+1. | 00000790: 20 20 20 20 20 20 20 4C 44 41 20 53 42 41 53 49 | LDA SBASI| 000007A0: 53 2B 28 32 2A 31 30 29 2B 39 0D 20 20 20 20 20 |S+(2*10)+9. | 000007B0: 20 20 20 20 53 54 41 20 46 41 52 42 52 41 4D 2B | STA FARBRAM+| 000007C0: 28 31 2A 34 30 29 2B 30 0D 20 20 20 20 20 20 20 |(1*40)+0. | 000007D0: 20 20 4C 44 41 20 53 42 41 53 49 53 2B 28 33 2A | LDA SBASIS+(3*| 000007E0: 31 30 29 2B 39 0D 20 20 20 20 20 20 20 20 20 53 |10)+9. S| 000007F0: 54 41 20 46 41 52 42 52 41 4D 2B 28 31 2A 34 30 |TA FARBRAM+(1*40| 00000800: 29 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |)+1. LDA| 00000810: 20 23 24 33 37 0D 20 20 20 20 20 20 20 20 20 53 | #$37. S| 00000820: 54 41 20 24 30 31 0D 20 20 20 20 20 20 20 20 20 |TA $01. | 00000830: 43 4C 49 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |CLI.. LD| 00000840: 41 20 23 24 30 30 20 20 20 20 20 20 3B 41 55 46 |A #$00 ;AUF| 00000850: 20 54 41 53 54 45 20 57 41 52 54 45 4E 0D 20 20 | TASTE WARTEN. | 00000860: 20 20 20 20 20 20 20 53 54 41 20 31 39 38 0D 54 | STA 198.T| 00000870: 41 53 54 45 20 20 20 20 4A 53 52 20 24 46 46 45 |ASTE JSR $FFE| 00000880: 34 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 54 |4. BEQ T| 00000890: 41 53 54 45 0D 20 20 20 20 20 20 20 20 20 4A 53 |ASTE. JS| 000008A0: 52 20 24 46 46 38 31 20 20 20 20 20 20 20 20 20 |R $FF81 | 000008B0: 20 20 3B 47 52 41 46 49 4B 20 41 55 53 0D 20 20 | ;GRAFIK AUS. | 000008C0: 20 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 | RTS | 000008D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 5A | ;Z| 000008E0: 55 52 55 45 43 4B 0D 0D |URUECK.. |
;---------------------------------------
..; SET-SQUARE-TEST..;------------------
---------------------. *= $0900.
.SCREEN = $0400.FARBRAM = $D800.BITMA
P = $2000.SQUARE = $01.SBASIS = $E
000+(SQUARE*40).. LDA #<BITMAP
;BITMAP-INSTALL.. LDX #>BITMAP.
STA $FA. STX $FB.
LDX #$1F. LDY #$00. T
YA.INIT00 STA ($FA),Y. INY.
BNE INIT00. INC $FB.
DEX. BPL INIT00. LDA
#<SCREEN ;SCREEN- UND. LDX
#>SCREEN. STA $FA. STX
$FB. LDA #<FARBRAM ;FARBRAM-INS
TALL. LDX #>FARBRAM. STA
$FC. STX $FD. LDX #$03.
LDY #$00. TYA.INIT01
STA ($FA),Y. STA ($FC),Y.
INY. BNE INIT01. INC $
FB. INC $FD. DEX.
BPL INIT01.. LDA $DD00
;GRAFIK EIN. AND %11111100.
ORA %00000000. STA $DD00.
LDA #$3B. STA $D011.
LDA #$18. STA $D016.
STA $D018. LDA #$00.
STA $D020. STA $D021.. S
EI ;SQUARE ANZEIGEN.
LDA #$35. STA $01. LDX #
$07 ;BITMAP.LOOP.
LDA SBASIS+(0*10),X. STA BITMAP
+(0*$0140)+(0*8),X. LDA SBASIS+(
1*10),X. STA BITMAP+(0*$0140)+(1
*8),X. LDA SBASIS+(2*10),X.
STA BITMAP+(1*$0140)+(0*8),X.
LDA SBASIS+(3*10),X. STA BITMA
P+(1*$0140)+(1*8),X. DEX.
BPL LOOP.
;SCREEN. LDA SBASIS+(0*10)+8
. STA SCREEN+(0*40)+0. L
DA SBASIS+(1*10)+8. STA SCREEN+(
0*40)+1. LDA SBASIS+(2*10)+8.
STA SCREEN+(1*40)+0. LDA S
BASIS+(3*10)+8. STA SCREEN+(1*40
)+1. LDA SBASIS+(0*10)+9 ;FAR
BRAM. STA FARBRAM+(0*40)+0.
LDA SBASIS+(1*10)+9. STA FAR
BRAM+(0*40)+1. LDA SBASIS+(2*10)
+9. STA FARBRAM+(1*40)+0.
LDA SBASIS+(3*10)+9. STA FARBR
AM+(1*40)+1. LDA #$37. S
TA $01. CLI.. LDA #$00
;AUF TASTE WARTEN. STA 198.T
ASTE JSR $FFE4. BEQ TASTE.
JSR $FF81 ;GRAFIK AUS.
RTS ;ZURUECK..
> CLICK IMAGE PREVIEW FOR FULL MODAL