269 lines
8.6 KiB
Plaintext
269 lines
8.6 KiB
Plaintext
|
**********************************
|
|||
|
|
* *
|
|||
|
|
* ADDRS USED IN THE FORMATTED *
|
|||
|
|
* DIS'MBLIES BUT NOT REFERENCED *
|
|||
|
|
* IN THE LINEAR DIS'MBLIES. *
|
|||
|
|
* (THESE ADRS ARE INCLUDED TO *
|
|||
|
|
* MAKE THE SYMBOL TBLS APPLICABLE*
|
|||
|
|
* TO BOTH DIS'MBLIES.) *
|
|||
|
|
* *
|
|||
|
|
**********************************
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
*--------------------------------*
|
|||
|
|
* ZERO-PAGE LOCATIONS *
|
|||
|
|
*--------------------------------*
|
|||
|
|
|
|||
|
|
LOC0 = $00 ;REFERENCE ADR USD BY MONITOR ROM
|
|||
|
|
;ROUTINES THAT SIMULATE IN# & PR#
|
|||
|
|
;STATEMENTS.
|
|||
|
|
LOC1 = $01 ;AS ABOVE.
|
|||
|
|
GOWARM = LOC0 ;A JMP INSTRUC (3 BYTES, $00-$02)
|
|||
|
|
;TO BASIC'S WARMSTART (RESTART,
|
|||
|
|
;$D43C) ROUTINE. HOWEVER, WHEN
|
|||
|
|
;COLDSTARTING, IS TEMPORARILY SET
|
|||
|
|
;TO JUMP INTO BASIC'S COLDSTART
|
|||
|
|
;AT BSCOLDST ($F128).
|
|||
|
|
GOSTROUT = $03 ;A JMP INSTRUC (3 BYTES, $03-$05)
|
|||
|
|
;TO THE BASIC ROUTINE THAT PRINTS
|
|||
|
|
;THE STRING IN MEMORY POINTED TO
|
|||
|
|
;BY (A) & (Y) REGS (IN LOW/HI
|
|||
|
|
;FORMAT). HOWEVER, WHEN COLD-
|
|||
|
|
;STARTING, IS TEMPORARILY SET TO
|
|||
|
|
;JMP IN2 BASIC'S COLSTART ROUTINE
|
|||
|
|
;AT BSCOLDST ($F128).
|
|||
|
|
USR = $0A ;JUMP INSTRUC (3 BYTES, $0A-$0C)
|
|||
|
|
;TO USR ROUTINE. HOWEVER, WHEN
|
|||
|
|
;COLDSTARTING, IS TEMPORARILY
|
|||
|
|
;PTING AT ILLEGAL-QUANTITY ROUT'N
|
|||
|
|
SUBFLG = $14 ;SUBSCRIPT FLAG:
|
|||
|
|
;$00 = SUBSCRIPT ALLOWED.
|
|||
|
|
;$80 = NO SUBSCRIPTS.
|
|||
|
|
WNDWDTH = $21 ;WIDTH OF TEXT SCREEN WINDOW.
|
|||
|
|
INVFLG = $32 ;INVERSE FLAG MASK: NORMAL = $FF,
|
|||
|
|
;INVERSE = $3F & FLASHING = $7F.
|
|||
|
|
;HACKER'S OFTEN ZAP THIS BYTE TO
|
|||
|
|
;FILTER OUTPUT AS PART OF A
|
|||
|
|
;PROTECTION SCHEME (INVIS = $80).
|
|||
|
|
BT0SCRTH = $3C ;MAIN SCRATCH REG USED BY BOOT0.
|
|||
|
|
A2L = $3E ;MULTIPURPOSE REG & PTR ($3E,$3F)
|
|||
|
|
BOOTEMP = $40 ;TRK # READ OFF DSK WHEN BOOTING.
|
|||
|
|
BOOTRK = $41 ;TRK # WANTED WHEN READING IN DOS
|
|||
|
|
;DURING THE BOOT PROCESS.
|
|||
|
|
TEMPPT = $52 ;PREVIOUS TEMP STRING DESCRIPTOR.
|
|||
|
|
LASTPT = $53 ;PREVIOUS TEMP STRING POINTER.
|
|||
|
|
TEMPST = $55 ;PREVIOUS STRING POINTER USED IN
|
|||
|
|
;GARBAGE COLLECTION ROUTINES.
|
|||
|
|
INDEX = $5E ;TEMP STK PTR FOR MOVING STRINGS.
|
|||
|
|
ARYTAB = $6B ;PTR ($6B,$6C) TO START OF THE
|
|||
|
|
;ARRAY VARIABLES.
|
|||
|
|
STREND = $6D ;PTR ($6D,$6E) TO START OF FREE
|
|||
|
|
;SPACE. (1 BYTE BEYOND THE END OF
|
|||
|
|
;THE ARRAY VARIABLES.)
|
|||
|
|
OLDTEXT = $79 ;PTR ($79,$7A) TO NEXT STATEMENT
|
|||
|
|
;TO BE EXECUTED.
|
|||
|
|
DATPTR = $7D ;PTR ($7D,$7E) TO NEXT BYTE TO BE
|
|||
|
|
;USED FOR A DATA STATEMENT.
|
|||
|
|
DSCLEN = $8F ;TEMP BYTE USD 4 GARBAGE COLLECT.
|
|||
|
|
JMPADRS = $90 ;JMP INTRUC ($90-$92) TO VARIABLE
|
|||
|
|
;ADDR.
|
|||
|
|
TEMPRY = $A4 ;TEMP BYTE USED IN FLOATING POINT
|
|||
|
|
;MATH ROUTINES.
|
|||
|
|
CHRGET = $B1 ;GET BYTE OF TEXT FROM TXTPTR IN
|
|||
|
|
;(A), INCREMENT TXTPTR AND EXIT
|
|||
|
|
;WITH: (A) = ORIGINAL CHAR.
|
|||
|
|
; (Z) = 0 IF (A) = ":" OR $00
|
|||
|
|
; = 1 IF (A) = '0' TO '9'
|
|||
|
|
CHRGOT = $B7 ;AS ABOVE - BUT DON'T INC TXTPTR.
|
|||
|
|
TXTPTR = $B8 ;PTR ($B8,$B9) TO NEXT BYTE OF
|
|||
|
|
;PRGM TEXT.
|
|||
|
|
CHRGTRTN = $C8 ;"RTS" AT END OF CHRGET/CHRGOT.
|
|||
|
|
SPEEDFLG = $F1 ;# USED TO CTRL DELAY ($00-$FF).
|
|||
|
|
TRCFLG = $F2 ;TRACE FLAG.
|
|||
|
|
FLSHMSK = $F3 ;MASK FOR FLASHING OUTPUT.
|
|||
|
|
;($40 FOR FLASH, ELSE $00).
|
|||
|
|
|
|||
|
|
|
|||
|
|
*--------------------------------*
|
|||
|
|
* PAGES ONE TO EIGHT *
|
|||
|
|
*--------------------------------*
|
|||
|
|
|
|||
|
|
STACK = $100 ;TOP OF THE STACK.
|
|||
|
|
|
|||
|
|
BUF300 = $300 ;PAGE 3 - USED BY BOOT AS BUF TO
|
|||
|
|
;STORE 2- & 6-ENCODED NIBBLES.
|
|||
|
|
BTNIBL = $36C ;BOOT NIBBLE TABLE - USED TO
|
|||
|
|
;TRANSLATE DISK BYTES TO ENCODED
|
|||
|
|
;MEMORY BYTES.
|
|||
|
|
SEC2RD08 = $800 ;DEFINES # OF SECS TO BE READ IN
|
|||
|
|
;BY BOOT0.
|
|||
|
|
BT1EXC08 = $801 ;START OF BOOT1. BOOT0 JMPS TO
|
|||
|
|
;THIS LOCATION.
|
|||
|
|
SKPREL08 = $81F ;TARGET LABEL FOR BRANCH WHEN
|
|||
|
|
;BOOT1 IS EXECUTING IN PAGE 8.
|
|||
|
|
;- DETERMINE # OF SECS LFT 2 READ
|
|||
|
|
; IN, PHYS SEC # & TARGET ADR.
|
|||
|
|
PRP4B208 = $839 ;TARGET LABEL FOR BRANCH WHEN
|
|||
|
|
;BOOT1 IS EXECUTING IN PAGE 8.
|
|||
|
|
;- PREPARE FOR BOOT2.
|
|||
|
|
|
|||
|
|
|
|||
|
|
*--------------------------------*
|
|||
|
|
* DISK CONTROLLER CARD ADRS *
|
|||
|
|
*--------------------------------*
|
|||
|
|
* NOTE: THE DISK CONTROLLER ROMS
|
|||
|
|
* ARE RELOCATABLE TO ANY PAGE
|
|||
|
|
* BOUNDARY. THE ACTUAL ADRS USED
|
|||
|
|
* ARE DEPENDENT UPON WHICH SLOT
|
|||
|
|
* (1 TO 7) HOUSES THE CONTROLLER
|
|||
|
|
* CARD. WHEREAS THESE SLOTS ARE
|
|||
|
|
* REPRESENTED BY PAGES $C1 TO $C7,
|
|||
|
|
* THE HI BYTE OF THE FOLLOWING
|
|||
|
|
* ADRS CAN BE CHANGED TO $CS WHERE
|
|||
|
|
* S=SLOT #. THE SAMPLE ADRS GIVEN
|
|||
|
|
* BELOW REFER TO A CARD IN SLOT6
|
|||
|
|
* (PAGE $C6). THE FUNCTIONS OF
|
|||
|
|
* EACH OF THE FOLLOWING ROUTINES
|
|||
|
|
* IS DESCRIBED IN THE FORMATTED
|
|||
|
|
* DISASEMBLY TITLED "THE BOOT PROCESS".
|
|||
|
|
|
|||
|
|
BUILDTBL = $C606
|
|||
|
|
TESTCARY = $C614
|
|||
|
|
GETNEWX = $C61E
|
|||
|
|
MAGNTOFF = $C63D
|
|||
|
|
PRSRVFLG = $C65D
|
|||
|
|
STARTSEQ = $C65E
|
|||
|
|
BTRYD5 = $C663
|
|||
|
|
BTRYAA = $C667
|
|||
|
|
BTRY96 = $C671
|
|||
|
|
BTRYAD = $C67D
|
|||
|
|
RDVLTKSC = $C683
|
|||
|
|
MOREBYTS = $C685
|
|||
|
|
BTRDODD = $C687
|
|||
|
|
BTRDEVEN = $C68F
|
|||
|
|
BTRDATA = $C6A6
|
|||
|
|
KEEPCNT1 = $C6A8
|
|||
|
|
RDDSK1 = $C6AA
|
|||
|
|
KEEPCNT2 = $C6BA
|
|||
|
|
RDDSK2 = $C6BC
|
|||
|
|
RDCK = $C6CB
|
|||
|
|
TSTREAD = $C6D3
|
|||
|
|
SETX56 = $C6D7
|
|||
|
|
DOWNX = $C6D9
|
|||
|
|
|
|||
|
|
|
|||
|
|
*--------------------------------*
|
|||
|
|
* APPLESOFT ADDRESSES *
|
|||
|
|
*--------------------------------*
|
|||
|
|
* A BRIEF DESCRIPTION OF THE
|
|||
|
|
* FUNCTIONS OF THESE ROUTINES ARE
|
|||
|
|
* GIVEN BELOW. NOTE THAT SOME OF
|
|||
|
|
* THESE ROUTINES MAY BE INTERCEPTED
|
|||
|
|
* BY DOS. (SEE FORMATTED DIS'MBLIES
|
|||
|
|
* FOR DETAILS.)
|
|||
|
|
|
|||
|
|
ESTPTRS = $D4F5 ;RECALC LINK PTRS IN APPLESOFT
|
|||
|
|
;PRGM IN CASE PRGM WAS NOT LOADED
|
|||
|
|
;INTO THE SPACE AT WHICH IT WAS
|
|||
|
|
;ORIGINALLY WRITTEN.
|
|||
|
|
LOCEOP = $D4FE ;FIND END OF APPLESOFT PRGM.
|
|||
|
|
STARTNXT = $D50F ;PUT NEW LINK IN FP PRGM LINE.
|
|||
|
|
LOCEOL = $D511 ;FIND END OF APPLESOFT PRGM LINE.
|
|||
|
|
INLIN = $D52C ;INPUT LINE OF TEXT IN2 INPUT BUF
|
|||
|
|
;(WITHOUT PROMPT).
|
|||
|
|
INLINPL2 = $D52E ;AS ABOVE, BUT USE VAL IN (X) AS
|
|||
|
|
;PROMPT.
|
|||
|
|
TERMIN8 = $D539 ;PUT AN END-OF-LINE MARKER (EOL,
|
|||
|
|
;$00) IN INPUT BUFFER.
|
|||
|
|
CNVRTPOS = $D541 ;CONVERT INPUT LINE TO POS ASCII.
|
|||
|
|
NEG8NPUT = $D54C ;PREPARE TO INITIALIZE THE TEXT
|
|||
|
|
;PTR. (SET A=0, Y=01, X=FF.)
|
|||
|
|
CLEAR = $D66A ;SIMULATE A CLEAR STATEMENT.
|
|||
|
|
CLEARC = $D66C ;CLEAR VARIABLES & TEXT.
|
|||
|
|
STKINI = $D683 ;REINTIALIZE STK POINTER WHILE
|
|||
|
|
;PRESERVING RETURN ADDRESS.
|
|||
|
|
CLRTS = $D696 ;"RTS" AT END OF STKINI ROUTINE.
|
|||
|
|
SETXTPT = $D697 ;SET TEXT PTR TO BEGINNING OF THE
|
|||
|
|
;APPLESOFT PRGM.
|
|||
|
|
RESTORE = $D849 ;SIMULATE A RESTORE STATEMENT.
|
|||
|
|
SETDA = $D853 ;RESET PTR 2 DATA STATEMENT BYTE.
|
|||
|
|
CRDO = $DAFB ;PRINT A <CR>.
|
|||
|
|
STRPRT = $DB3D ;PRT STRING WHICH HAS DESCRIPTOR
|
|||
|
|
;POINTED TO BY $A0,$A1.
|
|||
|
|
OUTQUES = $BD5A ;PRINT A "?".
|
|||
|
|
OUTDO = $DB5C ;PRINT CONTENTS OF (A) AS CHAR.
|
|||
|
|
GODOPUT = $BD64 ;PRINT (A) VIA COUT.
|
|||
|
|
INPUT = $DBB2 ;PROCESS AN INPUT STATEMENT.
|
|||
|
|
NOPTNSTR = $DBC4 ;PROCESS AN INPUT STATEMENT WITH
|
|||
|
|
;NO OPTIONAL STRING PROMPT.
|
|||
|
|
CKDIFRD = $DBC7 ;BYPASS PRINTING "?" WHEN USING
|
|||
|
|
;ALTERNATE STRING PROMPT INSTEAD.
|
|||
|
|
STRTXT = $DE81 ;PRINT THE STRING.
|
|||
|
|
SYNCHR = $DEC0 ;CHK BYTE POINTED TO BY TXTPTR TO
|
|||
|
|
;SEE IF IT MATCHES (A). IF NOT,
|
|||
|
|
;EXIT WITH SYNTAX ERROR.
|
|||
|
|
IQERR = $E199 ;ILLEGAL QUANTITY ERROR.
|
|||
|
|
WASDEF = $E2AC ;"RTS" ENCOUNTERED IF USING
|
|||
|
|
;DEFERRED MODE WHEN PROCESSING AN
|
|||
|
|
;INPUT STATEMENT.
|
|||
|
|
ERRDIR = $E306 ;CHK IF IN DEFERRED OR IMMEDIATE
|
|||
|
|
;MODE WHEN PROCESSING AN INPUT
|
|||
|
|
;STATEMENT.
|
|||
|
|
BSCOLDST = $F128 ;BEGIN BASIC'S COLDSTART SEQUENCE
|
|||
|
|
MV2ZPG = $F152 ;COPY IMAGE OF CHRGET ROUTINE AND
|
|||
|
|
;RANDOM # SEED TO PAGE ZERO. (BUG
|
|||
|
|
;IN ROUTINE BECAUSE IT DOESN'T
|
|||
|
|
;TRANSFER ALL OF RANDOM # SEED,)
|
|||
|
|
NORMAL = $F273 ;SET NORMAL MODE.
|
|||
|
|
INVERSE = $F277 ;SET INVERSE MODE.
|
|||
|
|
NORMINV = $F279 ;SET INVERSE OR NORMAL MODE.
|
|||
|
|
SETINV = $F27B ;STORE MASK 4 INVERSE IN INVFLG.
|
|||
|
|
|
|||
|
|
|
|||
|
|
*--------------------------------*
|
|||
|
|
* MONITOR ROM ROUTINES *
|
|||
|
|
*--------------------------------*
|
|||
|
|
* A BRIEF DESCRIPTION OF THE
|
|||
|
|
* FUNCTIONS OF THESE ROUTINES ARE
|
|||
|
|
* GIVEN BELOW. NOTE THAT SOME OF
|
|||
|
|
* THESE ROUTINES MAY BE INTECEPTED
|
|||
|
|
* BY DOS. (SEE FORMATTED DIS'MBLIES
|
|||
|
|
* FOR DETAILS.)
|
|||
|
|
|
|||
|
|
CLREOL = $FC9C ;CLR LINE FRM CURRENT CURSOR POSN
|
|||
|
|
;(BASL),(CH) 2 RIGHT EDGE OF WNDW
|
|||
|
|
CLEOLZ = $FC9E ;CLR LINE FRM CURRENT CURSOR POSN
|
|||
|
|
;(BASL),Y 2 RIGHT EDGE OF WINDOW.
|
|||
|
|
CLEOL2 = $FCA0 ;PUT CHAR IN (A) FROM (BASL),Y TO
|
|||
|
|
;RIGHT EDGE OF WINDOW.
|
|||
|
|
WAIT = $FCA8 ;MONITOR ROM'S MAIN DELAY ROUT'N.
|
|||
|
|
;DEALY Z # OF CYCLES BASED ON THE
|
|||
|
|
;FORMULA:Z=((5*A^2)+(27*A)+26))/2
|
|||
|
|
;WHERE A = VALUE IN ACCUMULATOR.
|
|||
|
|
WAIT2 = $FCA9 ;TARGET 4 BRANCH IN WAIT ROUTINE.
|
|||
|
|
WAIT3 = $FCAA ;TARGET 4 BRANCH IN WAIT ROUTINE.
|
|||
|
|
ESC = $FD2F ;HANDLE AN <ESC> KEY INPUT.
|
|||
|
|
RDCHAR = $FD35 ;PUT INPUT CHAR IN (A).
|
|||
|
|
NOTCR = $FD3D ;HNDL INPUT CHAR OTHER THAN <CR>.
|
|||
|
|
NOTCR1 = $FD5F ;HNDL INPUT CHAR OTHER THAN <CR>,
|
|||
|
|
;<BKSPC> OR <CANCEL>.
|
|||
|
|
CANCEL = $FD62 ;CANCEL THE INPUT LINE.
|
|||
|
|
GETLNZ = $FD67 ;PRINT A <CR>, PROMPT & THEN READ
|
|||
|
|
;A LINE OF INPUT.
|
|||
|
|
BCKSPC = $FD71 ;HANDLE A BACKSPACE ("<-").
|
|||
|
|
NXTCHAR = $FD75 ;READ THE NEXT CHAR.
|
|||
|
|
CAPTST = $FD7E ;MAKE CHR UPPERCASE IF NECESSARY.
|
|||
|
|
ADDINP = $FD84 ;PUT (A) IN INPUT BUF.
|
|||
|
|
CROUT = $FD8E ;PRINT <CR> THROUGH COUT.
|
|||
|
|
INPRT = $FE8D ;SELECT INPUT PORT # (A).
|
|||
|
|
OUTPRT = $FE97 ;SELECT OUTPOUT PORT # (A).
|
|||
|
|
IOPRT = $FE9B ;TEST IF I/O PORT # IS ZERO.
|
|||
|
|
IOPRT1 = $FEA7 ;SET ZERO-PAGE POINTER (X,X+1) TO
|
|||
|
|
;POINT AT $FD--.
|
|||
|
|
IOPRT2 = $FEA9 ;SET ZERO-PAGE POINTER (X,X+1) TO
|
|||
|
|
;POINT AT $(A)(Y).
|
|||
|
|
BELL = $FF3A ;RING WARNING BELL WHEN INPUT BUF
|
|||
|
|
;IS JUST ABOUT FULL.
|
|||
|
|
-
|