00000000: 3B 2A 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 0D 3B 2A 20 26 2D C6 49 4C 45 20 D2 4F 55 54 |*.;* &-.ILE .OUT|
00000030: 49 4E 45 20 49 4E 20 44 45 52 20 C6 4C 4F 50 50 |INE IN DER .LOPP|
00000040: 59 20 2A 0D 3B 2A 20 56 4F 4E 3A 20 D3 56 45 4E |Y *.;* VON: .VEN|
00000050: 20 CF 4C 49 56 45 52 20 CD 4F 4C 4C 2C CC 45 48 | .LIVER .OLL,.EH|
00000060: 52 54 45 20 2A 0D 3B 2A 20 56 45 52 57 45 4E 44 |RTE *.;* VERWEND|
00000070: 45 54 20 49 4E 3A 20 20 20 C3 C8 C4 C9 D2 2D D3 |ET IN: .....-.|
00000080: D9 D3 D4 C5 CD 20 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A |..... *.;*******|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 4C 44 41 20 23 |*********..LDA #|
000000B0: 24 31 32 20 3B 54 52 41 43 4B 20 31 38 0D 53 54 |$12 ;TRACK 18.ST|
000000C0: 41 20 24 30 38 20 20 3B 0D 4C 44 41 20 23 24 30 |A $08 ;.LDA #$0|
000000D0: 31 20 3B 53 45 4B 54 4F 52 20 31 0D 53 54 41 20 |1 ;SEKTOR 1.STA |
000000E0: 24 30 39 20 20 3B 0D 4C 44 41 20 23 24 38 30 20 |$09 ;.LDA #$80 |
000000F0: 3B 4A 4F 42 43 4F 44 45 20 46 55 45 52 20 4C 45 |;JOBCODE FUER LE|
00000100: 53 45 4E 0D 4A 53 52 20 44 4F 20 20 20 3B 41 55 |SEN.JSR DO ;AU|
00000110: 53 46 55 45 48 52 45 4E 20 55 4E 44 20 57 41 52 |SFUEHREN UND WAR|
00000120: 54 45 4E 0D 20 20 20 20 20 20 20 20 20 3B 42 49 |TEN. ;BI|
00000130: 53 20 45 49 4E 47 45 4C 45 53 45 4E 0D 4C 44 41 |S EINGELESEN.LDA|
00000140: 20 23 4E 53 20 20 3B 4E 45 55 45 4E 20 53 45 4B | #NS ;NEUEN SEK|
00000150: 54 4F 52 20 42 45 53 54 49 4D 4D 45 4E 0D 20 20 |TOR BESTIMMEN. |
00000160: 20 20 20 20 20 20 20 3B 28 56 41 52 49 45 52 54 | ;(VARIERT|
00000170: 20 56 4F 4E 20 44 49 52 20 5A 55 20 44 49 52 29 | VON DIR ZU DIR)|
00000180: 0D 53 54 41 20 24 30 34 30 31 3B 41 4C 53 20 4C |.STA $0401;ALS L|
00000190: 49 4E 4B 45 52 20 53 43 48 52 45 49 42 45 4E 0D |INKER SCHREIBEN.|
000001A0: 4C 44 41 20 23 24 39 30 20 3B 4A 4F 42 43 4F 44 |LDA #$90 ;JOBCOD|
000001B0: 45 20 46 55 45 52 20 42 4C 4F 43 4B 20 53 43 52 |E FUER BLOCK SCR|
000001C0: 45 49 42 45 4E 0D 3A 44 4F 20 20 20 20 20 20 3B |EIBEN.:DO ;|
000001D0: 0D 53 54 41 20 24 30 31 20 20 3B 46 55 45 52 20 |.STA $01 ;FUER |
000001E0: 4A 4F 42 43 4F 44 45 53 50 45 49 43 48 45 52 0D |JOBCODESPEICHER.|
000001F0: 3A 57 41 49 54 20 20 20 20 3B 0D 4C 44 41 20 24 |:WAIT ;.LDA $|
00000200: 30 31 20 20 3B 57 41 52 54 45 4E 20 42 49 53 20 |01 ;WARTEN BIS |
00000210: 41 55 53 46 55 45 48 52 55 4E 47 0D 42 4D 49 20 |AUSFUEHRUNG.BMI |
00000220: 57 41 49 54 20 3B 42 45 45 4E 44 45 54 2E 0D 52 |WAIT ;BEENDET..R|
00000230: 54 53 0D 0D |TS.. |
;********************************.;* &-F
ILE ROUTINE IN DER FLOPPY *.;* VON: SVEN
OLIVER MOLL,LEHRTE *.;* VERWENDET IN:
CHDIR-SYSTEM *.;***********************
*********..LDA #$12 ;TRACK 18.STA $08 ;
.LDA #$01 ;SEKTOR 1.STA $09 ;.LDA #$80
;JOBCODE FUER LESEN.JSR DO ;AUSFUEHREN
UND WARTEN. ;BIS EINGELESEN.LDA
#NS ;NEUEN SEKTOR BESTIMMEN. ;
(VARIERT VON DIR ZU DIR).STA $0401;ALS L
INKER SCHREIBEN.LDA #$90 ;JOBCODE FUER B
LOCK SCREIBEN.:DO ;.STA $01 ;FUER
JOBCODESPEICHER.:WAIT ;.LDA $01 ;WAR
TEN BIS AUSFUEHRUNG.BMI WAIT ;BEENDET..R
TS..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL