Compiled by Edhel Iaur, Esq.

You've probably seen a lot of these before, but you may still find a useful P,P, or C that is new to you (assuming it works! : ) ).

Some are for ProDOS, some are for DOS 3.3, and some are for Applesoft BASIC in general. A lot of the DOS 3.3 stuff came from Bert Kersey's DOSTalk Scrapbook. As usual, I claim no responsibility for any damage, etc. these may do.

Some of the info may be less than 100% accurate; I haven't updated this in a long while. Without further ado, here's my really big PEEKs, POKEs, and CALLs and stuff list.

A little more ado:As always, feel free to email/post to me questions about this stuff.

-Frequently GOTOed & GOSUBed lines should be early in program -Use NEXT instead of NEXT X -Use variables instead of actual numbers

PR#{8-255}=???

?=PRINT–Lists as PRINT

Joystick=150K Ohms

If PRINT PDL(N) When N=236-239, =POKE -16540+N,0

& = Jump to $3F5

X=FRE(0) = Clean string memory

Reserved words take up one byte

In hex, 0G = CALL 0

60 in hex (96 In decimal)= return to Applesoft

X=FRE(0) = X=Number of BASIC bytes free (If negitive, add 65536)

10 DEF FN A(W)=2*W+W
20 PRINT FN A(23)

RUN

Computer will return:

69

If 43+ errors are going to be handled by ONERR GOSUB or ONERR GOTO, use this subroutine in your program:

10 POKE 768,104:POKE 769,168:POKE 770,104:POKE 771,166:POKE 772,223
20 POKE 773,154:POKE 774,72:POKE 775,152:POKE 776,72:POKE 777,96
30 CALL 768

If your shape table starts at 1DFC, enter (in hex):

   E8:FC 1D
   

Max. line #=63999

Each line can have 239 characters

Token ID 136 token for GR 186 token for PRINT

A input routine that accepts commas and colons:

10 PRINT "-YOUR QUESTION HERE-";
20 CALL-657:A$="":FOR X=512 TO 767:P=PEEK(X):IF P<>141 THEN A$=A$+CHR$(P):NEXT X

(A$ now equals the response)

Move hi-res page 2 to 1:

10 REM S.H. LAM TECHNIQUE
20 C$="2000<4000.6000M":GOSUB 100:END
100 C$=C$+" N D9C6G":REM SPACE BEFORE AND AFTER N
110 FOR I=1 TO LEN(C$):POKE 511+I,ASC(MID$(C$,I,1))+128:NEXT
120 POKE 72,0:CALL-144:RETURN

The proper syntax for reading a 2-byte number:

   Q=PEEK(B)+PEEK(B+1)*256
   

Q now equals the new value and B should have been previously set to the starting address of the 2-byte number

The proper syntax for storing a 2-byte number:

   POKE B+1,Q/256:POKE B,Q-(PEEK(B+1)*256)
   

Q should have been previously set to the value to be POKEd in and B should have been previously set to the starting address of where the value is to be stored

FOR A=46010 TO 45999 STEP -1:PRINT CHR$(PEEK(A));:NEXT

note: 46010 = $B3BA, 45999 = $B3AF

Shows you the current DOS 3.3 disk catalog header

To stop a DOS 3.3 catalog after it waits for your keypress, enter (in hex):

   BCDF:20 0C FD C9 83 D0 03 4C 7F B3 60

PRINT PEEK(54)+256*PEEK(55) 

Returns the address of the current output routine

PRINT PEEK(56)+256*PEEK(57) Returns the address of the current output routine

if DOS is active, then you use:

PRINT PEEK(43603)+256*PEEK(43604) Returns the address of the current output routine

PRINT PEEK(43605)+256*PEEK(43606) Returns the address of the current output routine

To determine what to POKE into 40192 to move the DOS buffers to put your machine language routine there, use the following formula:

DB=40192-(L+38)

You would then POKE 40192,DB and CALL 42964 to make DOS rebuild the DOS buffers, and then load your machine language routine into DB+38.

A FOR/NEXT loop being used for a rest (when playing music) should be:

FOR R=1 TO RV:NEXT R with RV being equal to 500 for a whole rest.

10 D$=CHR$(4)
20 PRINT D$;"PREFIX"
30 INPUT PF$
40 PRINT "THE CURRENT PREFIX IS: ";PF$

To redirect information from slot 1 to a machine language routine at $300, type PR#1,A$300

To redirect information from slot 1 to slot 4, type PR#1,A$C400

To stop writing to a text file after an OPEN and a WRITE or READ command have been sent, print CHR$(4)

$Cs0C often contains the card signature for the card in slot “s”.

The x sometimes shows the brand.