Özet
12 POKE8047,1:POKE8049,1:INPUT "MAKE NEW TAPE HEADER";AK#.
13 IFAK#="Y" THEN100.
14 IFCK#="D" THEN200:END.
15 PRINT "PLACE ORIGINAL TAPE IN DRIVE":POKE1,PEEK(1)AND223.
16 PRINT "PERFORM TAPE LOAD... WHEN FOUND MESSAGE".
17 PRINT "APPEARS, RUN/STOP. THEN ENTER RUN25":END.
18 POKE52,20:POKE56,20:POKE53280,11:POKE53281,11.
19 AH=PEEK(830):AL=PEEK(829):BH=PEEK(832):BL=PEEK(831).
20 DD=(PEEK(830)*256)+PEEK(829):OE=(PEEK(832)*256)+PEEK(831):BY=OE-OD.
21 BG=32*256:POKE254,32:POKE253,0.
22 PRINT "RELOAD/LOADER PSIDAC (C) 84 VBN".
23 POKE1,PEEK(1)AND223:PRINT "REWIND TAPE PRESS F7 WHEN DONE".
24 GETA$:IFAF<>&" THEN33.
25 POKE1,PEEK(1)OR32:PRINT "PRESS PLAY.
26 INPUT "EXACT FILENAME";NF$:NL=LEN(NF$):POKE251,NL.
27 SYS8008:SYS8103.
28 PRINT "OF BYTES="BY;".
29 ":EA=BG+BY.
30 PRINT "ORIGINAL STARTING ADDRESS = ";OD:PRINT "ORIGINAL ENDING ADDRESS = ";OE.
31 INPUT "SAVE ON T/":CK$:IFCK#="T" THEN8.
32 PRINT "PREP DISK TO COPY - F7 WHEN READY":POKE8047,8:POKE8049,8:GOTO9.
33 POKE830,AH:POKE829,AL:POKE832,BH:POKE831,BL:POKE254,AH:POKE253,AL.
34 POKE175,BH:POKE174,BL.
35 PRINT " ROUTINE TO REPLACE TAPE HEADER *.
36 PRINT "F7 WHEN READY!".
37 GETA$:IFAF<>&" THEN130.
38 PRINT "PRESS PLAY AND RECORD.
39 ":POKE1,PEEK(1)OR32.
40 PRINT "TIME FOR EXACTLY 13.1 SECONDS......":PRINT "THEN HIT RUN/STOP".
41 PRINT "F7 WHEN READY".
42 GETA$:IFAF<>&" THEN170.
43 SYS8043.
44 PRINT "USE DISK EDITOR TO RESET LOAD TO ADDRESS".
READY.
Diğer Dergiler
Tam metin içeriği
2 POKEG047,1:POKE8049,1: INPUT" SSOKE NEW TAPE HEADER"ŞAKS
3 IFAK#="Y"THENLOO
4 IFCK#="D"THEN200: END
5 PRINT"SPLACE ORIGINAL TAPE IN DRIVE": POKE1 , PEEK (1) AND225
o NT“EPERFORM TAPE LOAD... WHEN FOUND MESS:
PRINT" SAPPEA! 3 THE
ENTER RUN?
# BL=PEEK (831)
(837) #256) +PEEK (831) : BY=OE-OD
<>"! THENSS
INT" IRFRESS PLAY
m FILENAME" ; NF #2 NL
POKE1, 3
5 INPUT" AIINPUT gE XAC
SYS8008: SYSB103
PRINT"CooH OF BYTES
O PRINT" SORIGINAL STARTINI
INFUT"SSAVE ON T/D"3CK#: IFCK:
PRINT"CPREF DISK TO COPY
0, AH: POKE829 AL
75, BH: POKE174, BL
PRINT"G Xx ROUTINI
FOKEİ ,PEEK (1) AND:
PRINT" SF7 WHEN Ri
GETAS: IFAS<> "|" THEN 130
0 PRINT" IOogPRESS PLAY AND RECORDE "= POKE1,PEEK (1) ORS2
PRINT" SGT IME FOR 3EXACTLY@ 13-1 ONDSZ...- + “SPRINT'STHEN HIT RUN/STOPS"
PRINT" 8F7 WHEN READY"
ASS >" BY" THENL7O
";QD:PRINT' ORIGINAL ENDING ADDRESS
T!THENS
WHEN READY": POKE8047 ,8:POKE8049 ,8:GOTO?
BH: FOKESS1, BL:POKE254,AH:POKE253,AL
TQ REPLACE TAPE HEADER *"
PRINT" GREWİND TAPE TO EXACT BEGINNINGE"
O PRINT"§USE DISK-EDITOR TO RESET LOAD TO, ADDRI
READY.
TMACURELO . İF28 .R5 FD LDA #FD
4&2: IF JSR f1F95 IF22 «85 FC STA SFC
fede Loa ate iFe4 AS FE LDA SFE
1FdTı LD #4901
IFAF . Ling aay
irsi FF SF SF FEA
1F54 LDA 4FE
1FS6 . LUX #441
1FSS . LU” #403
irsi - FF Jok 4FFBD
JFSU LUA #303
LPS 5 LDS 4FD
1FeL LDY $FE
1FE3 FF JSR SFFUS
1F66 iF JSR $1FAQ
FER RTS
İFSA BRK
IFEB - iF JSR $#İF95
İFEE.. LDA #401
IFO LDX #301
iFrg“ LOY #$FF
IFr4 - A FF JSR $FFER
İF? LDA $FB 1 402B0,%
LED: 4 LI #4Bİ
lFTB LDY #92 SİFA
IFFD BD FF JSR 4FFBD
3
