MOVE.SRC
FILE INFORMATION
FILENAME(S): MOVE.SRC
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 01:12:40
APPEARS ON: 2 disk(s)
FILE HASH
0715cb36b711188c0842d87263b3845fe425fa42dc5eeec8d0c403fd831533c9
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SH 12 86 VORDERS | MOVE.SRC | PRG | C64er, DuncanTwain | 15 | 3 | DOWNLOAD FILE |
| SH 12 86 VORDERS | MOVE.SRC | PRG | DuncanTwain | 15 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: FF 00 10 E1 1E 00 70 00 3B 2A 2A 2A 2A 2A 2A 2A |......p.;*******|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 80 |**************..|
00000020: 00 3B 2A 20 20 20 20 20 4D 4F 56 45 2D 52 4F 55 |.;* MOVE-ROU|
00000030: 54 49 4E 45 20 20 20 AA 00 01 3B 2A 20 28 43 29 |TINE ...;* (C)|
00000040: 20 53 2E 42 41 4C 4F 55 49 2C 20 31 39 38 36 20 | S.BALOUI, 1986 |
00000050: AA 10 01 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...;************|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 20 01 BB 30 01 BB |*********. ..0..|
00000070: 40 01 3B 2A 2A 2A 20 46 55 4E 4B 54 49 4F 4E 20 |@.;*** FUNKTION |
00000080: 2A 2A AA 50 01 3B 27 4D 4F 56 45 27 56 45 52 53 |**.P.;'MOVE'VERS|
00000090: 43 48 49 45 42 54 20 45 49 4E 45 4E 20 42 45 4C |CHIEBT EINEN BEL|
000000A0: 49 45 42 49 47 45 CE 60 01 3B 53 50 45 49 43 48 |IEBIGE.`.;SPEICH|
000000B0: 45 52 42 45 52 45 49 43 48 2C 20 57 4F 42 45 49 |ERBEREICH, WOBEI|
000000C0: 20 44 45 52 20 46 41 4C 4C AC 70 01 3B 44 41 53 | DER FALL.p.;DAS|
000000D0: 53 20 53 49 43 48 20 44 49 45 20 5A 49 45 4C 41 |S SICH DIE ZIELA|
000000E0: 44 52 45 53 53 45 20 4D 49 54 20 44 45 CD 80 01 |DRESSE MIT DE...|
000000F0: 3B 5A 55 20 56 45 52 53 43 48 49 45 42 45 4E 44 |;ZU VERSCHIEBEND|
00000100: 45 4E 20 42 4C 4F 43 4B 20 27 55 45 42 45 52 AD |EN BLOCK 'UEBER.|
00000110: 90 01 3B 4C 41 50 50 54 27 2C 20 42 45 52 55 45 |..;LAPPT', BERUE|
00000120: 43 4B 53 49 43 48 54 49 47 54 20 57 49 52 44 AE |CKSICHTIGT WIRD.|
00000130: 00 02 BB 10 02 BB 20 02 3B 2A 2A 2A 20 41 55 46 |...... .;*** AUF|
00000140: 52 55 46 20 2A 2A AA 30 02 3B 53 59 53 20 34 39 |RUF **.0.;SYS 49|
00000150: 31 35 32 2C 53 54 41 52 54 2C 5A 49 45 4C 2C 41 |152,START,ZIEL,A|
00000160: 4E 5A 41 48 CC 40 02 BB 50 02 3B 20 2D 20 53 54 |NZAH.@..P.; - ST|
00000170: 41 52 54 20 3A 20 41 44 52 45 53 53 45 20 4F 44 |ART : ADRESSE OD|
00000180: 45 52 20 56 41 52 49 41 42 4C C5 60 02 3B 20 2D |ER VARIABL.`.; -|
00000190: 20 5A 49 45 4C 20 20 3A 20 41 44 52 45 53 53 45 | ZIEL : ADRESSE|
000001A0: 20 4F 44 45 52 20 56 41 52 49 41 42 4C C5 70 02 | ODER VARIABL.p.|
000001B0: 3B 20 2D 20 41 4E 5A 41 48 4C 3A 20 49 4E 54 45 |; - ANZAHL: INTE|
000001C0: 47 45 52 57 45 52 D4 80 02 BB 90 02 3B 41 42 20 |GERWER......;AB |
000001D0: 27 53 54 41 52 54 27 20 57 45 52 44 45 4E 20 27 |'START' WERDEN '|
000001E0: 41 4E 5A 41 48 4C 27 20 42 59 54 45 D3 00 03 3B |ANZAHL' BYTE...;|
000001F0: 4E 41 43 48 20 27 5A 49 45 4C 27 20 56 45 52 53 |NACH 'ZIEL' VERS|
00000200: 43 48 4F 42 45 4E AE 10 03 3B 42 45 49 20 41 4E |CHOBEN...;BEI AN|
00000210: 47 41 42 45 20 56 4F 4E 20 56 41 52 49 41 42 4C |GABE VON VARIABL|
00000220: 45 4E 20 57 49 52 C4 20 03 3B 44 49 45 20 41 44 |EN WIR. .;DIE AD|
00000230: 52 45 53 53 45 20 44 45 52 20 5A 55 47 45 48 4F |RESSE DER ZUGEHO|
00000240: 45 52 49 47 45 CE 30 03 3B 44 45 53 43 52 49 50 |ERIGE.0.;DESCRIP|
00000250: 54 4F 52 45 4E 20 56 45 52 57 45 4E 44 45 54 AE |TOREN VERWENDET.|
00000260: 40 03 BB 50 03 BB 60 03 3B 2A 2A 2A 20 42 45 49 |@..P..`.;*** BEI|
00000270: 53 50 49 45 4C 45 20 2A 2A AA 70 03 3B 31 2E 20 |SPIELE **.p.;1. |
00000280: 53 59 53 20 34 39 31 35 32 2C 31 30 32 34 2C 35 |SYS 49152,1024,5|
00000290: 30 30 30 30 2C 31 30 30 B0 80 03 3B 20 20 20 56 |0000,100...; V|
000002A0: 45 52 53 43 48 49 45 42 54 20 44 45 4E 20 4B 4F |ERSCHIEBT DEN KO|
000002B0: 4D 50 4C 45 54 54 45 CE 90 03 3B 20 20 20 42 49 |MPLETTE...; BI|
000002C0: 4C 44 53 43 48 49 52 4D 53 50 45 49 43 48 45 52 |LDSCHIRMSPEICHER|
000002D0: 20 4E 41 43 C8 00 04 3B 20 20 20 35 30 30 30 B0 | NAC...; 5000.|
000002E0: 10 04 BB 20 04 3B 32 2E 20 53 59 53 20 34 39 31 |... .;2. SYS 491|
000002F0: 35 32 2C 41 24 28 31 30 29 2C 41 24 28 31 31 29 |52,A$(10),A$(11)|
00000300: 2C 35 2A B3 30 04 3B 20 20 20 53 54 41 52 54 3A |,5*.0.; START:|
00000310: 20 41 44 52 45 53 53 45 20 44 45 53 20 44 45 53 | ADRESSE DES DES|
00000320: 43 52 49 50 54 4F 52 D3 40 04 3B 20 20 20 20 20 |CRIPTOR.@.; |
00000330: 20 20 20 20 20 41 55 46 20 27 41 24 28 31 30 29 | AUF 'A$(10)|
00000340: A7 50 04 3B 20 20 20 5A 49 45 4C 3A 20 20 41 44 |.P.; ZIEL: AD|
00000350: 52 45 53 53 45 20 44 45 53 20 44 45 53 43 52 49 |RESSE DES DESCRI|
00000360: 50 54 4F 52 D3 60 04 3B 20 20 20 20 20 20 20 20 |PTOR.`.; |
00000370: 20 20 41 55 46 20 27 41 24 28 31 31 29 A7 70 04 | AUF 'A$(11).p.|
00000380: 3B 20 20 20 41 4E 5A 41 48 4C 3A 31 35 20 42 59 |; ANZAHL:15 BY|
00000390: 54 45 D3 80 04 BB 90 04 3B 20 20 20 50 52 41 4B |TE......; PRAK|
000003A0: 54 49 53 43 48 45 20 41 55 53 57 49 52 4B 55 4E |TISCHE AUSWIRKUN|
000003B0: 47 BA 00 05 3B 20 20 20 49 4D 20 41 52 52 41 59 |G...; IM ARRAY|
000003C0: 20 27 41 24 28 31 29 27 2E 2E 27 41 24 28 31 34 | 'A$(1)'..'A$(14|
000003D0: 29 A7 10 05 3B 20 20 20 57 49 52 44 20 41 4E 20 |)...; WIRD AN |
000003E0: 44 45 52 20 50 4F 53 49 54 49 4F 4E 20 27 41 24 |DER POSITION 'A$|
000003F0: 28 31 30 29 A7 20 05 3B 20 20 20 50 4C 41 54 5A |(10). .; PLATZ|
00000400: 20 46 55 45 52 20 45 49 4E 45 4E 20 4E 45 55 20 | FUER EINEN NEU |
00000410: 45 49 4E 5A 55 AD 30 05 3B 20 20 20 54 52 41 47 |EINZU.0.; TRAG|
00000420: 45 4E 44 45 4E 20 53 54 52 49 4E 47 20 47 45 53 |ENDEN STRING GES|
00000430: 43 48 41 46 46 45 CE 40 05 3B 20 20 20 28 27 41 |CHAFFE.@.; ('A|
00000440: 24 28 31 30 29 27 2E 2E 27 41 24 28 31 34 29 27 |$(10)'..'A$(14)'|
00000450: 20 57 45 52 44 45 4E 20 55 CD 50 05 3B 20 20 20 | WERDEN U.P.; |
00000460: 4A 45 20 44 52 45 49 20 42 59 54 45 20 28 45 49 |JE DREI BYTE (EI|
00000470: 4E 45 20 44 45 53 43 52 49 50 54 4F 52 AD 60 05 |NE DESCRIPTOR.`.|
00000480: 3B 20 20 20 4C 41 45 4E 47 45 29 20 56 45 52 53 |; LAENGE) VERS|
00000490: 43 48 4F 42 45 4E AE 70 05 BB 80 05 BB 90 05 43 |CHOBEN.p.......C|
000004A0: 48 52 47 45 54 20 2E 44 45 20 24 37 B3 00 06 43 |HRGET .DE $7...C|
000004B0: 48 52 47 4F 54 20 2E 44 45 20 24 37 B9 10 06 54 |HRGOT .DE $7...T|
000004C0: 58 54 50 54 52 20 2E 44 45 20 24 37 C1 20 06 56 |XTPTR .DE $7. .V|
000004D0: 41 52 50 4F 53 20 2E 44 45 20 24 42 30 38 C2 30 |ARPOS .DE $B08.0|
000004E0: 06 43 48 4B 4B 4F 4D 20 2E 44 45 20 24 41 45 46 |.CHKKOM .DE $AEF|
000004F0: C4 40 06 46 52 4D 4E 55 4D 20 2E 44 45 20 24 41 |.@.FRMNUM .DE $A|
00000500: 44 38 C1 50 06 47 45 54 41 44 52 20 2E 44 45 20 |D8.P.GETADR .DE |
00000510: 24 42 37 46 B7 60 06 BB 70 06 56 4F 4E 20 20 20 |$B7F.`..p.VON |
00000520: 20 2E 44 45 20 24 46 C2 80 06 4E 41 43 48 20 20 | .DE $F...NACH |
00000530: 20 2E 44 45 20 24 46 C4 90 06 41 4E 5A 41 48 4C | .DE $F...ANZAHL|
00000540: 20 2E 44 45 20 24 41 B7 00 07 4B 4F 50 49 45 20 | .DE $A...KOPIE |
00000550: 20 2E 44 45 20 24 41 B9 10 07 46 4C 41 47 20 20 | .DE $A...FLAG |
00000560: 20 2E 44 45 20 24 41 C2 20 07 BB 30 07 20 2E 42 | .DE $A. ..0. .B|
00000570: 41 20 24 43 30 30 B0 40 07 20 2E 4F D3 50 07 BB |A $C00.@. .O.P..|
00000580: 60 07 BB 70 07 3B 2A 2A 2A 20 48 41 55 50 54 50 |`..p.;*** HAUPTP|
00000590: 52 4F 47 52 41 4D 4D 20 2A 2A AA 80 07 20 4A 53 |ROGRAMM **... JS|
000005A0: 52 20 4C 49 45 53 20 20 20 20 20 20 3B 51 55 45 |R LIES ;QUE|
000005B0: 4C 4C 41 44 52 45 53 53 C5 90 07 20 53 54 59 20 |LLADRESS... STY |
000005C0: 56 4F 4E 20 20 20 20 20 20 20 3B 4C 45 53 45 4E |VON ;LESEN|
000005D0: 20 28 27 56 4F 4E 28 2B 31 29 27 A9 00 08 20 53 | ('VON(+1)'... S|
000005E0: 54 41 20 56 4F 4E 2B B1 10 08 20 4A 53 52 20 4C |TA VON+... JSR L|
000005F0: 49 45 53 20 20 20 20 20 20 3B 5A 49 45 4C 41 44 |IES ;ZIELAD|
00000600: 52 45 53 53 C5 20 08 20 53 54 59 20 4E 41 43 48 |RESS. . STY NACH|
00000610: 20 20 20 20 20 20 3B 4C 45 53 45 4E 20 28 27 4E | ;LESEN ('N|
00000620: 41 43 48 28 2B 31 29 27 A9 30 08 20 53 54 41 20 |ACH(+1)'.0. STA |
00000630: 4E 41 43 48 2B B1 40 08 BB 50 08 20 4A 53 52 20 |NACH+.@..P. JSR |
00000640: 43 48 4B 4B 4F 4D 20 20 20 20 3B 41 4E 5A 41 48 |CHKKOM ;ANZAH|
00000650: 4C 20 4C 45 53 45 CE 60 08 20 4A 53 52 20 46 52 |L LESE.`. JSR FR|
00000660: 4D 4E 55 4D 20 20 20 20 3B 28 27 41 4E 5A 41 48 |MNUM ;('ANZAH|
00000670: 4C 28 2B 31 29 27 A9 70 08 20 4A 53 52 20 47 45 |L(+1)'.p. JSR GE|
00000680: 54 41 44 D2 80 08 20 53 54 59 20 41 4E 5A 41 48 |TAD... STY ANZAH|
00000690: CC 90 08 20 53 54 41 20 41 4E 5A 41 48 4C 2B B1 |... STA ANZAHL+.|
000006A0: 00 09 BB 10 09 20 54 41 58 20 20 20 20 20 20 20 |..... TAX |
000006B0: 20 20 20 20 3B 41 4E 5A 41 48 4C 2D 48 49 47 48 | ;ANZAHL-HIGH|
000006C0: 20 52 45 54 54 45 CE 20 09 BB 30 09 20 4C 44 41 | RETTE. ..0. LDA|
000006D0: 20 23 30 20 20 20 20 20 20 20 20 3B 44 45 46 41 | #0 ;DEFA|
000006E0: 55 4C 54 2D 57 45 52 54 3A 20 B0 40 09 20 53 54 |ULT-WERT: .@. ST|
000006F0: 41 20 46 4C 41 47 20 20 20 20 20 20 3B 28 27 4E |A FLAG ;('N|
00000700: 41 43 48 27 3C 27 56 4F 4E 27 A9 50 09 20 53 45 |ACH'<'VON'.P. SE|
00000710: C3 60 09 20 4C 44 41 20 4E 41 43 48 20 20 20 20 |.`. LDA NACH |
00000720: 20 20 3B 27 56 4F 4E 28 2B 31 29 27 20 4D 49 D4 | ;'VON(+1)' MI.|
00000730: 70 09 20 53 42 43 20 56 4F 4E 20 20 20 20 20 20 |p. SBC VON |
00000740: 20 3B 27 4E 41 43 48 28 2B 31 29 27 20 56 45 52 | ;'NACH(+1)' VER|
00000750: AD 80 09 20 4C 44 41 20 4E 41 43 48 2B 31 20 20 |... LDA NACH+1 |
00000760: 20 20 3B 47 4C 45 49 43 48 45 CE 90 09 20 53 42 | ;GLEICHE... SB|
00000770: 43 20 56 4F 4E 2B B1 00 10 20 42 43 43 20 50 31 |C VON+... BCC P1|
00000780: 20 20 20 20 20 20 20 20 3B 27 4E 41 43 48 27 3E | ;'NACH'>|
00000790: 27 56 4F 4E 27 20 3D BE 10 10 20 49 4E 43 20 46 |'VON' =... INC F|
000007A0: 4C 41 47 20 20 20 20 20 20 3B 46 4C 41 47 3D B1 |LAG ;FLAG=.|
000007B0: 20 10 20 4A 53 52 20 41 44 52 4B 4F 52 20 20 20 | . JSR ADRKOR |
000007C0: 20 3B 55 2E 41 44 52 45 53 53 45 4E 20 4B 4F 52 | ;U.ADRESSEN KOR|
000007D0: 52 49 47 AE 30 10 50 31 20 4A 4D 50 20 53 43 48 |RIG.0.P1 JMP SCH|
000007E0: 49 45 C2 40 10 BB 50 10 BB 60 10 3B 2A 2A 2A 20 |IE.@..P..`.;*** |
000007F0: 50 41 52 41 4D 45 54 45 52 20 4C 45 53 45 4E 20 |PARAMETER LESEN |
00000800: 2A 2A AA 70 10 4C 49 45 53 20 4A 53 52 20 43 48 |**.p.LIES JSR CH|
00000810: 4B 4B 4F CD 80 10 20 4A 53 52 20 43 48 52 47 45 |KKO... JSR CHRGE|
00000820: 54 20 20 20 20 3B 5A 45 49 43 48 45 4E 20 4E 41 |T ;ZEICHEN NA|
00000830: 43 48 20 44 45 CD 90 10 20 4C 44 58 20 54 58 54 |CH DE... LDX TXT|
00000840: 50 54 52 20 20 20 20 3B 4B 4F 4D 4D 41 20 4C 45 |PTR ;KOMMA LE|
00000850: 53 45 CE 00 11 20 42 4E 45 20 4C 31 20 20 20 20 |SE... BNE L1 |
00000860: 20 20 20 20 3B 54 45 58 54 50 4F 49 4E 54 45 52 | ;TEXTPOINTER|
00000870: 20 57 49 45 44 45 D2 10 11 20 44 45 43 20 54 58 | WIEDE... DEC TX|
00000880: 54 50 54 52 2B 31 20 20 3B 41 55 46 20 44 41 53 |TPTR+1 ;AUF DAS|
00000890: 20 4B 4F 4D 4D 41 20 53 45 54 AD 20 11 4C 31 20 | KOMMA SET. .L1 |
000008A0: 44 45 43 20 54 58 54 50 54 52 20 20 3B 5A 45 4E |DEC TXTPTR ;ZEN|
000008B0: 20 28 44 45 4B 52 45 4D 45 4E 54 2E A9 30 11 BB | (DEKREMENT..0..|
000008C0: 40 11 20 43 4D 50 20 23 27 30 27 20 20 20 20 20 |@. CMP #'0' |
000008D0: 20 3B 56 41 52 49 41 42 4C 45 2C 20 57 45 4E 4E | ;VARIABLE, WENN|
000008E0: 20 44 41 D3 50 11 20 42 43 43 20 4C 32 20 20 20 | DA.P. BCC L2 |
000008F0: 20 20 20 20 20 3B 5A 45 49 43 48 45 4E 20 4B 45 | ;ZEICHEN KE|
00000900: 49 4E 45 20 5A 41 48 CC 60 11 20 43 4D 50 20 23 |INE ZAH.`. CMP #|
00000910: 27 3A 27 20 20 20 20 20 20 3B 49 53 D4 70 11 20 |':' ;IS.p. |
00000920: 42 50 4C 20 4C B2 80 11 BB 90 11 20 4A 53 52 20 |BPL L...... JSR |
00000930: 46 52 4D 4E 55 4D 20 20 20 20 3B 49 4E 54 45 47 |FRMNUM ;INTEG|
00000940: 45 52 57 45 52 54 20 4C 45 53 45 CE 00 12 20 4A |ERWERT LESE... J|
00000950: 53 52 20 47 45 54 41 44 D2 10 12 20 52 54 D3 20 |SR GETAD... RT. |
00000960: 12 BB 30 12 4C 32 20 4A 53 52 20 56 41 52 50 4F |..0.L2 JSR VARPO|
00000970: 53 20 20 3B 56 41 52 49 41 42 4C 45 4E 41 44 52 |S ;VARIABLENADR|
00000980: 45 53 53 C5 40 12 20 4C 44 59 20 24 34 37 20 20 |ESS.@. LDY $47 |
00000990: 20 20 20 20 20 3B 48 4F 4C 45 CE 50 12 20 4C 44 | ;HOLE.P. LD|
000009A0: 41 20 24 34 B8 60 12 20 52 54 D3 70 12 BB 80 12 |A $4.`. RT.p....|
000009B0: BB 90 12 3B 2A 2A 2A 20 41 44 52 45 53 53 2D 4B |...;*** ADRESS-K|
000009C0: 4F 52 52 45 4B 54 55 52 20 2A 2A AA 00 13 41 44 |ORREKTUR **...AD|
000009D0: 52 4B 4F 52 20 43 50 59 20 23 30 20 20 3B 41 4E |RKOR CPY #0 ;AN|
000009E0: 5A 41 48 4C 20 28 58 2F 59 A9 10 13 20 42 4E 45 |ZAHL (X/Y... BNE|
000009F0: 20 41 31 20 20 20 20 20 20 20 20 3B 44 45 4B 52 | A1 ;DEKR|
00000A00: 45 4D 45 4E 54 49 45 52 45 4E 20 3D BE 20 13 20 |EMENTIEREN =. . |
00000A10: 44 45 58 20 20 20 20 20 20 20 20 20 20 20 3B 58 |DEX ;X|
00000A20: 2F 59 3D 4C 4F 57 2F 48 49 47 48 20 56 4F CE 30 |/Y=LOW/HIGH VO.0|
00000A30: 13 41 31 20 44 45 59 20 20 20 20 20 20 20 20 20 |.A1 DEY |
00000A40: 3B 41 4E 5A 41 48 4C 2D B1 40 13 BB 50 13 20 43 |;ANZAHL-.@..P. C|
00000A50: 4C 43 20 20 20 20 20 20 20 20 20 20 20 3B 41 44 |LC ;AD|
00000A60: 52 45 53 53 45 4E 20 4B 4F 52 52 49 47 AE 60 13 |RESSEN KORRIG.`.|
00000A70: 20 54 59 41 20 20 20 20 20 20 20 20 20 20 20 3B | TYA ;|
00000A80: 27 56 4F 4E 28 2B 31 29 27 20 55 4E C4 70 13 20 |'VON(+1)' UN.p. |
00000A90: 41 44 43 20 56 4F 4E 20 20 20 20 20 20 20 3B 27 |ADC VON ;'|
00000AA0: 4E 41 43 48 28 2B 31 29 27 20 57 45 52 44 45 CE |NACH(+1)' WERDE.|
00000AB0: 80 13 20 53 54 41 20 56 4F 4E 20 20 20 20 20 20 |.. STA VON |
00000AC0: 20 3B 41 55 46 20 44 41 53 20 4A 45 57 45 49 4C | ;AUF DAS JEWEIL|
00000AD0: 49 47 AE 90 13 20 54 58 41 20 20 20 20 20 20 20 |IG... TXA |
00000AE0: 20 20 20 20 3B 42 4C 4F 43 4B 45 4E 44 45 20 47 | ;BLOCKENDE G|
00000AF0: 45 53 45 54 5A 54 AC 00 14 20 41 44 43 20 56 4F |ESETZT... ADC VO|
00000B00: 4E 2B 31 20 20 20 20 20 3B 49 4E 44 45 4D 20 41 |N+1 ;INDEM A|
00000B10: 4E 5A 41 48 4C 2D B1 10 14 20 53 54 41 20 56 4F |NZAHL-... STA VO|
00000B20: 4E 2B 31 20 20 20 20 20 3B 41 44 44 49 45 52 54 |N+1 ;ADDIERT|
00000B30: 20 57 49 52 C4 20 14 3B 20 20 20 20 20 20 20 20 | WIR. .; |
00000B40: 20 20 20 20 20 20 3B 28 59 3D 4C 4F 57 3A 41 4E | ;(Y=LOW:AN|
00000B50: 5A 41 48 4C 2D 31 AF 30 14 20 43 4C 43 20 20 20 |ZAHL-1.0. CLC |
00000B60: 20 20 20 20 20 20 20 20 3B 20 58 3D 48 49 47 48 | ; X=HIGH|
00000B70: 3A 41 4E 5A 41 48 4C 2D 31 A9 40 14 20 54 59 C1 |:ANZAHL-1.@. TY.|
00000B80: 50 14 20 41 44 43 20 4E 41 43 C8 60 14 20 53 54 |P. ADC NAC.`. ST|
00000B90: 41 20 4E 41 43 C8 70 14 20 54 58 C1 80 14 20 41 |A NAC.p. TX... A|
00000BA0: 44 43 20 4E 41 43 48 2B B1 90 14 20 53 54 41 20 |DC NACH+... STA |
00000BB0: 4E 41 43 48 2B B1 00 15 20 52 54 D3 10 15 BB 20 |NACH+... RT.... |
00000BC0: 15 BB 30 15 3B 2A 2A 2A 20 56 45 52 53 43 48 49 |..0.;*** VERSCHI|
00000BD0: 45 42 45 2D 52 4F 55 54 49 4E 45 20 2A 2A AA 40 |EBE-ROUTINE **.@|
00000BE0: 15 53 43 48 49 45 42 20 4C 44 59 20 23 30 20 20 |.SCHIEB LDY #0 |
00000BF0: 3B 59 20 49 4D 4D 45 52 20 4E 55 4C CC 50 15 53 |;Y IMMER NUL.P.S|
00000C00: 31 20 4C 44 41 20 28 56 4F 4E 29 2C 59 20 3B 45 |1 LDA (VON),Y ;E|
00000C10: 49 4E 20 42 59 54 C5 60 15 20 53 54 41 20 28 4E |IN BYT.`. STA (N|
00000C20: 41 43 48 29 2C 59 20 20 3B 56 45 52 53 43 48 49 |ACH),Y ;VERSCHI|
00000C30: 45 42 45 CE 70 15 BB 80 15 20 4C 44 41 20 46 4C |EBE.p.... LDA FL|
00000C40: 41 47 20 20 20 20 20 20 3B 27 56 4F 4E 27 3C 27 |AG ;'VON'<'|
00000C50: 4E 41 43 48 27 20 BF 90 15 20 42 45 51 20 53 34 |NACH' ... BEQ S4|
00000C60: 20 20 20 20 20 20 20 20 3B 4E 45 49 4E 20 3D BE | ;NEIN =.|
00000C70: 00 16 BB 10 16 20 4C 44 41 20 56 4F 4E 20 20 20 |..... LDA VON |
00000C80: 20 20 20 20 3B 27 56 4F 4E 27 3C 27 4E 41 43 48 | ;'VON'<'NACH|
00000C90: 27 20 BA 20 16 20 42 4E 45 20 53 32 20 20 20 20 |' . . BNE S2 |
00000CA0: 20 20 20 20 3B 56 45 52 53 43 48 49 45 42 45 4E | ;VERSCHIEBEN|
00000CB0: 20 41 C2 30 16 20 44 45 43 20 56 4F 4E 2B 31 20 | A.0. DEC VON+1 |
00000CC0: 20 20 20 20 3B 42 4C 4F 43 4B 45 4E 44 45 20 41 | ;BLOCKENDE A|
00000CD0: 42 57 41 45 52 54 D3 40 16 53 32 20 44 45 43 20 |BWAERT.@.S2 DEC |
00000CE0: 56 4F CE 50 16 20 4C 44 41 20 4E 41 43 48 20 20 |VO.P. LDA NACH |
00000CF0: 20 20 20 20 3B 42 45 49 44 45 20 50 4F 49 4E 54 | ;BEIDE POINT|
00000D00: 45 D2 60 16 20 42 4E 45 20 53 33 20 20 20 20 20 |E.`. BNE S3 |
00000D10: 20 20 20 3B 44 45 4B 52 45 4D 45 4E 54 49 45 52 | ;DEKREMENTIER|
00000D20: 45 CE 70 16 20 44 45 43 20 4E 41 43 48 2B B1 80 |E.p. DEC NACH+..|
00000D30: 16 53 33 20 44 45 43 20 4E 41 43 C8 90 16 20 4A |.S3 DEC NAC... J|
00000D40: 4D 50 20 53 B6 00 17 BB 10 17 53 34 20 49 4E 43 |MP S......S4 INC|
00000D50: 20 56 4F 4E 20 20 20 20 20 3B 27 56 4F 4E 27 3E | VON ;'VON'>|
00000D60: 27 4E 41 43 48 27 20 BA 20 17 20 42 4E 45 20 53 |'NACH' . . BNE S|
00000D70: 35 20 20 20 20 20 20 20 20 3B 56 45 52 53 43 48 |5 ;VERSCH|
00000D80: 49 45 42 45 4E 20 41 C2 30 17 20 49 4E 43 20 56 |IEBEN A.0. INC V|
00000D90: 4F 4E 2B 31 20 20 20 20 20 3B 42 4C 4F 43 4B 41 |ON+1 ;BLOCKA|
00000DA0: 4E 46 41 4E 47 20 41 55 46 AD 40 17 53 35 20 49 |NFANG AUF.@.S5 I|
00000DB0: 4E 43 20 4E 41 43 48 20 20 20 20 3B 57 41 45 52 |NC NACH ;WAER|
00000DC0: 54 D3 50 17 20 42 4E 45 20 53 36 20 20 20 20 20 |T.P. BNE S6 |
00000DD0: 20 20 20 3B 42 45 49 44 45 20 50 4F 49 4E 54 45 | ;BEIDE POINTE|
00000DE0: D2 60 17 20 49 4E 43 20 4E 41 43 48 2B 31 20 20 |.`. INC NACH+1 |
00000DF0: 20 20 3B 49 4E 4B 52 45 4D 45 4E 54 49 45 52 45 | ;INKREMENTIERE|
00000E00: CE 70 17 BB 80 17 53 36 20 4C 44 58 20 41 4E 5A |.p....S6 LDX ANZ|
00000E10: 41 48 4C 20 20 3B 27 41 4E 5A 41 48 4C 27 20 44 |AHL ;'ANZAHL' D|
00000E20: 45 4B 52 45 4D AD 90 17 20 42 4E 45 20 53 37 20 |EKREM... BNE S7 |
00000E30: 20 20 20 20 20 20 20 3B 54 49 45 52 45 4E 20 55 | ;TIEREN U|
00000E40: 4E 44 20 4D 49 D4 00 18 20 44 45 43 20 41 4E 5A |ND MI... DEC ANZ|
00000E50: 41 48 4C 2B 31 20 20 3B 4E 55 4C 4C 20 56 45 52 |AHL+1 ;NULL VER|
00000E60: 47 4C 45 49 43 48 45 CE 10 18 53 37 20 44 45 D8 |GLEICHE...S7 DE.|
00000E70: 20 18 20 53 54 58 20 41 4E 5A 41 48 4C 20 20 20 | . STX ANZAHL |
00000E80: 20 3B 57 45 4E 4E 20 41 4E 5A 41 48 4C 3D 4E 55 | ;WENN ANZAHL=NU|
00000E90: 4C 4C 20 BA 30 18 20 42 4E 45 20 53 31 20 20 20 |LL .0. BNE S1 |
00000EA0: 20 20 20 20 20 3B 42 4C 4F 43 4B 56 45 52 53 43 | ;BLOCKVERSC|
00000EB0: 48 49 45 42 55 4E C7 40 18 20 4C 44 41 20 41 4E |HIEBUN.@. LDA AN|
00000EC0: 5A 41 48 4C 2B 31 20 20 3B 42 45 45 4E 44 45 54 |ZAHL+1 ;BEENDET|
00000ED0: 20 A1 50 18 20 42 4E 45 20 53 B1 60 18 20 52 54 | .P. BNE S.`. RT|
00000EE0: D3 70 18 20 2E 45 CE 00 |.p. .E.. |
......P.;*********************...;*
MOVE-ROUTINE ...;* (C) S.BALOUI, 1986
...;*********************. ..0..@.;*** F
UNKTION **.P.;'MOVE'VERSCHIEBT EINEN BEL
IEBIGEN`.;SPEICHERBEREICH, WOBEI DER FAL
L.P.;DASS SICH DIE ZIELADRESSE MIT DEM..
;ZU VERSCHIEBENDEN BLOCK 'UEBER...;LAPPT
', BERUECKSICHTIGT WIRD....... .;*** AUF
RUF **.0.;SYS 49152,START,ZIEL,ANZAHL@..
P.; - START : ADRESSE ODER VARIABLE`.; -
ZIEL : ADRESSE ODER VARIABLEP.; - ANZA
HL: INTEGERWERT.....;AB 'START' WERDEN '
ANZAHL' BYTES..;NACH 'ZIEL' VERSCHOBEN..
.;BEI ANGABE VON VARIABLEN WIRD .;DIE AD
RESSE DER ZUGEHOERIGEN0.;DESCRIPTOREN VE
RWENDET.@..P..`.;*** BEISPIELE **.P.;1.
SYS 49152,1024,50000,100...; VERSCHIEB
T DEN KOMPLETTEN..; BILDSCHIRMSPEICHER
NACH..; 5000.... .;2. SYS 49152,A$(10
),A$(11),5*.0.; START: ADRESSE DES DES
CRIPTORS@.; AUF 'A$(10).P.; Z
IEL: ADRESSE DES DESCRIPTORS`.;
AUF 'A$(11).P.; ANZAHL:15 BYTES.....
; PRAKTISCHE AUSWIRKUNG...; IM ARRAY
'A$(1)'..'A$(14)...; WIRD AN DER POSI
TION 'A$(10). .; PLATZ FUER EINEN NEU
EINZU.0.; TRAGENDEN STRING GESCHAFFEN@
.; ('A$(10)'..'A$(14)' WERDEN UMP.;
JE DREI BYTE (EINE DESCRIPTOR.`.; LAEN
GE) VERSCHOBEN.P.......CHRGET .DE $7...C
HRGOT .DE $7...TXTPTR .DE $7A .VARPOS .D
E $B08B0.CHKKOM .DE $AEFD@.FRMNUM .DE $A
D8AP.GETADR .DE $B7F.`..P.VON .DE $FB
..NACH .DE $FD..ANZAHL .DE $A...KOPIE
.DE $A...FLAG .DE $AB ..0. .BA $C00.@
. .OSP..`..P.;*** HAUPTPROGRAMM **... JS
R LIES ;QUELLADRESSE.. STY VON
;LESEN ('VON(+1)'... STA VON+... JSR L
IES ;ZIELADRESSE . STY NACH ;L
ESEN ('NACH(+1)'.0. STA NACH+.@..P. JSR
CHKKOM ;ANZAHL LESEN`. JSR FRMNUM
;('ANZAHL(+1)'.P. JSR GETADR.. STY ANZAH
L.. STA ANZAHL+...... TAX ;ANZ
AHL-HIGH RETTEN ..0. LDA #0 ;DEFA
ULT-WERT: .@. STA FLAG ;('NACH'<'VO
N'.P. SEC`. LDA NACH ;'VON(+1)' MIT
P. SBC VON ;'NACH(+1)' VER... LDA
NACH+1 ;GLEICHEN.. SBC VON+... BCC P1
;'NACH'>'VON' =... INC FLAG
;FLAG=. . JSR ADRKOR ;U.ADRESSEN KOR
RIG.0.P1 JMP SCHIEB@..P..`.;*** PARAMETE
R LESEN **.P.LIES JSR CHKKOM.. JSR CHRGE
T ;ZEICHEN NACH DEM.. LDX TXTPTR ;
KOMMA LESEN.. BNE L1 ;TEXTPOINTER
WIEDER.. DEC TXTPTR+1 ;AUF DAS KOMMA S
ET. .L1 DEC TXTPTR ;ZEN (DEKREMENT..0..
@. CMP #'0' ;VARIABLE, WENN DASP. B
CC L2 ;ZEICHEN KEINE ZAHL`. CMP #
':' ;ISTP. BPL L...... JSR FRMNUM
;INTEGERWERT LESEN.. JSR GETADR.. RTS
..0.L2 JSR VARPOS ;VARIABLENADRESSE@. L
DY $47 ;HOLENP. LDA $4.`. RTSP....
...;*** ADRESS-KORREKTUR **...ADRKOR CPY
#0 ;ANZAHL (X/Y... BNE A1 ;DEKR
EMENTIEREN =. . DEX ;X/Y=LOW/H
IGH VON0.A1 DEY ;ANZAHL-.@..P. C
LC ;ADRESSEN KORRIG.`. TYA
;'VON(+1)' UNDP. ADC VON ;'
NACH(+1)' WERDEN.. STA VON ;AUF DA
S JEWEILIG... TXA ;BLOCKENDE G
ESETZT... ADC VON+1 ;INDEM ANZAHL-..
. STA VON+1 ;ADDIERT WIRD .;
;(Y=LOW:ANZAHL-1.0. CLC
; X=HIGH:ANZAHL-1.@. TYAP. ADC NACH`. ST
A NACHP. TXA.. ADC NACH+... STA NACH+...
RTS... ..0.;*** VERSCHIEBE-ROUTINE **.@
.SCHIEB LDY #0 ;Y IMMER NULLP.S1 LDA (V
ON),Y ;EIN BYTE`. STA (NACH),Y ;VERSCHI
EBENP.... LDA FLAG ;'VON'<'NACH' ..
. BEQ S4 ;NEIN =...... LDA VON
;'VON'<'NACH' . . BNE S2 ;VER
SCHIEBEN AB0. DEC VON+1 ;BLOCKENDE A
BWAERTS@.S2 DEC VONP. LDA NACH ;BEI
DE POINTER`. BNE S3 ;DEKREMENTIER
ENP. DEC NACH+...S3 DEC NACH.. JMP S....
..S4 INC VON ;'VON'>'NACH' . . BNE S
5 ;VERSCHIEBEN AB0. INC VON+1
;BLOCKANFANG AUF.@.S5 INC NACH ;WAER
TSP. BNE S6 ;BEIDE POINTER`. INC
NACH+1 ;INKREMENTIERENP....S6 LDX ANZ
AHL ;'ANZAHL' DEKREM... BNE S7 ;
TIEREN UND MIT.. DEC ANZAHL+1 ;NULL VER
GLEICHEN..S7 DEX . STX ANZAHL ;WENN A
NZAHL=NULL .0. BNE S1 ;BLOCKVERSC
HIEBUNG@. LDA ANZAHL+1 ;BEENDET .P. BNE
S.`. RTSP. .EN.
> CLICK IMAGE PREVIEW FOR FULL MODAL