STATUSZEILEN.ASS
FILE INFORMATION
FILENAME(S): STATUSZEILEN.ASS
FILE TYPE(S): SEQ
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 01:12:33
APPEARS ON: 3 disk(s)
FILE HASH
657258dc76bbaaaf3fc2e18a21554802e5237142e840c895985f39388443353a
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 7 86 | STATUSZEILEN.ASS | SEQ | C64er | 7 | 1 | DOWNLOAD FILE |
| SONDERHEFT 7 86 | STATUSZEILEN.ASS | SEQ | DuncanTwain | 7 | 1 | DOWNLOAD FILE |
| SONDERHEFT 7 86 | STATUSZEILEN.ASS | SEQ | DuncanTwain | 7 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 53 54 41 54 55 53 45 49 4E 42 4C 45 4E 44 55 |;STATUSEINBLENDU| 00000010: 4E 47 20 49 4D 20 49 4E 54 45 52 55 50 54 0D 3B |NG IM INTERUPT.;| 00000020: 20 20 20 20 55 57 45 20 57 49 41 52 44 53 0D 3B | UWE WIARDS.;| 00000030: 20 20 20 20 32 38 37 34 20 4C 45 4D 57 45 52 44 | 2874 LEMWERD| 00000040: 45 52 0D 0D 3B 20 41 53 53 49 2D 46 53 45 2D 41 |ER..; ASSI-FSE-A| 00000050: 53 53 45 4D 42 4C 45 52 20 34 2E 31 32 20 28 43 |SSEMBLER 4.12 (C| 00000060: 29 20 44 2E 5A 41 42 45 4C 0D 0D 3B 32 53 54 41 |) D.ZABEL..;2STA| 00000070: 54 55 53 5A 45 49 4C 45 4E 20 3D 20 4D 41 58 20 |TUSZEILEN = MAX | 00000080: 38 30 20 5A 45 49 43 48 45 4E 0D 3B 41 42 20 53 |80 ZEICHEN.;AB S| 00000090: 54 41 52 54 41 44 52 45 53 53 45 20 2B 20 44 45 |TARTADRESSE + DE| 000000A0: 5A 20 35 31 20 54 45 58 54 21 0D 0D 2A 3D 24 43 |Z 51 TEXT!..*=$C| 000000B0: 30 30 30 20 20 20 3B 50 52 4F 47 52 41 4D 4D 41 |000 ;PROGRAMMA| 000000C0: 44 52 45 53 53 45 0D 0D 4E 5A 45 49 3D 32 20 20 |DRESSE..NZEI=2 | 000000D0: 20 20 20 20 20 20 3B 41 4E 5A 41 48 4C 20 44 45 | ;ANZAHL DE| 000000E0: 52 20 5A 45 49 4C 45 4E 0D 4E 4C 45 54 54 3D 34 |R ZEILEN.NLETT=4| 000000F0: 30 2A 4E 5A 45 49 20 3B 41 4E 5A 2E 20 42 55 43 |0*NZEI ;ANZ. BUC| 00000100: 48 53 54 2E 0D 49 52 51 56 3D 24 30 33 31 34 20 |HST..IRQV=$0314 | 00000110: 20 20 20 3B 49 52 51 2D 50 4F 49 4E 54 45 52 0D | ;IRQ-POINTER.| 00000120: 50 4C 4F 54 3D 24 46 46 46 30 20 20 20 20 3B 50 |PLOT=$FFF0 ;P| 00000130: 4C 4F 54 20 20 20 43 55 52 53 4F 52 20 50 4F 53 |LOT CURSOR POS| 00000140: 20 4C 2F 53 0D 4E 4F 52 4D 3D 24 45 41 33 31 20 | L/S.NORM=$EA31 | 00000150: 20 20 20 3B 4E 4F 52 4D 20 49 52 51 0D 53 43 52 | ;NORM IRQ.SCR| 00000160: 42 3D 24 30 34 30 30 20 20 20 20 3B 53 43 52 45 |B=$0400 ;SCRE| 00000170: 45 4E 42 45 47 49 4E 4E 0D 46 41 52 42 3D 24 44 |ENBEGINN.FARB=$D| 00000180: 38 30 30 20 20 20 20 3B 46 41 52 42 52 41 4D 20 |800 ;FARBRAM | 00000190: 42 45 47 49 4E 4E 0D 0D 0D 49 4E 49 54 20 20 53 |BEGINN...INIT S| 000001A0: 45 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |EI | 000001B0: 3B 49 52 51 20 41 55 53 0D 20 20 20 20 20 20 4C |;IRQ AUS. L| 000001C0: 44 41 23 3C 53 54 41 52 54 20 20 20 20 20 20 20 |DA#<START | 000001D0: 3B 50 4F 49 4E 54 45 52 20 49 52 51 56 0D 20 20 |;POINTER IRQV. | 000001E0: 20 20 20 20 53 54 41 20 49 52 51 56 20 20 20 20 | STA IRQV | 000001F0: 20 20 20 20 20 3B 41 55 46 0D 20 20 20 20 20 20 | ;AUF. | 00000200: 4C 44 41 23 3E 53 54 41 52 54 20 20 20 20 20 20 |LDA#>START | 00000210: 20 3B 53 54 41 52 54 20 53 45 54 5A 45 4E 0D 20 | ;START SETZEN. | 00000220: 20 20 20 20 20 53 54 41 20 49 52 51 56 2B 31 20 | STA IRQV+1 | 00000230: 20 20 20 20 20 20 3B 4C 4F 20 55 2E 20 48 49 2D | ;LO U. HI-| 00000240: 42 59 54 45 0D 20 20 20 20 20 20 43 4C 49 20 20 |BYTE. CLI | 00000250: 20 20 20 20 20 20 20 20 20 20 20 20 3B 49 52 51 | ;IRQ| 00000260: 20 45 49 4E 0D 20 20 20 20 20 20 52 54 53 0D 53 | EIN. RTS.S| 00000270: 54 41 52 54 20 4C 44 58 23 24 30 30 20 20 20 20 |TART LDX#$00 | 00000280: 20 20 20 20 20 20 3B 58 20 49 4E 49 54 41 4C 49 | ;X INITALI| 00000290: 53 49 45 52 45 4E 0D 4C 4F 4F 50 20 20 4C 44 41 |SIEREN.LOOP LDA| 000002A0: 20 54 45 58 54 2C 58 20 20 20 20 20 20 20 3B 41 | TEXT,X ;A| 000002B0: 44 52 20 54 45 58 54 20 2B 20 58 0D 20 20 20 20 |DR TEXT + X. | 000002C0: 20 20 53 54 41 20 53 43 52 42 2C 58 20 20 20 20 | STA SCRB,X | 000002D0: 20 20 20 3B 41 44 52 20 53 43 52 42 20 2B 20 58 | ;ADR SCRB + X| 000002E0: 0D 20 20 20 20 20 20 4C 44 41 23 24 30 31 20 20 |. LDA#$01 | 000002F0: 20 20 20 20 20 20 20 20 3B 46 41 52 42 45 0D 20 | ;FARBE. | 00000300: 20 20 20 20 20 53 54 41 20 46 41 52 42 2C 58 20 | STA FARB,X | 00000310: 20 20 20 20 20 20 3B 53 45 54 5A 54 20 46 41 52 | ;SETZT FAR| 00000320: 42 45 0D 20 20 20 20 20 20 49 4E 58 20 20 20 20 |BE. INX | 00000330: 20 20 20 20 20 20 20 20 20 20 3B 58 3D 58 2B 31 | ;X=X+1| 00000340: 0D 20 20 20 20 20 20 43 50 58 23 4E 4C 45 54 54 |. CPX#NLETT| 00000350: 20 20 20 20 20 20 20 20 3B 56 45 52 47 4C 45 49 | ;VERGLEI| 00000360: 43 48 45 0D 20 20 20 20 20 20 42 45 51 20 45 4E |CHE. BEQ EN| 00000370: 44 20 20 20 20 20 20 20 20 20 20 3B 30 20 44 41 |D ;0 DA| 00000380: 4E 4E 20 45 4E 44 0D 20 20 20 20 20 20 4A 4D 50 |NN END. JMP| 00000390: 20 4C 4F 4F 50 0D 45 4E 44 20 20 20 53 45 43 20 | LOOP.END SEC | 000003A0: 20 3B 43 41 52 52 59 20 53 45 54 5A 45 4E 20 50 | ;CARRY SETZEN P| 000003B0: 4C 4F 54 20 4C 49 45 53 54 0D 20 20 20 20 20 20 |LOT LIEST. | 000003C0: 4A 53 52 20 50 4C 4F 54 0D 20 20 20 20 20 20 43 |JSR PLOT. C| 000003D0: 50 58 23 4E 5A 45 49 0D 20 20 20 20 20 20 42 50 |PX#NZEI. BP| 000003E0: 4C 20 41 55 53 0D 53 45 54 20 20 20 43 4C 43 20 |L AUS.SET CLC | 000003F0: 20 3B 43 41 52 52 59 20 4C 4F 45 2E 20 50 4C 4F | ;CARRY LOE. PLO| 00000400: 54 20 53 43 48 52 45 49 42 54 0D 20 20 20 20 20 |T SCHREIBT. | 00000410: 20 4C 44 58 23 4E 5A 45 49 0D 20 20 20 20 20 20 | LDX#NZEI. | 00000420: 4A 53 52 20 50 4C 4F 54 0D 41 55 53 20 20 20 4A |JSR PLOT.AUS J| 00000430: 4D 50 20 4E 4F 52 4D 0D 54 45 58 54 20 20 2E 54 |MP NORM.TEXT .T| 00000440: 45 58 54 20 22 D3 D4 C1 D4 D5 D3 DA C5 C9 CC C5 |EXT "...........| 00000450: CE C5 C9 CE C2 CC C5 CE C4 D5 CE C7 A0 22 0D 20 |.............". | 00000460: 20 20 20 20 20 2E 54 45 58 54 20 22 C2 D9 A0 D5 | .TEXT "....| 00000470: D7 C5 A0 D7 C9 C1 D2 C4 D3 A0 A0 A0 22 0D 20 20 |............". | 00000480: 20 20 20 20 2E 54 45 58 54 20 22 C1 C3 C8 D4 DA | .TEXT ".....| 00000490: C9 C7 A0 DA C5 C9 C3 C8 C5 CE A0 D4 C5 D8 D4 A0 |................| 000004A0: A0 A0 A0 22 0D 20 20 20 20 20 20 2E 54 45 58 54 |...". .TEXT| 000004B0: 20 22 D2 C5 D3 D4 A0 C1 D5 C6 C6 D5 C5 CC CC C5 | "..............| 000004C0: CE A0 22 0D 0D 53 54 4F 50 20 20 53 45 49 0D 20 |.."..STOP SEI. | 000004D0: 20 20 20 20 20 4C 44 41 23 3C 4E 4F 52 4D 20 20 | LDA#<NORM | 000004E0: 20 20 20 20 20 20 3B 49 52 51 2D 50 4F 49 4E 54 | ;IRQ-POINT| 000004F0: 45 52 0D 20 20 20 20 20 20 53 54 41 20 49 52 51 |ER. STA IRQ| 00000500: 56 20 20 20 20 20 20 20 20 20 3B 41 55 46 20 4E |V ;AUF N| 00000510: 4F 52 4D 57 45 52 54 0D 20 20 20 20 20 20 4C 44 |ORMWERT. LD| 00000520: 41 23 3E 4E 4F 52 4D 20 20 20 20 20 20 20 20 3B |A#>NORM ;| 00000530: 5A 55 52 55 45 43 4B 53 45 54 5A 45 4E 0D 20 20 |ZURUECKSETZEN. | 00000540: 20 20 20 20 53 54 41 20 49 52 51 56 2B 31 0D 20 | STA IRQV+1. | 00000550: 20 20 20 20 20 43 4C 49 0D 20 20 20 20 20 20 52 | CLI. R| 00000560: 54 53 0D 0D |TS.. |
;STATUSEINBLENDUNG IM INTERUPT.; UWE
WIARDS.; 2874 LEMWERDER..; ASSI-FSE-A
SSEMBLER 4.12 (C) D.ZABEL..;2STATUSZEILE
N = MAX 80 ZEICHEN.;AB STARTADRESSE + DE
Z 51 TEXT!..*=$C000 ;PROGRAMMADRESSE..
NZEI=2 ;ANZAHL DER ZEILEN.NLETT=4
0*NZEI ;ANZ. BUCHST..IRQV=$0314 ;IRQ-
POINTER.PLOT=$FFF0 ;PLOT CURSOR POS
L/S.NORM=$EA31 ;NORM IRQ.SCRB=$0400
;SCREENBEGINN.FARB=$D800 ;FARBRAM
BEGINN...INIT SEI ;IRQ AUS
. LDA#<START ;POINTER IRQV.
STA IRQV ;AUF. LDA#>STA
RT ;START SETZEN. STA IRQV+1
;LO U. HI-BYTE. CLI
;IRQ EIN. RTS.START LDX#$00
;X INITALISIEREN.LOOP LDA TEXT,X
;ADR TEXT + X. STA SCRB,X
;ADR SCRB + X. LDA#$01
;FARBE. STA FARB,X ;SETZT FAR
BE. INX ;X=X+1. C
PX#NLETT ;VERGLEICHE. BEQ EN
D ;0 DANN END. JMP LOOP.EN
D SEC ;CARRY SETZEN PLOT LIEST.
JSR PLOT. CPX#NZEI. BPL AUS.SE
T CLC ;CARRY LOE. PLOT SCHREIBT.
LDX#NZEI. JSR PLOT.AUS JMP NORM.
TEXT .TEXT "STATUSZEILENEINBLENDUNG ".
.TEXT "BY UWE WIARDS ". .TEX
T "ACHTZIG ZEICHEN TEXT ". .TEXT
"REST AUFFUELLEN "..STOP SEI. LDA
#<NORM ;IRQ-POINTER. STA IRQ
V ;AUF NORMWERT. LDA#>NORM
;ZURUECKSETZEN. STA IRQV+1.
CLI. RTS..
> CLICK IMAGE PREVIEW FOR FULL MODAL