💾 Archived View for gemini.spam.works › mirrors › textfiles › apple › peeks.pokes.3.2 captured on 2022-04-28 at 19:14:07.

View Raw

More Information

⬅️ Previous capture (2020-10-31)

-=-=-=-=-=-=-


                           MISCELLANEOUS INFORMATION
                                 CONTROL RESET

To make it run your program type this:
      10 POKE 1010,102
      20 POKE 1011,213
      30 POKE 1012,112

To make it send you to MONITOR type this:
      POKE 1010,105
      POKE 1011,255
      CALL -1169

To make it BOOT DOS type this:
      POKE 592,0
      POKE 1012,0


      PEEK(592) = 255  DivDos64k  Norml
      PEEK(1010)= 3       60       191
      PEEK(1011)= 224     191      157
      PEEK(1012)= 69      26       56

                          VERY QUICK SORTING ROUTINE

1000 FOR I = 1 TO N - 1 : REM N = # OF ITEMS
1010 P = I
1020 FOR J = I + 1 TO N
1030 IF A(J) < A(P) THEN P = J
1040 NEXT J
1050 T = A(I) : A(I) = A(P) : A(P) = T
1060 NEXT I

                             DOS MEMORY LOCATIONS

LOCATION    ! USE DESCRIPTION
------------+----------------------------------------------------------------+
$3D0 - $3D2 ! Re-enter DOS Vector
$3F2 - $3F4 ! Reset Vector   EX: POKE 1012,0 Reboots  {Norm: 56}
$3F5 - $3F7 ! Ampersand Vector. EX: POKE 1014,165:POKE 1015,214 -=> LIST
            !                   EX: POKE 1014,110:POKE 1015,165 -=> CATALOG
            !                   EX: POKE 1014,18 :POKE 1015,217 -=> RUN
$3F8 - $3FA ! Crtl - Y Vector
$A56E       ! Catalog Routine.  Also  CALL 42350
$9E42       ! Greeting program RUN-FLAG {POKE 40514,X: 52=BRUN, 20=EXEC}
$A884-$A907 ! DOS Commands
$A972-$AA3E ! ERROR messages
$A960-$AA61 ! Last BLOAD Lenght {LEN = PEEK (43616) + PEEK (43617) * 256}
$AA72-$AA73 ! Last BLOAD START {STR = PEEK (43634) + PEEK (43635) * 256}
$AA57       ! MAX Files Values
$AAB1       ! Max files Default Value
$AA68       ! Drive - Number  EX: POKE 43624,DR   DR= Drive for I/O
$AA6A       ! Slot - Number
$AC01       ! Catalog Track number.
$AE17       ! # Characters -1 in catalog file name.
$B3A7-$B3AE ! File type codes
$B3AF-$B3BA ! Disk Vol. Heading
$B3C1       ! Disk Vol. Number
$B3F0       ! Number of Sectors per Track


                               DOS MISCELLANEOUS

To defeat the "NOT DIRECT COMMAND" error type: POKE 51,0 : GOTO line #
To kill the INIT command do: Poke 42309,96  or  $A545:60
To kill the INIT command in normal DOS type: POKE 42309,96  or $A545:60
If you want a basic program to load in after HGR
   {more memory than LOMEM:16384}  use this loader program:

         10 POKE 16384,0 : POKE 104,64 : REM STARTING LOCATION OF PROGRAM
         20 PRINT CHR$(4) "RUN PROGRAM"

  *Note:To put things back to normal use this program:
             10 POKE 2048,0 : POKE 104,8
             20 PRINT CHR$(4) "RUN OLD PROGRAM"

If PEEK(-18070) = 150 then your using DOS 3.3 .

POKE 40193,PEEK(40193)-N:CALL 42964...Move DOS buffers down N*256 bytes.
POKE 44452,N+1:POKE 44605,N...........Allows N file names before Catalog pause
POKE 44505,234:POKE 44579,234:POKE 44580,234...Cancels return after file names
POKE 44578,234:POKE 44579,234:POKE 44580,234...Cancels catalog pause.
POKE 44599,234:POKE 44600,234.........Wait for key input after every file name

Here are some POKEs that turn on the DRIVES but do not READ or WRITE.  These
can be used as scare tactics. EX. PRINT "INITIALIZING DISK" : POKE -16151,0

      POKE -16151,0........TURNS ON DRIVE 1
      POKE -16135,0........TURNS ON DRIVE 2
      POKE -16152,0........TURNS OFF DRIVE 1
      POKE -16136,0........TURNS OFF DRIVE 2

To stop CATALOG for a key input after every file name type:
      POKE 44599,234 {NORM 208}
      POKE 44600,234 {NORM 8}

To omit the pause after a full screen of CATALOG then type:
      $AE34:60  or  POKE 44569,96

For WILDCARD DOS files useing "=" type: (from monitor)
      B201:4C 71 BA
      BA69:E8 B1 42 DD C6 B4 D0 0A C8 C0 1E D0 F3
           AE 9C B3 18 60 C9 AD F0 F7 4C 0B B2

                                 MISCELLANEOUS

To make the program in memory run when any Syntax (but DOS commands) is typed
   then put this line in:  10 POKE 214,128 {Norm 0}

PEEK (104).....If 8 is returned then APPLESOFT is in ROM. Any other value
                 means APPLESOFT is in RAM or not available.
POKE 2049,1....Repeatedly LISTs first line of program.
CALL -856......TIME DELAY. POKE 69,XX to set amount of delay.
CALL -1182.....Prints the Apple ][ across the top of your screen.

POKE 49107,234:POKE 49108,234:POKE 49109,234...Prevents language card re-load.

For "true" random number generation use RND(PEEK(78)+PEEK(79)*256).

POKE 1912+SLOT,1 on APPLE PARALLEL CARD (with P1-02 PROM) will enable LINEFEED
POKE 1912+SLOT,0 on APPLE PARALLEL CARD (with P1-02 PROM) => disable LINEFEEDS

REMAINDER {Mod} type: R = X - (INT (X / Y) * Y)
To ROUND to N digets past the decimal type: X = INT (X * (10^N) +.5) / (10^N)
QUADRATIC formula : R1 = (-B + SQR (B^2 - 4 * A * C)) / (2 * A)
                    R2 = (-B - SQR (B^2 - 4 * A * C)) / (2 * A)

                                  CONVERSIONS

To change VOLUME # xxx to SECTORS FREE = xxx then type the following:
   ADC0:20 69 BA
   BB69:A9 00 85 40 85 41 A0 C8 18 B9 F2 B3 F0 0E 0A 90 FB 48 E6 40 D0 02 E6
        41 68 18 90 F0 88 D0 E9 A6 40 A5 41 20 24 ED 60
   B3AF:A0 BD A0 D4 C3 C5 D3 A0 C5 C5 D2 C6

If you own a //e then you can get the functions of an 80 col card
(save 80 col) with out the card. Just type: POKE 49162,0  then type: PR#3

 -END-