0000-                123                      .FI
0000-                124              .FI
0000-                125      ;
0000-                126      ; ********************************************************
0000-                127      ;
F800-                128      MPROM   .EQ     $F800                   ; Normal monitor position at top of memory
00E3-                129      MONDP   .EQ     BASE+$0300/256          ; Direct page for monitor
0000-                130      ;
0000-                131      ; VDU Configuration
0019-                132      ROWS    .EQ     25                      ; Number of rows on display.
0050-                133      COLS    .EQ     VDU&$F8                 ; Number of characters per row, 40 or 80
0800-                134      PSIZE   .EQ     VDU&$F8/10*256          ; Size of display memory in total, $0400 (1K) or $0800 (2K)
000C-                135      PAGHI   .EQ     12                      ; Page address register, high byte
000E-                136      CURHI   .EQ     14                      ; Cursor address register, high byte
0000-                137      ;
0000-             S  138              .DO     VDU&$F8=40              ; Location of memory that 40-Column (Teletext) VDU uses:
0000-             S  139      VPAGE   .EQ     BASE+$400               ;       Standard $0400
0000-             S  140                                              ;       Flex $E400
0000-             S  141                                              ; Location of CRT controller on 40-column VDU card:
0000-             S  142      CRTC    .EQ     BASE+$0800              ;       Standard $0800
0000-                143              .FI                             ;       Flex $E800
0000-                144      ;
0000-                145              .DO     VDU=80                  ; Location of memory that 80-Column VDU uses:
F000-                146      VPAGE   .EQ     BASE+$1000              ;       Standard $1000
0000-                147                                              ;       Flex $F000
0000-                148                                              ; Location of CRT controller on 80-column VDU card:
0000-             S  149              .DO     BASE=$0
0000-             S  150      CRTC    .EQ     $1840                   ;       Standard $1840
0000-                151              .FI
0000-                152              .DO     BASE=$E000
E840-                153      CRTC    .EQ     $E840                   ;       Flex $E840
0000-                154              .FI
0000-                155              .FI
0000-                156      ;
0007-                157      WRPMSK  .EQ     PSIZE/256-1             ; Mask to wrap address within PSIZE, 3 (40-column) or 7 (80-column)
0000-                158      ;
0040-                159      DRIVE   .EQ     $40                     ; Drive to bootstrap from, other drive is $80
EA00-                160      FLOPY   .EQ     BASE+$0A00              ; Location of floppy disc controller:
0000-                161                                              ;       Standard $0A00
0000-                162                                              ;       Flex $EA00
EA00-                163      FDCC    .EQ     FLOPY+0                 ; Command register
EA00-                164      FDCS    .EQ     FDCC                    ; Status register
EA01-                165      FDCP    .EQ     FLOPY+1                 ; Parameter register
EA01-                166      FDCR    .EQ     FDCP                    ; Result register
EA02-                167      FDRST   .EQ     FLOPY+2                 ; Reset register
EA04-                168      FDCD    .EQ     FLOPY+4                 ; Data register
0000-                169      ;
E980-                170      KVIA    .EQ     BASE+$0980              ; Location of Versatile Interface Adaptor
E980-                171      KORB    .EQ     KVIA+$0                 ; Output register B
E980-                172      KIRB    .EQ     KORB                    ; Input register B
E981-                173      KORA    .EQ     KVIA+$1                 ; Output register A
E981-                174      KIRA    .EQ     KORA                    ; Input register A
E982-                175      KDDRB   .EQ     KVIA+$2                 ; Data direction register B
E983-                176      KDDRA   .EQ     KVIA+$3                 ; Data direction register A
E984-                177      KT1CL   .EQ     KVIA+$4                 ; Timer 1 counter low
E985-                178      KT1CH   .EQ     KVIA+$5                 ; Timer 1 counter high
E986-                179      KT1LL   .EQ     KVIA+$6                 ; Timer 1 latch low
E987-                180      KT1LH   .EQ     KVIA+$7                 ; Timer 1 latch high
E988-                181      KT2CL   .EQ     KVIA+$8                 ; Timer 2 counter low
E989-                182      KT2CH   .EQ     KVIA+$9                 ; Timer 2 counter high
E98A-                183      KSR     .EQ     KVIA+$A                 ; Shift register
E98B-                184      KACR    .EQ     KVIA+$B                 ; Auxiliary control register
E98C-                185      KPCR    .EQ     KVIA+$C                 ; Peripheral control register
E98D-                186      KIFR    .EQ     KVIA+$D                 ; Interrupt flag register
E98E-                187      KIER    .EQ     KVIA+$E                 ; Interrupt enable register
E98F-                188      KORA2   .EQ     KVIA+$F                 ; Input/output register A without hand shake
0000-                189      ;
0F00-                190      INTDEL  .EQ     15*256                  ; Delay for single instruction trace is 15 cycles
0040-                191      T1IFLG  .EQ     %01000000               ; Interrupt flag position for timer 1
0010-                192      CB1FLG  .EQ     %00010000               ; Interrupt flag position for keyboard strobe on CB1
0000-                193      ;
00EF-                194      IKPCR   .EQ     %11101111               ; Initial value for peripheral control register,
0000-                195                                              ;       bit 0           CA1 control from printer, positive edge interrupt,
0000-                196                                              ;                           but not used in this monitor
0000-                197                                              ;       bits 1-3        CA2 control to strobe printer, normally high
0000-                198                                              ;       bit 4           CB1 control, negative edge keyboard interrupt
0000-                199                                              ;       bits 5-7        CB2 control, cassette output initially set high
0000-                200      ;
00D0-                201      IKIER   .EQ     %11010000               ; Interrupt enable register control
0000-                202                                              ;       bit 4           CB1 keyboard interrupt enable
0000-                203                                              ;       bit 6           timer 1 interrupt enable
0000-                204                                              ;       bit 7           set interrupts enabled
0000-                205                                              ;       other enables not altered
0000-                206      ;
0002-                207      PSTRB   .EQ     %00000010               ; bit position in PCR of printer strobe, to toggle CA2
0020-                208      COPBIT  .EQ     %00100000               ; bit position in PCR of cassette output, to toggle CB2
0000-                209      ;
003F-                210      SWIOP   .EQ     $3F                     ; Software interrupt used for breakpoints
0000-                211      ;
0052-                212      BUFLEN  .EQ     81+1                    ; Buffer up to 80 characters from keyboard
0000-                213      ;
002A-                214      PROMPT  .EQ     '*'                     ; Monitor prompt
007F-                215      RUBCH   .EQ     $7F                     ; Keyboard code that does rubout operation
007F-                216      BSPACE  .EQ     $7F                     ; Code that backspaces VDU, also used to do rubout
000A-                217      LF      .EQ     $0A                     ; Linefeed
000D-                218      CR      .EQ     $0D                     ; Carriage return
0020-                219      SPACE   .EQ     $20                     ; Blank space
002C-                220      COMMA   .EQ     ','                     ; The comma symbol
002D-                221      MINUS   .EQ     '-'                     ; The minus symbol
000C-                222      FFEED   .EQ     $0C                     ; Code used as clear screen command
003B-                223      SEMIC   .EQ     ';'                     ; The semicolon symbol
0000-                224      ;
0010-                225      IRQ     .EQ     $10
0004-                226      ZERO    .EQ     $04
0000-                227      ;
0000-                228      ;       Definitions of variables in page 03 / E3
0000-                229      ;       ----------------------------------------
0000-                230      ;
E35B-                231      ISTACK  .EQ     BASE+$035B              ; Stack pointer starts here
E35B-                232      RTAB1   .EQ     BASE+$035B              ; RAM table 1 starts here
0000-                233      ;
0000-                234      ;       This table is copied from ROM on start-up
0000-                235      ;
E35B-                236      STACK   .EQ     BASE+$035B              ; Position of stack pointer when empty
E35D-                237      NTRACE  .EQ     BASE+$035D              ; Number of instructions to trace before stopping
E35F-                238      BSECHO  .EQ     BASE+$035F              ; Character sent to backspace display
E360-                239      ECHOF   .EQ     BASE+$0360              ; Keyboard buffer/echo control
0000-                240                                              ;       bits 0-5        don't care
0000-                241                                              ;       bit 6           echo console input to console output if set
0000-                242                                              ;       bit 7           buffer input lines, allow rubout if set
0000-                243      ;
E361-                244      PFLAG   .EQ     BASE+$0361              ; Printer control flag, echo console output to printer if nonzero
E362-                245      PNEW    .EQ     BASE+$0362              ; This character not sent to printer
E363-                246      DELCNT  .EQ     BASE+$0363              ; Non-zero delay count for cassette, controls baud rate
E365-                247      COPADR  .EQ     BASE+$0365              ; Address for console output
E367-                248      CINADR  .EQ     BASE+$0367              ; Address for console input
E369-                249      CASOPA  .EQ     BASE+$0369              ; Address for cassette output
E36B-                250      CASINA  .EQ     BASE+$036B              ; Address for cassette input
E36D-                251      PRINT1  .EQ     BASE+$036D              ; Address of printer output routine
E36F-                252      FUNCTI  .EQ     BASE+$036F              ; Address of VDU function table
E371-                253      CMNDI   .EQ     BASE+$0371              ; Address of monitor command table
E373-                254      IRQRTS  .EQ     BASE+$0373              ; Address to go to on timer 1 interrupt
E375-                255      LINEPT  .EQ     BASE+$0375              ; Address of memory input line, 0 if none
E377-                256      IRESV   .EQ     BASE+$0377              ; Address of reserved vector routine
E379-                257      ISWI3   .EQ     BASE+$0379              ; Address of SWI1 routine
E37B-                258      ISWI2   .EQ     BASE+$037B              ; Address of SWI2 routine
E37D-                259      IFIRQ   .EQ     BASE+$037D              ; Address of FIRQ routine
E37F-                260      IIRQ    .EQ     BASE+$037F              ; Address of IRQ routine
E381-                261      ISWI    .EQ     BASE+$0381              ; Address of SWI routine
E383-                262      INMI    .EQ     BASE+$0383              ; Address of NMI routine
E385-                263      OFFSET  .EQ     BASE+$0385              ; Cassette load offset
0000-                264      ;
0000-                265      ;       General variables for monitor use
0000-                266      ;
E387-                267      HEADST  .EQ     BASE+$0387              ; Static head pointer into line buffer
E389-                268      HEADDY  .EQ     BASE+$0389              ; Dynamic head pointer into line buffer
E38B-                269      TAIL    .EQ     BASE+$038B              ; Tail pointer into line buffer
E38D-                270      MSTACK  .EQ     BASE+$038D              ; stack saved whilst memory interpreting
E38F-                271      CROW    .EQ     BASE+$038F              ; current row of cursor on display
E390-                272      CCOL    .EQ     BASE+$0390              ; current column of cursor on display
E391-                273      CPAGE   .EQ     BASE+$0391              ; current start of display page in memory
E393-                274      MSAV    .EQ     BASE+$0393              ; Saved address for memory command
E395-                275      GSAV    .EQ     BASE+$0395              ; Saved address for go command
E397-                276      NAME    .EQ     BASE+$0397              ; Saved name for cassette input output
E39D-                277      CSSTRT  .EQ     BASE+$039D              ; Saved cassette output start address
E39F-                278      CSEND   .EQ     BASE+$039F              ; Saved cassette output end address
E3A1-                279      ONLINE  .EQ     BASE+$03A1              ; flag set to zero when find or in input line
E3A2-                280      LASTC   .EQ     BASE+$03A2              ; Saved last character from input line current
E3A3-                281      CBREAK  .EQ     BASE+$03A3              ; Address of breakpoint, $FFFF if none
E3A5-                282      NBREAK  .EQ     BASE+$03A5              ; number of breakpoints to ignore before stopping user
E3A7-                283      CINST   .EQ     BASE+$03A7              ; user instruction at breakpoint address
E3A8-                284      CTRACE  .EQ     BASE+$03A8              ; number of instructions left to trace before stopping user
E3AA-                285      USRSTK  .EQ     BASE+$03AA              ; Saved user-stack pointer when user halted
E3AC-                286      TEMP    .EQ     BASE+$03AC              ; Temporary storage
E3AE-                287      BUFFER  .EQ     BASE+$03AE              ; line input buffer
0000-                288      ;               BASE+$03FF              ; end of line input buffer
0000-                289      ;
0000-                290      ;       Memory Maps
0000-                291      ;       -----------
0000-                292      ;
0000-                293      ;       Original Acorn
0000-                294      ;       $0000-$03FF     Monitor System RAM (IC5,6)
0000-                295      ;       $0400-$07FF     40-column Teletext video memory
0000-                296      ;       $0800-$08FF     40-column Teletext 6845 CRTC
0000-                297      ;;      $0900-$09FF     6522 VIA ($0980)
0000-                298      ;               REGA    b6-b0   printer output
0000-                299      ;                       b7      printer busy input
0000-                300      ;               REGB    b6-b0   keyboard ASCII input
0000-                301      ;                       b7      cassette input
0000-                302      ;               CA1             input from printer acknowledge (not used)
0000-                303      ;               CA2             output strobe to printer
0000-                304      ;               CB1             input strobe from keyboard
0000-                305      ;               CB2             output to cassette
0000-                306      ;               Timer1          used to single step
0000-                307      ;               Timer2          unused
0000-                308      ;       $0A00-$0A7F     8271 floppy disk controller
0000-                309      ;       $1000-$17FF     80-column VDU video memory
0000-                310      ;       $1800-$187F     80-column 6845 CRTC ($1840)
0000-                311      ;       $2000-$3FFF     User RAM (8K)
0000-                312      ;       $2000-$BFFF     or User RAM (8K+32K)
0000-                313      ;       $F800-$FFFF     Monitor EPROM (IC4)
0000-                314      ;
0000-                315      ;       Flex
0000-                316      ;       $0000-$7FFF     User RAM (32K)
0000-                317      ;       $0000-$BFFF     or User RAM (48K)
0000-                318      ;       $C000-$DFFF     FLEX System RAM (loaded from Disk)
0000-                319      ;       $E000-$E3FF     Monitor System RAM (IC5,6)
0000-                320      ;       $E400-$E7FF     40-column Teletext Video memory
0000-                321      ;       $E800-$E8FF     40-column Teletext 6845 CRTC
0000-                322      ;       $E800-$E87F     80-column 6845 CRTC ($E840)
0000-                323      ;       $E900-$E9FF     6522 VIA ($E980)
0000-                324      ;               REGA    b6-b0   printer output
0000-                325      ;                       b7      printer busy input
0000-                326      ;               REGB    b6-b0   keyboard ASCII input
0000-                327      ;                       b7      cassette input
0000-                328      ;               CA1             input from printer acknowledge (not used)
0000-                329      ;               CA2             output strobe to printer
0000-                330      ;               CB1             input strobe from keyboard
0000-                331      ;               CB2             output to cassette
0000-                332      ;               Timer1          used to single step
0000-                333      ;               Timer2          unused
0000-                334      ;       $EA00-$EA7F     8271 floppy disk controller
0000-                335      ;       $F000-$F7FF     80-column VDU video memory
0000-                336      ;       $F800-$FFFF     Monitor EPROM (IC4)
0000-                337      ;
F800-                338              .OR     MPROM
F800-                339      ;
F800-                340                                      ; ****** Hardware Reset Starts Here ******
F800-                341      ;
F800-86 E3           342 ( 2) RESET:  LDA     #MONDP          ; Set up direct page
F802-1F 8B           343 ( 7)         TFR     A,DP
F804-                344              .DP     MONDP
F804-8E FF 25        345 ( 3)         LDX     #PTAB1          ; ROM table start
F807-CE E3 5B        346 ( 3)         LDU     #RTAB1          ; RAM table start
F80A-A6 80           347 ( 7) RST1:   LDA     ,X+             ; Copy ROM
F80C-A7 C0           348 ( 7)         STA     ,U+             ; to RAM
F80E-8C FF 51        349 ( 4)         CMPX    #PTAB2          ; until end of table
F811-26 F7           350 ( 3)         BNE     RST1
F813-10 DE 5B        351 ( 6)         LDS     <STACK          ; Set up stack pointer
F816-                352      ;
F816-                353              .DO     VER=490
F816-BE F7 FE        354 ( 6)         LDX     MPROM-2
F819-8C A5 5A        355 ( 4)         CMPX    #$A55A          ; Check for extra ROM,
F81C-26 04           356 ( 3)         BNE     STRT1           ; not there,
F81E-AD 9F F7 FC     357 (13)         JSR     [MPROM-4]       ; else call it
F822-                358              .FI
F822-                359      ;
F822-             S  360              .DO     VER=495
F822-             S  361              .DB     $17,$06,$63     ; 'LBSR CONCHR-3'
F822-             S  362              NOP
F822-             S  363              NOP
F822-             S  364              NOP
F822-             S  365              NOP
F822-             S  366              NOP
F822-             S  367              NOP
F822-             S  368              NOP
F822-             S  369              NOP
F822-             S  370              NOP
F822-                371              .FI
F822-                372      ;
F822-CE FB EA        373 ( 3) STRT1:  LDU     #BACK           ; Put monitor return on to stack
F825-34 40           374 ( 7)         PSHS    U
F827-CC 00 0C        375 ( 3)         LDD     #$0C
F82A-34 02           376 ( 6) STRT2:  PSHS    A               ; Put dummy registers onto stack
F82C-5A              377 ( 2)         DECB
F82D-26 FB           378 ( 3)         BNE     STRT2
F82F-10 DF AA        379 ( 6)         STS     <USRSTK         ; Save stack pointer
F832-8E E3 AE        380 ( 3)         LDX     #BUFFER         ; Get start of buffer
F835-9F 89           381 ( 5)         STX     <HEADDY         ; and set up pointers
F837-9F 87           382 ( 5)         STX     <HEADST
F839-9F 8B           383 ( 5)         STX     <TAIL
F83B-17 00 E7        384 ( 9)         LBSR    CRTCI           ; Initialise CRT controller
F83E-17 00 D1        385 ( 9)         LBSR    VIAI            ; and VIA chips
F841-0F A2           386 ( 6)         CLR     <LASTC          ; Set no saved character
F843-17 04 00        387 ( 9)         LBSR    BRKOUT          ; Remove if exists
F846-8E FF FF        388 ( 3)         LDX     #$FFFF          ; then set none existing
F849-                389      ;
F849-                390              .DO     VER=490
F849-9F A3           391 ( 5)         STX     <CBREAK
F84B-1C EF           392 ( 3)         ANDCC   #$EF            ; CLI: Allow interrupts
F84D-                393              .FI
F84D-                394      ;
F84D-             S  395              .DO     VER=495
F84D-             S  396              JMP     MCASIN
F84D-             S  397              .DB     $EF             ; Packing ?
F84D-                398              .FI
F84D-                399      ;
F84D-                400              .DP     0
F84D-86 2A           401 ( 2) MON:    LDA     #PROMPT         ; Send prompt
F84F-BE E3 75        402 ( 6)         LDX     >LINEPT         ; unless
F852-26 03           403 ( 3)         BNE     MON1            ; memory input
F854-17 01 CA        404 ( 9)         LBSR    CONOUT
F857-                405      ;
F857-B7 E3 A1        406 ( 5) MON1:   STA     >ONLINE         ; Set no CR yet
F85A-86 E3           407 ( 2) PARSE:  LDA     #MONDP
F85C-1F 8B           408 ( 7)         TFR     A,DP            ; Set direct page
F85E-                409              .DP     MONDP
F85E-9E 75           410 ( 5)         LDX     <LINEPT         ; See if mem input,
F860-27 04           411 ( 3)         BEQ     PARSEC          ; if so,
F862-A6 84           412 ( 5)         LDA     ,X              ; then see if null yet
F864-27 41           413 ( 3)         BEQ     MEND            ; End if is null
F866-8D 17           414 ( 7) PARSEC: BSR     CONCHR          ; Get input
F868-27 E3           415 ( 3)         BEQ     MON             ; prompt on CR
F86A-9E 71           416 ( 5)         LDX     <CMNDI          ; else command table search
F86C-17 01 37        417 ( 9)         LBSR    DISPCH
F86F-20 E9           418 ( 3)         BRA     PARSE
F871-                419      ;
F871-                420      ; Enter here for monitor to use memory input line (X) is start of line, ends with a null.
F871-                421      ; multiple input lines are allowed, each line ends with carriage return.
F871-                422      ;
F871-                423      ; Exits with (a) zero if all ok, else (a) is $FF if found null too early,
F871-                424      ; else (a) is character causing error.
F871-                425      ;
F871-                426              .DP     0
F871-34 08           427 ( 6) MEMUSE: PSHS    DP
F873-10 FF E3 8D     428 ( 7)         STS     MSTACK          ; Save stack for return.
F877-BF E3 75        429 ( 6)         STX     LINEPT          ; Save pointer in memory
F87A-7F E3 A2        430 ( 7)         CLR     LASTC           ; Set none saved
F87D-20 CE           431 ( 3)         BRA     MON             ; and call monitor
F87F-86 0D           432 ( 2) CONCHR: LDA     #CR             ; Assume CR now
F881-7D E3 A1        433 ( 7)         TST     ONLINE          ; and if found CR then
F884-27 06           434 ( 3)         BEQ     CON1            ; is correct
F886-8D 08           435 ( 7)         BSR     CONIN           ; Get input
F888-81 0D           436 ( 2)         CMPA    #CR             ; If not CR then
F88A-26 03           437 ( 3)         BNE     CON2            ; done
F88C-7F E3 A1        438 ( 7) CON1:   CLR     ONLINE          ; Set found CR
F88F-39              439 ( 5) CON2:   RTS
F890-                440      ;
F890-                441      ; Console input routine, gets character from keyboard buffer or memory it finds
F890-                442      ; null in memory then returns to to caller with error $FF.
F890-                443      ;
F890-                444              .DP     MONDP
F890-34 18           445 ( 8) CONIN:  PSHS    DP,X
F892-86 E3           446 ( 2)         LDA     #MONDP          ; Set up
F894-1F 8B           447 ( 7)         TFR     A,DP            ; direct page
F896-96 A2           448 ( 4)         LDA     <LASTC          ; Saved one?
F898-27 04           449 ( 3)         BEQ     CON5            ; none saved
F89A-0F A2           450 ( 6)         CLR     <LASTC          ; not saved anymore
F89C-35 98           451 (10)         PULS    DP,X,PC
F89E-                452      ;
F89E-9E 75           453 ( 5) CON5:   LDX     <LINEPT         ; see if mem input
F8A0-27 0E           454 ( 3)         BEQ     CON3            ; no, use buffer
F8A2-A6 80           455 ( 7)         LDA     ,X+             ; Get men value
F8A4-26 0E           456 ( 3)         BNE     CON4            ; ok if not null
F8A6-4A              457 ( 2)         DECA                    ; Set to $FF
F8A7-10 DE 8D        458 ( 6) MEND:   LDS     <MSTACK         ; clear mem
F8AA-0F 75           459 ( 6)         CLR     <LINEPT+0       ; input
F8AC-0F 76           460 ( 6)         CLR     <LINEPT+1
F8AE-35 88           461 ( 8)         PULS    DP,PC           ; and return to caller
F8B0-AD 9F E3 67     462 (13) CON3:   JSR     [CINADR]        ; Get console input
F8B4-9F 75           463 ( 5) CON4:   STX     <LINEPT         ; store new mem pointer
F8B6-35 98           464 (10)         PULS    DP,X,PC
F8B8-                465      ;
F8B8-                466      ; This routine prints the registers from the stack as pointed to by usrstk,
F8B8-                467      ; then prints usrstk itself.  Also prints five bytes starting at (PC)
F8B8-                468      ;
F8B8-8E FF 96        469 ( 3) EXREG:  LDX     #TITLES         ; Headings
F8BB-8D 2F           470 ( 7)         BSR     STRING          ; printed first
F8BD-DE AA           471 ( 5)         LDU     <USRSTK
F8BF-C6 04           472 ( 2)         LDB     #$04            ; ie, CC,A,B,DP.
F8C1-A6 C0           473 ( 7) EX1:    LDA     ,U+             ; Get data
F8C3-17 01 D1        474 ( 9)         LBSR    OPARSP          ; output as 2 hex digits
F8C6-5A              475 ( 2)         DECB
F8C7-26 F8           476 ( 3)         BNE     EX1             ; until all 4 output
F8C9-C6 04           477 ( 2)         LDB     #$04            ; ie, X, Y, U, PC
F8CB-AE C1           478 ( 9) EX2:    LDX     ,U++            ; get 2 bytes
F8CD-17 01 A5        479 ( 9)         LBSR    OPXREG          ; as 4 hex digits
F8D0-5A              480 ( 2)         DECB
F8D1-26 F8           481 ( 3)         BNE     EX2             ; until all output
F8D3-9E AA           482 ( 5)         LDX     <USRSTK         ; then put out stack
F8D5-17 01 9D        483 ( 9)         LBSR    OPXREG          ; address.
F8D8-EE 0A           484 ( 7)         LDU     $0A,X           ; Get user PC value
F8DA-8E FF BD        485 ( 3)         LDX     #PCMESS         ; Send
F8DD-8D 0D           486 ( 7)         BSR     STRING          ; title
F8DF-C6 05           487 ( 2)         LDB     #$05            ; then 5 bytes
F8E1-A6 C0           488 ( 7) EX3:    LDA     ,U+
F8E3-17 01 B1        489 ( 9)         LBSR    OPARSP
F8E6-5A              490 ( 2)         DECB
F8E7-26 F8           491 ( 3)         BNE     EX3
F8E9-                492      ;
F8E9-                493      ; Output the string CR, LF to console
F8E9-                494      ;
F8E9-8E FF 93        495 ( 3) OPCRLF: LDX     #SCRLF          ; String address of CR, LF
F8EC-                496      ;
F8EC-                497      ; Output the string pointed to by X until a null,
F8EC-                498      ; leaves X pointing to null+1, other registers intact
F8EC-                499      ;
F8EC-34 02           500 ( 6) STRING: PSHS    A               ; Save A
F8EE-A6 80           501 ( 7) STRNG1: LDA     ,X+             ; Get data
F8F0-27 05           502 ( 3)         BEQ     EOTXT           ; finish if null
F8F2-17 01 2C        503 ( 9)         LBSR    CONOUT          ; else output
F8F5-20 F7           504 ( 3)         BRA     STRNG1          ; and repeat.
F8F7-35 82           505 ( 8) EOTXT:  PULS    A,PC            ; Get A back and return
F8F9-                506      ;
F8F9-                507      ; Calculate apparent address of cursor without allowing for memory wrap around, result in D.
F8F9-                508      ;
F8F9-                509      CCOFST:
F8F9-                510              .DO     VER=490
F8F9-86 50           511 ( 2)         LDA     #COLS
F8FB-                512              .FI
F8FB-                513      ;
F8FB-             S  514              .DO     VER=495
F8FB-             S  515              LDA     <$01
F8FB-                516              .FI
F8FB-                517      ;
F8FB-D6 8F           518 ( 4)         LDB     <CROW
F8FD-3D              519 (11)         MUL
F8FE-DB 90           520 ( 4)         ADDB    <CCOL
F900-89 00           521 ( 2)         ADCA    #0
F902-D3 91           522 ( 6)         ADDD    <CPAGE
F904-39              523 ( 5)         RTS
F905-                524      ;
F905-                525      ; Calculate real address of cursor in memory space, result returned in X.
F905-                526      ;
F905-34 06           527 ( 7) CCLOCN: PSHS    D
F907-8D F0           528 ( 7)         BSR     CCOFST          ; Apparent address.
F909-84 07           529 ( 2)         ANDA    #WRPMSK         ; Wrap around in 1K or 2K page
F90B-C3 F0 00        530 ( 4)         ADDD    #VPAGE          ; Add start of video page
F90E-1F 01           531 ( 7)         TFR     D,X
F910-35 86           532 ( 9)         PULS    D,PC            ; Unsave and return
F912-                533      ;
F912-                534      ; Initialise Versatile Interface Adapter (VIA)
F912-                535      ;
F912-CC EF D0        536 ( 3) VIAI:   LDD     #IKPCR*256+IKIER
F915-8E E9 80        537 ( 3)         LDX     #KVIA           ; Point to VIA.
F918-A7 0C           538 ( 6)         STA     KPCR-KVIA,X     ; Peripheral control register
F91A-E7 0E           539 ( 6)         STB     KIER-KVIA,X     ; Interrupt enable register
F91C-86 7F           540 ( 2)         LDA     #$7F            ; Printer output (7 bits) plus
F91E-A7 03           541 ( 6)         STA     KDDRA-KVIA,X    ; cassette input on a side
F920-A6 0D           542 ( 6)         LDA     KIFR-KVIA,X     ; Cancel any interrupts present
F922-A7 0D           543 ( 6)         STA     KIFR-KVIA,X
F924-39              544 ( 5)         RTS
F925-                545      ;
F925-                546      ; Initialise CRT controller on VDU card, R or S version
F925-                547      ;
F925-                548      CRTCI:
F925-                549      ;
F925-                550              .DO     VER=490
F925-8E FF 0D        551 ( 3)         LDX     #CRTCSV         ; Table for S version
F928-                552              .FI
F928-                553      ;
F928-             S  554              .DO     VER=495
F928-             S  555              LDX     #$E300          ; ??
F928-                556              .FI
F928-                557      ;
F928-CC 0D AA        558 ( 3)         LDD     #PAGHI+1*256+$AA ; Test the page register
F92B-FD E8 40        559 ( 6)         STD     CRTC            ; (low byte) for read/write ability
F92E-F1 E8 41        560 ( 5)         CMPB    CRTC+1
F931-27 02           561 ( 3)         BEQ     CRTC11          ; If so, then V version
F933-30 0C           562 ( 1)         LEAX    $C,X            ; 'LEAX CRTCRV-CRTCSV,X'        ; else get R table instead
F935-86 0B           563 ( 2) CRTC11: LDA     #12-1           ; Set up 12 registers
F937-E6 86           564 ( 6) CRTC12: LDB     A,X             ; Get data and store it in correct register
F939-FD E8 40        565 ( 6)         STD     CRTC
F93C-4A              566 ( 2)         DECA
F93D-2A F8           567 ( 3)         BPL     CRTC12          ; Repeat until all 12 done
F93F-                568      ;
F93F-                569      ; Reset display to a blank page with cursor at top left of screen
F93F-                570      ;
F93F-0F 8F           571 ( 6) CLRALL: CLR     <CROW           ; Row 0
F941-0F 90           572 ( 6)         CLR     <CCOL           ; Column 0
F943-0F 91           573 ( 6)         CLR     <CPAGE+0        ; Current page set
F945-0F 92           574 ( 6)         CLR     <CPAGE+1        ; to start of display memory
F947-17 00 9C        575 ( 9)         LBSR    SETTOP          ; Set page in CRTC chip
F94A-17 00 A1        576 ( 9)         LBSR    SETCUR          ; and set cursor in CRTC chip
F94D-                577      ;
F94D-                578      ; Clear the display memory to all blanks.
F94D-                579      ;
F94D-CC 20 20        580 ( 3) CLRSCN: LDD     #SPACE*256+SPACE ; Two spaces
F950-8E F0 00        581 ( 3)         LDX     #VPAGE          ; Start of display memory
F953-ED 81           582 ( 9) CLRS1:  STD     ,X++            ; Store two blanks
F955-8C F8 00        583 ( 4)         CMPX    #VPAGE+PSIZE    ; and repeat
F958-26 F9           584 ( 3)         BNE     CLRS1           ; until done all page
F95A-39              585 ( 5)         RTS
F95B-                586      ;
F95B-                587      ; This routine used to put a character to the VDU, handling CR, LF, backspace and form feed.
F95B-                588      ; All registers are saved.
F95B-                589      ;
F95B-34 7F           590 (15) DISPLA: PSHS    U,Y,X,DP,B,A,CC ; Save registers.
F95D-C6 E3           591 ( 2)         LDB     #MONDP
F95F-1F 9B           592 ( 7)         TFR     B,DP
F961-9E 6F           593 ( 5)         LDX     <FUNCTI         ; Get function table.
F963-1A 10           594 ( 3)         ORCC    #IRQ            ; Stop interrupts since not re-entrant
F965-8D 3F           595 ( 7)         BSR     DISPCH          ; Jump on function table
F967-35 FF           596 (17)         PULS    U,Y,X,DP,B,A,CC,PC      ; then restore and return
F969-                597      ;
F969-                598      ; This routine puts a character on display and moves cursor
F969-                599      ;
F969-8D 9A           600 ( 7) SIMCHR: BSR     CCLOCN          ; Find location in memory
F96B-A7 84           601 ( 5)         STA     ,X              ; and store character
F96D-0C 90           602 ( 6)         INC     <CCOL           ; move cursor across
F96F-96 90           603 ( 4)         LDA     <CCOL           ; then done if
F971-                604      ;
F971-                605              .DO     VER=490
F971-81 50           606 ( 2)         CMPA    #COLS           ; all columns
F973-                607              .FI
F973-                608      ;
F973-             S  609              .DO     VER=495
F973-             S  610              CMPA    <$01            ; ??
F973-                611              .FI
F973-                612      ;
F973-26 0E           613 ( 3)         BNE     SIM1            ; not yet filled
F975-0F 90           614 ( 6)         CLR     <CCOL           ; Do CR
F977-                615      ;
F977-                616      ; Move cursor down one line, scroll display if required
F977-                617      ;
F977-0C 8F           618 ( 6) DOLF:   INC     <CROW           ; Down a row
F979-96 8F           619 ( 4)         LDA     <CROW
F97B-                620      ;
F97B-                621              .DO     VER=490
F97B-81 19           622 ( 2)         CMPA    #ROWS           ; Last row yet
F97D-                623              .FI
F97D-                624      ;
F97D-             S  625              .DO     VER=495
F97D-             S  626              CMPA    <$06            ; ??
F97D-                627              .FI
F97D-                628      ;
F97D-26 04           629 ( 3)         BNE     SIM1            ; if not then done,
F97F-0A 8F           630 ( 6)         DEC     <CROW           ; else back up
F981-8D 40           631 ( 7)         BSR     SCROLL          ; and scroll instead
F983-20 69           632 ( 3) SIM1:   BRA     SETCUR          ; then set new cursor
F985-                633      ;
F985-                634      ; Move cursor back erasing last character.
F985-                635      ;
F985-8D 08           636 ( 7) DORUB:  BSR     BSONE           ; Back up cursor
F987-86 20           637 ( 2)         LDA     #SPACE
F989-8D D0           638 ( 7)         BSR     DISPLA          ; then blank last character,
F98B-8D 02           639 ( 7)         BSR     BSONE           ; and back up again
F98D-20 5F           640 ( 3) LF98D:  BRA     SETCUR          ; then set cursor up
F98F-                641      ;
F98F-                642      ; Back cursor up allowing line and row underflow.
F98F-                643      ;
F98F-0A 90           644 ( 6) BSONE:  DEC     <CCOL           ; Left move cursor
F991-2A 0C           645 ( 3)         BPL     BS1             ; No under flow
F993-                646      ;
F993-                647              .DO     VER=490
F993-86 4F           648 ( 2)         LDA     #COLS-1         ; else set to
F995-                649              .FI
F995-                650      ;
F995-             S  651              .DO     VER=495
F995-             S  652              LDA     <$0C            ; ??
F995-                653              .FI
F995-                654      ;
F995-97 90           655 ( 4)         STA     <CCOL           ; right margin
F997-0A 8F           656 ( 6)         DEC     <CROW           ; and up one row
F999-2A 04           657 ( 3)         BPL     BS1             ; No row underflow
F99B-0F 8F           658 ( 6)         CLR     <CROW
F99D-0F 90           659 ( 6)         CLR     <CCOL
F99F-39              660 ( 5) BS1:    RTS
F9A0-                661      ;
F9A0-                662      ; Dispatch routine looks up a character in a table,
F9A0-                663      ; character in A, table address ,X
F9A0-                664      ;
F9A0-                665      ; Table format is:      First byte, number of entries 1 to 255
F9A0-                666      ;
F9A0-                667      ;       Repeat for each entry:  character to match with,
F9A0-                668      ;                               2-byte offset from start of this table
F9A0-                669      ;                               of routine to jump to if characters match
F9A0-                670      ;
F9A0-                671      ;       flag byte:  control if no match found:
F9A0-                672      ;
F9A0-                673      ;       positive: next word is offset of default routine
F9A0-                674      ;       zero:     return to calling program
F9A0-                675      ;       negative: next word is address of another table to search
F9A0-                676      ;
F9A0-EC 84           677 ( 6) DIS2:   LDD     ,X              ; Get address of new table,
F9A2-ED 62           678 ( 7)         STD     2,S             ; replace old on stack,
F9A4-35 56           679 (11)         PULS    D,X,U           ; and begin again
F9A6-34 56           680 (11) DISPCH: PSHS    D,X,U           ; Save registers
F9A8-E6 81           681 ( 8)         LDB     ,X++            ; Get length and move to offset.
F9AA-A1 1F           682 ( 6) DIS1:   CMPA    -1,X            ; Compare characters
F9AC-27 0B           683 ( 3)         BEQ     DIS3            ; Found it, else,
F9AE-30 03           684 ( 1)         LEAX    3,X             ; move down.
F9B0-5A              685 ( 2)         DECB                    ; Repeat until
F9B1-26 F7           686 ( 3)         BNE     DIS1            ; done
F9B3-6D 1F           687 ( 8)         TST     -1,X            ; Test flag byte.
F9B5-27 0A           688 ( 3)         BEQ     DIS4            ; Zero means return
F9B7-2B E7           689 ( 3)         BMI     DIS2            ; search new table, else
F9B9-EC 84           690 ( 6) DIS3:   LDD     ,X              ; get offset and
F9BB-E3 62           691 ( 8)         ADDD    2,S             ; add start of table, then
F9BD-ED 64           692 ( 7)         STD     4,S             ; store in stack.
F9BF-35 96           693 (11)         PULS    D,X,PC          ; Restore and go to routine
F9C1-35 D6           694 (13) DIS4:   PULS    D,X,U,PC        ; Return to caller
F9C3-                695      ;
F9C3-                696      ; Scroll the display up one line, leave cursor at same position on screen, leave registers intact
F9C3-                697      ;
F9C3-DC 91           698 ( 5) SCROLL: LDD     <CPAGE          ; Get start of page
F9C5-C3 07 D0        699 ( 4)         ADDD    #ROWS*COLS      ; then move off end, $03E8 (40-column) or $07D0 (80-column)
F9C8-8E F0 00        700 ( 3)         LDX     #VPAGE          ; Actual memory address
F9CB-CE 20 20        701 ( 3)         LDU     #SPACE*256+SPACE ; Double space
F9CE-                702      ;
F9CE-                703              .DO     VER=490
F9CE-10 8E 00 28     704 ( 4)         LDY     #COLS/2         ; Number to blank
F9D2-                705              .FI
F9D2-                706      ;
F9D2-             S  707              .DO     VER=495
F9D2-             S  708              LDY     <$0D            ; ??
F9D2-             S  709              NOP
F9D2-                710              .FI
F9D2-                711      ;
F9D2-84 07           712 ( 2) SCR1:   ANDA    #WRPMSK         ; Wrap around in 1K or 2K
F9D4-EF 8B           713 (10)         STU     D,X             ; and put 2 blanks
F9D6-C3 00 02        714 ( 4)         ADDD    #2              ; Move up and
F9D9-31 3F           715 ( 1)         LEAY    -1,Y            ; repeat until
F9DB-26 F5           716 ( 3)         BNE     SCR1            ; line done
F9DD-83 07 D0        717 ( 4)         SUBD    #ROWS*COLS      ; Move to second line now, $03E8 (40-column) or $07D0 (80-column)
F9E0-84 07           718 ( 2)         ANDA    #WRPMSK         ; wrap around and
F9E2-DD 91           719 ( 5)         STD     <CPAGE          ; set as new page
F9E4-8D 08           720 ( 7)         BSR     SETCUR          ; Put cursor back in position
F9E6-                721      ;
F9E6-                722      ; Put page address into CRT controller.
F9E6-                723      ;
F9E6-9E 91           724 ( 5) SETTOP: LDX     <CPAGE          ; Get page
F9E8-86 0C           725 ( 2)         LDA     #PAGHI          ; Point to page start register
F9EA-20 09           726 ( 3)         BRA     SETPAR          ; then enter parameters
F9EC-                727      ;
F9EC-                728      ; Do a carriage return by setting column to 0
F9EC-                729      ;
F9EC-0F 90           730 ( 6) DOCR:   CLR     <CCOL
F9EE-                731      ;
F9EE-                732      ; Set cursor register in CRT controller.
F9EE-                733      ;
F9EE-17 FF 08        734 ( 9) SETCUR: LBSR    CCOFST          ; Get cursor address, no wrap around
F9F1-1F 01           735 ( 7)         TFR     D,X             ; into X
F9F3-86 0E           736 ( 2)         LDA     #CURHI          ; Point to cursor register
F9F5-                737      ;
F9F5-                738      ; Put 2 byte value into CRT controller, value in X, high byte register number in A
F9F5-                739      ;
F9F5-34 10           740 ( 7) SETPAR: PSHS    X               ; Get high byte
F9F7-35 04           741 ( 6)         PULS    B               ; Set register
F9F9-FD E8 40        742 ( 6)         STD     CRTC            ; and data move to low byte
F9FC-4C              743 ( 2)         INCA                    ; Get low byte
F9FD-35 04           744 ( 6)         PULS    B               ; Set register
F9FF-FD E8 40        745 ( 6)         STD     CRTC            ; and data.
FA02-39              746 ( 5)         RTS
FA03-                747      ;
FA03-                748      ; This routine puts keyboard input into line buffer
FA03-                749      ; If no room then ignores character, else echoes to display
FA03-                750      ; If echo is switched on handles rubout unless line buffer is switched off
FA03-                751      ;
FA03-D6 60           752 ( 4) HAVCHR: LDB     <ECHOF
FA05-2A 04           753 ( 3)         BPL     HAV3            ; Buffer off, so no rubout
FA07-81 7F           754 ( 2)         CMPA    #RUBCH
FA09-27 23           755 ( 3)         BEQ     BSP1            ; Go do rubout
FA0B-8D 37           756 ( 7) HAV3:   BSR     PUTCHR          ; Put into buffer
FA0D-27 43           757 ( 3)         BEQ     PUT1            ; No room, do not echo
FA0F-5D              758 ( 2)         TSTB                    ; If buffer off, then no
FA10-2A 08           759 ( 3)         BPL     HAV4            ; line feed on CR input
FA12-81 0D           760 ( 2)         CMPA    #CR
FA14-26 06           761 ( 3)         BNE     KBECHO          ; Not CR, so no
FA16-8D 04           762 ( 7)         BSR     KBECHO          ; echo of a linefeed
FA18-86 0A           763 ( 2)         LDA     #LF
FA1A-9F 87           764 ( 5) HAV4:   STX     <HEADST         ; Move static pointer up
FA1C-                765      ;
FA1C-                766      ; Put character in A to console output if echo on
FA1C-                767      ;
FA1C-D6 60           768 ( 4) KBECHO: LDB     <ECHOF          ; See if echo on
FA1E-58              769 ( 2)         LSLB                    ; Need bit 6
FA1F-2A 31           770 ( 3)         BPL     PUT1            ; Not on if zero
FA21-                771      ;
FA21-                772      ; Console output routine, sends to printer also if switched on
FA21-                773      ;
FA21-                774              .DP     0
FA21-7D E3 61        775 ( 7) CONOUT: TST     PFLAG           ; If printer off then
FA24-27 04           776 ( 3)         BEQ     CANOP1          ; value is zero
FA26-AD 9F E3 6D     777 (13)         JSR     [PRINT1]        ; else call printer
FA2A-6E 9F E3 65     778 ( 9) CANOP1: JMP     [COPADR]        ; then console output
FA2E-                779              .DP     MONDP
FA2E-9E 89           780 ( 5) BSP1:   LDX     <HEADDY         ; End of line, if at start of line
FA30-9C 87           781 ( 6)         CMPX    <HEADST
FA32-27 1E           782 ( 3)         BEQ     PUT1            ; then nothing to rubout
FA34-8C E3 AE        783 ( 4)         CMPX    #BUFFER         ; Do cyclic
FA37-26 03           784 ( 3)         BNE     BSP2
FA39-30 88 52        785 ( 1)         LEAX    BUFLEN,x        ; decrement of pointer
FA3C-30 1F           786 ( 1) BSP2:   LEAX    -1,x
FA3E-9F 89           787 ( 5)         STX     <HEADDY         ; Set new end of line
FA40-96 5F           788 ( 4)         LDA     <BSECHO         ; and echo a backspace
FA42-20 D8           789 ( 3)         BRA     KBECHO
FA44-                790      ;
FA44-                791      ; Put character into buffer if room, return Z=0, else return Z=1
FA44-                792      ;
FA44-9E 89           793 ( 5) PUTCHR: LDX     <HEADDY         ; Get pointer
FA46-8D 0B           794 ( 7)         BSR     BUMPU           ; If no room, then
FA48-9C 8B           795 ( 6)         CMPX    <TAIL           ; pointers equal,
FA4A-27 06           796 ( 3)         BEQ     PUT1            ; so done
FA4C-A7 84           797 ( 5)         STA     ,X              ; Store it and
FA4E-9F 89           798 ( 5)         STX     <HEADDY         ; set new pointer
FA50-1C FB           799 ( 3)         ANDCC   #255-ZERO       ; Clear Z flag
FA52-39              800 ( 5) PUT1:   RTS
FA53-                801      ;
FA53-                802      ; Cyclic increment of buffer pointers.
FA53-                803      ;
FA53-30 01           804 ( 1) BUMPU:  LEAX    1,X
FA55-8C E4 00        805 ( 4)         CMPX    #BUFFER+BUFLEN
FA58-26 03           806 ( 3)         BNE     ANRTS
FA5A-8E E3 AE        807 ( 3)         LDX     #BUFFER
FA5D-39              808 ( 5) ANRTS:  RTS
FA5E-                809      ;
FA5E-                810      ; Get character from buffer, if none then clears interrupt
FA5E-                811      ; mask and waits. all registers saved, including CC
FA5E-                812      ;
FA5E-                813              .DP     0
FA5E-34 11           814 ( 8) GETCHR: PSHS    X,CC            ; Save and
FA60-20 02           815 ( 3)         BRA     GETCH1          ; skip wait
FA62-3C EF           816 (20) GETCH2: CWAI    #255-IRQ        ; Wait for an interrupt
FA64-BE E3 8B        817 ( 6) GETCH1: LDX     TAIL            ; Get tail pointer
FA67-BC E3 87        818 ( 7)         CMPX    HEADST          ; If equals static head
FA6A-27 F6           819 ( 3)         BEQ     GETCH2          ; then no character
FA6C-8D E5           820 ( 7)         BSR     BUMPU           ; else move up
FA6E-A6 84           821 ( 5)         LDA     ,X              ; and get it.
FA70-BF E3 8B        822 ( 6)         STX     TAIL            ; Set new tail
FA73-35 91           823 (10)         PULS    CC,X,PC
FA75-                824      ;
FA75-                825      ; Output X register as four hex digits to console, all registers saved
FA75-                826      ;
FA75-                827              .DP     0
FA75-34 06           828 ( 7) OPXREG: PSHS    D
FA77-1F 10           829 ( 7)         TFR     X,D
FA79-8D 06           830 ( 7)         BSR     OPAREG
FA7B-1F 98           831 ( 7)         TFR     B,A
FA7D-8D 18           832 ( 7)         BSR     OPARSP
FA7F-35 86           833 ( 9)         PULS    D,PC
FA81-                834      ;
FA81-                835      ; Output a register as two hex digits to console, all registers saved except a
FA81-                836      ;
FA81-34 02           837 ( 6) OPAREG: PSHS    A
FA83-44              838 ( 2)         LSRA
FA84-44              839 ( 2)         LSRA
FA85-44              840 ( 2)         LSRA
FA86-44              841 ( 2)         LSRA
FA87-8D 04           842 ( 7)         BSR     HEXOUT          ; Left nibble
FA89-A6 E0           843 ( 7)         LDA     ,S+             ; Get byte back and
FA8B-84 0F           844 ( 2)         ANDA    #15             ; do right nibble
FA8D-                845      ;
FA8D-                846      ; Output A as a single hex digit.
FA8D-                847      ;
FA8D-8B 30           848 ( 2) HEXOUT: ADDA    #'0'
FA8F-81 39           849 ( 2)         CMPA    #'9'
FA91-23 02           850 ( 3)         BLS     HEX2
FA93-8B 07           851 ( 2)         ADDA    #'A'-'9'-1
FA95-20 8A           852 ( 3) HEX2:   BRA     CONOUT          ; Output and return
FA97-                853      ;
FA97-                854      ; Output a hex digit folowed by a space
FA97-                855      ;
FA97-8D E8           856 ( 7) OPARSP: BSR     OPAREG
FA99-86 20           857 ( 2)         LDA     #SPACE
FA9B-20 F8           858 ( 3)         BRA     HEX2
FA9D-                859      ;
FA9D-                860      ; Printer routine, this interfaces to anadex or centronics parallel interface printers
FA9D-                861      ;
FA9D-                862              .DP     0
FA9D-34 46           863 ( 9) PRINT:  PSHS    D,U
FA9F-CE E9 80        864 ( 3)         LDU     #KVIA           ; Point to VIA
FAA2-B1 E3 62        865 ( 5)         CMPA    PNEW            ; If spec'd symbol then
FAA5-27 0E           866 ( 3)         BEQ     PEXIT           ; do not send
FAA7-E6 4F           867 ( 6) PWAIT1: LDB     KORA2-KVIA,U    ; Check if busy
FAA9-2B FC           868 ( 3)         BMI     PWAIT1          ; If so then wait
FAAB-A7 41           869 ( 6)         STA     KORA-KVIA,U     ; Store data
FAAD-C6 ED           870 ( 2)         LDB     #IKPCR-PSTRB    ; then low strobe
FAAF-E7 4C           871 ( 6)         STB     KPCR-KVIA,U
FAB1-C6 EF           872 ( 2)         LDB     #IKPCR          ; and high strobe
FAB3-E7 4C           873 ( 6)         STB     KPCR-KVIA,U
FAB5-35 C6           874 (11) PEXIT:  PULS    PC,U,B,A        ; Pull registers and return
FAB7-                875      ;
FAB7-                876      ; These tables are the decision tables for the memory examine and change function
FAB7-                877      ;
FAB7-                878              .DP     MONDP
FAB7-08              879      MTABA:  .DB     MTABAE-MTABA/3-1        ; number of entries
FAB8-56              880              .AS     'V'
FAB9-00 2C           881              .DW     VADDR-MTABA     ; Modify break address and memory
FABB-47              882              .AS     'G'
FABC-00 34           883              .DW     GADDR-MTABA     ; Modify go address and memory
FABE-50              884              .AS     'P'
FABF-00 3C           885              .DW     PADDR-MTABA     ; Modify proceed address and memory
FAC1-52              886              .AS     'R'
FAC2-00 42           887              .DW     RADDR-MTABA     ; Modify register locations
FAC4-20              888              .DB     SPACE
FAC5-00 51           889              .DW     SPACEA-MTABA
FAC7-2C              890              .DB     COMMA
FAC8-00 7A           891              .DW     COMMAA-MTABA
FACA-3B              892              .DB     SEMIC
FACB-00 8A           893              .DW     SEMICA-MTABA
FACD-2D              894              .DB     MINUS
FACE-00 8E           895              .DW     MINUSA-MTABA
FAD0-01              896              .DB     1
FAD1-00 71           897              .DW     NOTA-MTABA
FAD3-                898      MTABAE: .EQ     $
FAD3-                899      ;
FAD3-04              900      MTABB:  .DB     MTABBE-MTABB/3-1
FAD4-20              901              .DB     SPACE
FAD5-00 5E           902              .DW     SPACEB-MTABB
FAD7-2C              903              .DB     COMMA
FAD8-00 8D           904              .DW     COMMAB-MTABB
FADA-3B              905              .DB     SEMIC
FADB-00 69           906              .DW     SEMICB-MTABB
FADD-2D              907              .DB     MINUS
FADE-00 72           908              .DW     MINUSB-MTABB
FAE0-01              909              .DB     1
FAE1-00 7B           910              .DW     NOTB-MTABB
FAE3-                911      MTABBE: .EQ     $
FAE3-                912      ;
FAE3-                913      ; Memory examine and change routine.
FAE3-                914      ;
FAE3-17 01 60        915 ( 9) VADDR:  LBSR    BRKOUT          ; Take out any break
FAE6-CE E3 A3        916 ( 3)         LDU     #CBREAK         ; point to break address store
FAE9-20 03           917 ( 3)         BRA     ADDR1
FAEB-CE E3 95        918 ( 3) GADDR:  LDU     #GSAV           ; point to go address store
FAEE-10 AE C4        919 ( 7) ADDR1:  LDY     ,U              ; Get initial value
FAF1-20 3E           920 ( 3)         BRA     GDATA
FAF3-DE AA           921 ( 5) PADDR:  LDU     <USRSTK
FAF5-33 4A           922 ( 1)         LEAU    $0A,U           ; Point to user PC
FAF7-20 F5           923 ( 3)         BRA     ADDR1
FAF9-10 9E AA        924 ( 6) RADDR:  LDY     <USRSTK         ; Get address off 'CC' register
FAFC-CE E3 AC        925 ( 3) RADDR1: LDU     #TEMP           ; Dummy location for new value
FAFF-20 30           926 ( 3)         BRA     GDATA
FB01-CE E3 93        927 ( 3) MEM:    LDU     #MSAV           ; Point to memory address store
FB04-10 AE C4        928 ( 7)         LDY     ,U              ; Get initial value
FB07-5F              929 ( 2)         CLRB                    ; Set status zero
FB08-17 FD 74        930 ( 9) SPACEA: LBSR    CONCHR          ; Get input
FB0B-27 0B           931 ( 3)         BEQ     CRA             ; No address given
FB0D-8E FA B7        932 ( 3)         LDX     #MTABA          ; Search address table
FB10-16 FE 93        933 (55)         LBRA    DISPCH
FB13-5D              934 ( 2) CRD:    TSTB                    ; If status
FB14-2F 02           935 ( 3)         BLE     CRA             ; -1 or 0 then no change
FB16-31 21           936 ( 1)         LEAY    $01,Y           ; else up one
FB18-1F 21           937 ( 7) CRA:    TFR     Y,X             ; Print out address
FB1A-17 FF 58        938 ( 9)         LBSR    OPXREG
FB1D-A6 84           939 ( 5)         LDA     ,X              ; then data
FB1F-17 FF 75        940 ( 9)         LBSR    OPARSP
FB22-C6 01           941 ( 2)         LDB     #$01            ; Set status +1
FB24-D7 A1           942 ( 4)         STB     <ONLINE         ; Allow next line
FB26-20 09           943 ( 3)         BRA     GDATA           ; and continue
FB28-97 A2           944 ( 4) NOTA:   STA     <LASTC          ; Save for re-use
FB2A-8D 40           945 ( 7)         BSR     NUMB            ; Get number with
FB2C-29 38           946 ( 3)         BVS     MERR            ; error if none
FB2E-1F 02           947 ( 7)         TFR     D,Y             ; is new address
FB30-5F              948 ( 2) DAT1:   CLRB                    ; Set status 0
FB31-                949      COMMAA: .EQ     $
FB31-                950      SPACEB: .EQ     $
FB31-17 FD 4B        951 ( 9) GDATA:  LBSR    CONCHR          ; Get input
FB34-27 DD           952 ( 3)         BEQ     CRD             ; No data found CR
FB36-8E FA D3        953 ( 3)         LDX     #MTABAE         ; else search data table
FB39-16 FE 6A        954 (55)         LBRA    DISPCH
FB3C-5D              955 ( 2) SEMICB: TSTB                    ; Test status
FB3D-2C 02           956 ( 3)         BGE     SEMICA          ; If -1 then
FB3F-31 3F           957 ( 1)         LEAY    -1,Y            ; dec before
FB41-10 AF C4        958 ( 7) SEMICA: STY     ,U              ; Save new address
FB44-39              959 ( 5)         RTS                     ; and exit
FB45-                960      MINUSA: .EQ     $
FB45-31 3F           961 ( 1) MINUSB: LEAY    -1,Y            ; Back down 1,
FB47-5D              962 ( 2)         TSTB                    ; but if status
FB48-2C 02           963 ( 3)         BGE     MIND2           ; is -1 then
FB4A-31 3F           964 ( 1)         LEAY    -1,Y            ; duck down 2
FB4C-20 E2           965 ( 3) MIND2:  BRA     DAT1            ; then continue
FB4E-97 A2           966 ( 4) NOTB:   STA     <LASTC          ; Save for re-use
FB50-8D 1A           967 ( 7)         BSR     NUMB            ; in number.
FB52-29 12           968 ( 3)         BVS     MERR            ; Should have number
FB54-E7 A4           969 ( 5)         STB     ,Y              ; Store data then
FB56-E1 A4           970 ( 5)         CMPB    ,Y              ; check it
FB58-27 06           971 ( 3)         BEQ     COMMAB          ; is ok,
FB5A-8E FF 8F        972 ( 3)         LDX     #MQRY           ; else tell
FB5D-17 FD 8C        973 ( 9)         LBSR    STRING          ; user.
FB60-31 21           974 ( 1) COMMAB: LEAY    1,Y             ; Go up 1
FB62-C6 FF           975 ( 2)         LDB     #$FF            ; with status -1
FB64-20 CB           976 ( 3)         BRA     GDATA           ; then continue
FB66-17 FD 16        977 ( 9) MERR:   LBSR    CONCHR          ; Get wrong symbol
FB69-16 01 1D        978 (55)         LBRA    BADCMD          ; and tell user
FB6C-                979      ;
FB6C-                980      ; Get hex number from input stream, allow leading spaces and stop on first non-hex character,
FB6C-                981      ; return number in D, with V=0, if no number then do and V=1
FB6C-                982      ;
FB6C-                983              .DP     0
FB6C-4F              984 ( 2) NUMB:   CLRA
FB6D-5F              985 ( 2)         CLRB
FB6E-34 06           986 ( 7)         PSHS    D               ; Put initial zero value
FB70-8D 18           987 ( 7)         BSR     GETHXS          ; Get first non-blank as hex value
FB72-29 14           988 ( 3)         BVS     NUMB1           ; wasn't hex
FB74-C6 04           989 ( 2) NUMB3:  LDB     #$04
FB76-48              990 ( 2)         ASLA                    ; Move to
FB77-48              991 ( 2)         ASLA
FB78-48              992 ( 2)         ASLA
FB79-48              993 ( 2)         ASLA                    ; high nibble
FB7A-48              994 ( 2) NUMB2:  ASLA                    ; Rotate into
FB7B-69 61           995 ( 8)         ROL     1,S
FB7D-                996      ;
FB7D-                997              .DO     VER=490
FB7D-69 60           998              .DB     $69,$60         ; 'ROL  0,S'
FB7F-                999              .FI
FB7F-               1000      ;
FB7F-             S 1001              .DO     VER=495
FB7F-             S 1002              .DB     $69,$E4         ; 'ROL ,S'
FB7F-               1003              .FI
FB7F-               1004      ;
FB7F-5A             1005 ( 2)         DECB                    ; Do 4 times.
FB80-26 F8          1006 ( 3)         BNE     NUMB2           ; Get a hex digit from console
FB82-8D 11          1007 ( 7)         BSR     GETHEX          ; Was hex so use,
FB84-28 EE          1008 ( 3)         BVC     NUMB3           ; else finish with V clear
FB86-1C FD          1009 ( 3) NUMB4:  ANDCC   #$FD            ; CLV
FB88-35 86          1010 ( 9) NUMB1:  PULS    D,PC
FB8A-               1011      ;
FB8A-               1012      ; GETHXS - get a hex digit ignoring leading spaces
FB8A-               1013      ; GETHEX - get a hex digit both return value in A, with V=0, else set V=1 if non-hex
FB8A-               1014      ;
FB8A-17 FC F2       1015 ( 9) GETHXS: LBSR    CONCHR          ; Get input.
FB8D-27 22          1016 ( 3)         BEQ     GETH5           ; On CR, no number
FB8F-81 20          1017 ( 2)         CMPA    #SPACE          ; If space
FB91-27 F7          1018 ( 3)         BEQ     GETHXS          ; then ignore
FB93-20 05          1019 ( 3)         BRA     GETH2           ; Change to hex
FB95-               1020      ;
FB95-17 FC E7       1021 ( 9) GETHEX: LBSR    CONCHR          ; Get input
FB98-27 17          1022 ( 3)         BEQ     GETH5           ; On CR, no number
FB9A-81 30          1023 ( 2) GETH2:  CMPA    #'0'
FB9C-25 0C          1024 ( 3)         BCS     GETH1           ; Illegal hex
FB9E-81 39          1025 ( 2)         CMPA    #'9'
FBA0-23 14          1026 ( 3)         BLS     GETH3           ; Number hex
FBA2-81 41          1027 ( 2)         CMPA    #'A'
FBA4-25 04          1028 ( 3)         BCS     GETH1           ; Illegal hex
FBA6-81 46          1029 ( 2)         CMPA    #'F'
FBA8-23 0A          1030 ( 3)         BLS     GETH4           ; Alpha hex
FBAA-81 2C          1031 ( 2) GETH1:  CMPA    #COMMA
FBAC-27 03          1032 ( 3)         BEQ     GETH5           ; Absorb comma
FBAE-B7 E3 A2       1033 ( 5)         STA     LASTC           ; else re-use
FBB1-1A 02          1034 ( 3) GETH5:  ORCC    #$02            ; Bad hex, SEV
FBB3-39             1035 ( 5)         RTS
FBB4-80 07          1036 ( 2) GETH4:  SUBA    #7              ; Alpha offset
FBB6-80 30          1037 ( 2) GETH3:  SUBA    #'0'            ; Number offset
FBB8-39             1038 ( 5)         RTS                     ; with V clear
FBB9-               1039      ;
FBB9-               1040      ; Resume user program using stack as stands
FBB9-               1041      ;
FBB9-               1042              .DP     MONDP
FBB9-32 62          1043 ( 1) RESUME: LEAS    2,S             ; Strip return address
FBBB-8D AF          1044 ( 7)         BSR     NUMB            ; Get number or zero
FBBD-DD A5          1045 ( 5)         STD     <NBREAK         ; and set break ignore count
FBBF-8D 6C          1046 ( 7) RES2:   BSR     BRKIN           ; Insert breakpoints
FBC1-35 FF          1047 (17)                 PULS    PC,U,Y,X,DP,B,A,CC      ; and pull all user registers off stack
FBC3-               1048      ;
FBC3-               1049      ; Software interrupt handler, come here on breakpoint
FBC3-               1050      ; Either stops and displays registers or traces past breakpoint and resumes
FBC3-               1051      ;
FBC3-86 E3          1052 ( 2) SWIHAN: LDA     #MONDP          ; Set up
FBC5-1F 8B          1053 ( 7)         TFR     A,DP            ; direct page
FBC7-               1054              .DP     MONDP
FBC7-AE 6A          1055 ( 7)         LDX     10,S            ; back up
FBC9-30 1F          1056 ( 1)         LEAX    -1,X            ; user
FBCB-AF 6A          1057 ( 7)         STX     10,S            ; program counter
FBCD-8D 77          1058 ( 7)         BSR     BRKOUT          ; remove breakpoint
FBCF-9E A5          1059 ( 5)         LDX     <NBREAK         ; Get count.
FBD1-27 08          1060 ( 3)         BEQ     RES1            ; stop if zero, else
FBD3-30 1F          1061 ( 1)         LEAX    -1,X            ; decrement
FBD5-9F A5          1062 ( 5)         STX     <NBREAK         ; and restore
FBD7-8D 76          1063 ( 7)         BSR     TUSER1          ; Trace past break
FBD9-20 E4          1064 ( 3)         BRA     RES2            ; then resume again
FBDB-10 DF AA       1065 ( 6) RES1:   STS     <USRSTK
FBDE-17 FC D7       1066 ( 9)         LBSR    EXREG           ; display registers
FBE1-20 19          1067 ( 3)         BRA     BACK1           ; and stay in monitor
FBE3-               1068      ;
FBE3-               1069      ; Change number in X if one given in input stream, destroys D
FBE3-               1070      ;
FBE3-8D 87          1071 ( 7) NUMBX:  BSR     NUMB
FBE5-29 02          1072 ( 3)         BVS     NUMBX1          ; No number
FBE7-1F 01          1073 ( 7)         TFR     D,X
FBE9-39             1074 ( 5) NUMBX1: RTS
FBEA-               1075      ;
FBEA-               1076      ; User program returns here if RTS done.
FBEA-               1077      ;
FBEA-32 7E          1078 ( 1) BACK:   LEAS    -2,S            ; Make room for new return address
FBEC-34 FF          1079 (17)         PSHS    CC,A,B,DP,X,Y,U,PC      ; and save all user registers
FBEE-8E FB EA       1080 ( 3)         LDX     #BACK           ; Set return address
FBF1-AF 6C          1081 ( 7)         STX     12,S            ; again
FBF3-C6 E3          1082 ( 2)         LDB     #MONDP
FBF5-1F 9B          1083 ( 7)         TFR     B,DP
FBF7-8D 4D          1084 ( 7)         BSR     BRKOUT          ; Remove breakpoints
FBF9-10 DF AA       1085 ( 6)         STS     <USRSTK         ; Save user stack pointer
FBFC-1C EF          1086 ( 3) BACK1:  ANDCC   #$EF            ; CLI: enable interrupts
FBFE-16 FC 59       1087 (55)         LBRA    PARSE           ; and resume monitor functions
FC01-               1088      ;
FC01-               1089      ; Go to user program, optional address specified
FC01-               1090      ; The stack pointer is reset, but the register contents are maintained as listed by the command
FC01-               1091
FC01-0F A5          1092 ( 6) GOUSER: CLR     <NBREAK+0       ; Put zero in
FC03-0F A6          1093 ( 6)         CLR     <NBREAK+1       ; break count
FC05-DE 5B          1094 ( 5)         LDU     <ISTACK         ; Get pointer
FC07-8E FB EA       1095 ( 3)         LDX     #BACK           ; return address,
FC0A-AF C3          1096 ( 9)         STX     ,--U            ; pushed first
FC0C-C6 0D          1097 ( 2)         LDB     #11+2           ; 12 registers plus return.
FC0E-A6 E5          1098 ( 6) GO1:    LDA     B,S             ; Get value and
FC10-A7 C2          1099 ( 7)         STA     ,-U             ; push it
FC12-5A             1100 ( 2)         DECB
FC13-2A F9          1101 ( 3)         BPL     GO1             ; For all registers
FC15-32 42          1102 ( 1)         LEAS    2,U             ; new stack, ignore return address
FC17-9E 95          1103 ( 5)         LDX     <GSAV           ; Saved address
FC19-8D C8          1104 ( 7)         BSR     NUMBX           ; Change if given
FC1B-9F 95          1105 ( 5)         STX     <GSAV           ; and restore.
FC1D-AF 6A          1106 ( 7)         STX     10,S            ; Put as user PC
FC1F-8D 0C          1107 ( 7)         BSR     BRKIN           ; Insert breakpoint
FC21-35 FF          1108 (17)         PULS    CC,A,B,DP,X,Y,U,PC      ; and begin user program
FC23-               1109      ;
FC23-               1110      ; Change user breakpoint position.
FC23-               1111      ;
FC23-8D 21          1112 ( 7) BRKSET  BSR     BRKOUT          ; Ensure old is out
FC25-8E FF FF       1113 ( 3)         LDX     #$FFFF          ; value for no break
FC28-8D B9          1114 ( 7)         BSR     NUMBX           ; change if given
FC2A-9F A3          1115 ( 5)         STX     <CBREAK         ; and save.
FC2C-39             1116 ( 5)         RTS
FC2D-               1117      ;
FC2D-               1118      ; Put breakpoint in if one exists.
FC2D-               1119      ;
FC2D-8D 09          1120 ( 7) BRKIN:  BSR     BRKTST          ; See if exists
FC2F-27 06          1121 ( 3)         BEQ     BRK1            ; Already a SWI, so done
FC31-97 A7          1122 ( 4)         STA     <CINST          ; else save it
FC33-86 3F          1123 ( 2)         LDA     #SWIOP
FC35-A7 84          1124 ( 5)         STA     ,X              ; and insert a SWI instead
FC37-39             1125 ( 5) BRK1:   RTS
FC38-               1126      ;
FC38-               1127      ; Check break required, if not does RTS twice.
FC38-               1128      ;
FC38-9E A3          1129 ( 5) BRKTST: LDX     <CBREAK         ; Get address
FC3A-8C FF FF       1130 ( 4)         CMPX    #$FFFF          ; $FFFF means none
FC3D-27 05          1131 ( 3)         BEQ     BRK10           ; not one
FC3F-A6 84          1132 ( 5)         LDA     ,X              ; Get instruction
FC41-81 3F          1133 ( 2)         CMPA    #SWIOP          ; see if SWI
FC43-39             1134 ( 5)         RTS                     ; then exit
FC44-35 90          1135 ( 9) BRK10:  PULS    PC,X            ; Exit twice
FC46-               1136      ;
FC46-               1137      ; Called by SWI
FC46-               1138      ; -------------
FC46-               1139      ; Remove a breakpoint if one present in code
FC46-               1140      ;
FC46-8D F0          1141 ( 7) BRKOUT: BSR     BRKTST          ; See if exists
FC48-26 04          1142 ( 3)         BNE     BRK2            ; Not SWI, leave alone
FC4A-96 A7          1143 ( 4)         LDA     <CINST          ; Get saved instruction
FC4C-A7 84          1144 ( 5)         STA     ,X              ; and restore in code
FC4E-39             1145 ( 5) BRK2:   RTS
FC4F-               1146      ;
FC4F-               1147      ; Trace one instruction of user code
FC4F-               1148      ;
FC4F-35 10          1149 ( 7) TUSER1: PULS    X               ; Get return address
FC51-9F 73          1150 ( 5)         STX     <IRQRTS         ; and save it
FC53-86 EF          1151 ( 2)         LDA     #255-IRQ        ; Clear IRQ mask
FC55-A4 E4          1152 ( 5)         ANDA    ,S              ; in user
FC57-A7 E4          1153 ( 5)         STA     ,S              ; condition codes
FC59-CC 0F 00       1154 ( 3)         LDD     #INTDEL         ; Delay before interrupt
FC5C-FD E9 84       1155 ( 6)         STD     KT1CL           ; Set timer going,
FC5F-35 FF          1156 (17)         PULS    CC,A,B,DP,X,Y,U,PC      ; start user program running
FC61-               1157      ;
FC61-               1158      ; Set number of instructions to trace on each command
FC61-               1159      ;
FC61-17 FF 08       1160 ( 9) TRACEN: LBSR    NUMB            ; Get 0 if no number
FC64-DD 5D          1161 ( 5)         STD     <NTRACE         ; Save result.
FC66-39             1162 ( 5) TRACE1: RTS
FC67-               1163      ;
FC67-               1164      ; Trace required number of instructions then display register contents and halt user
FC67-               1165      ;
FC67-9E 5D          1166 ( 5) TRACE:  LDX     <NTRACE         ; Get number to trace
FC69-27 FB          1167 ( 3)         BEQ     TRACE1          ; ignore command if zero
FC6B-32 62          1168 ( 1)         LEAS    2,S             ; strip return address
FC6D-9F A8          1169 ( 5) TRACE2: STX     <CTRACE         ; save number left
FC6F-8D DE          1170 ( 7)         BSR     TUSER1          ; trace one instruction
FC71-9E A8          1171 ( 5)         LDX     <CTRACE         ; Get number left
FC73-30 1F          1172 ( 1)         LEAX    -1,X            ; and decrement
FC75-26 F6          1173 ( 3)         BNE     TRACE2          ; repeat if required
FC77-16 FF 61       1174 (55)         LBRA    RES1            ; else show registers and halt user
FC7A-               1175      ;
FC7A-               1176      ; Turn printer echo of console output on or off
FC7A-               1177      ;
FC7A-17 FC 02       1178 ( 9) PCNTL:  LBSR    CONCHR          ; Get input
FC7D-27 06          1179 ( 3)         BEQ     POFF            ; if CR then off
FC7F-81 2B          1180 ( 2)         CMPA    #'+'            ; if plus
FC81-27 03          1181 ( 3)         BEQ     PON             ; then switch on
FC83-97 A2          1182 ( 4)         STA     <LASTC          ; Re-use if not +
FC85-4F             1183 ( 2) POFF:   CLRA                    ; Switch off value
FC86-97 61          1184 ( 4) PON:    STA     <PFLAG          ; Set flag
FC88-39             1185 ( 5)         RTS
FC89-               1186      ;
FC89-               1187      ; If get bad command, query it and ignore rest of line
FC89-               1188      ;
FC89-9E 75          1189 ( 5) BADCMD: LDX     <LINEPT         ; If memory input
FC8B-10 26 FC 18    1190 (5+)         LBNE    MEND            ; then exit
FC8F-8E FF C3       1191 ( 3)         LDX     #CQRY           ; Output query
FC92-17 FC 57       1192 ( 9)         LBSR    STRING          ; message
FC95-17 FD 89       1193 ( 9)         LBSR    CONOUT          ; and character
FC98-17 FC 4E       1194 ( 9)         LBSR    OPCRLF          ; followed by CR, LF
FC9B-17 FB E1       1195 ( 9) BAD1:   LBSR    CONCHR          ; Get input and
FC9E-26 FB          1196 ( 3)         BNE     BAD1            ; if not CR then ignore it
FCA0-39             1197 ( 5)         RTS                     ; then carry on
FCA1-               1198      ;
FCA1-               1199      ; Cassette file load routine, this searches for named file followed by data
FCA1-               1200      ;
FCA1-17 00 D1       1201 ( 9) LOAD:   LBSR    NAMEIN          ; Get file name
FCA4-17 FE C5       1202 ( 9)         LBSR    NUMB            ; Get offset
FCA7-DD 85          1203 ( 5)         STD     <OFFSET         ; and save
FCA9-8E E3 97       1204 ( 3) LOAD2:  LDX     #NAME           ; Point to filename space
FCAC-86 30          1205 ( 2) LOAD4:  LDA     #'0'            ; Get name file
FCAE-8D 4E          1206 ( 7)         BSR     GETHDR          ; header.
FCB0-26 FA          1207 ( 3)         BNE     LOAD4           ; Ignore others
FCB2-C6 06          1208 ( 2)         LDB     #$06            ; Name length
FCB4-D7 AC          1209 ( 4)         STB     <TEMP           ; Save it
FCB6-8D 66          1210 ( 7) LOAD3:  BSR     CBIN1           ; Get input character
FCB8-E6 80          1211 ( 7)         LDB     ,X+             ; and name character
FCBA-C1 3F          1212 ( 2)         CMPB    #'?'            ; If wildcard
FCBC-27 04          1213 ( 3)         BEQ     LOAD1           ; then matches
FCBE-A1 1F          1214 ( 6)         CMPA    -1,X            ; else compare
FCC0-26 E7          1215 ( 3)         BNE     LOAD2           ; Wrong name
FCC2-0A AC          1216 ( 6) LOAD1:  DEC     <TEMP           ; Count name length
FCC4-26 F0          1217 ( 3)         BNE     LOAD3           ; Repeat for all 6
FCC6-8D 56          1218 ( 7)         BSR     CBIN1           ; Ignore checksum byte
FCC8-               1219      ;
FCC8-               1220      ; Enter here for match without file name check
FCC8-               1221      ;
FCC8-86 31          1222 ( 2) LOAD7:  LDA     #'1'            ; Get data
FCCA-8D 32          1223 ( 7)         BSR     GETHDR          ; header
FCCC-26 24          1224 ( 3)         BNE     LOAD5           ; Wrong header
FCCE-8D 43          1225 ( 7)         BSR     CBIN2           ; Get start address
FCD0-1F 01          1226 ( 7)         TFR     D,X             ; and save while
FCD2-8D 3F          1227 ( 7)         BSR     CBIN2           ; getting end address
FCD4-34 06          1228 ( 7)                 PSHS    D       ; Put end on stack
FCD6-8D 46          1229 ( 7) LOAD6:  BSR     CBIN1           ; Get data item
FCD8-A7 80          1230 ( 7)         STA     ,X+             ; and store it
FCDA-AC E4          1231 ( 7)         CMPX    ,S              ; if not done
FCDC-23 F8          1232 ( 3)         BLS     LOAD6           ; then repeat
FCDE-8D 3E          1233 ( 7)         BSR     CBIN1           ; Get checksum byte
FCE0-35 10          1234 ( 7)         PULS    X               ; Get old end address
FCE2-17 FD 90       1235 ( 9)         LBSR    OPXREG          ; Show address so far
FCE5-1F 30          1236 ( 7)         TFR     U,D             ; check summed in U
FCE7-53             1237 ( 2)         COMB                    ; lower byte only
FCE8-27 DE          1238 ( 3)         BEQ     LOAD7           ; If ok, then repeat
FCEA-8E FF CD       1239 ( 3) LFCEA:  LDX     #LQRY           ; else message
FCED-17 FB FC       1240 ( 9)         LBSR    STRING          ; output
FCF0-20 04          1241 ( 3)         BRA     LKEYON
FCF2-81 39          1242 ( 2) LOAD5:  CMPA    #'9'            ; if not '9' then ignore
FCF4-26 D2          1243 ( 3)         BNE     LOAD7
FCF6-86 90          1244 ( 2) LKEYON: LDA     #CB1FLG+$80     ; Turn on keyboard
FCF8-B7 E9 8E       1245 ( 5)         STA     KIER
FCFB-16 FB EB       1246 (55)         LBRA    OPCRLF          ; then exit.
FCFE-               1247      ;
FCFE-               1248      ; Get a header from the tape, if the expected one then set zero status,
FCFE-               1249      ; else return non-zero status.  Initialises the checksum in U to 0
FCFE-               1250      ;
FCFE-34 02          1251 ( 6) GETHDR: PSHS    A               ; Save character
FD00-86 10          1252 ( 2)         LDA     #CB1FLG         ; Turn off keyboard
FD02-B7 E9 8E       1253 ( 5)         STA     KIER
FD05-8D 17          1254 ( 7) GETHD1: BSR     CBIN1           ; Get from tape
FD07-81 D8          1255 ( 2)         CMPA    #'X'+$80        ; and if not 'X' header marker
FD09-26 FA          1256 ( 3)         BNE     GETHD1          ; then try again
FD0B-8D 11          1257 ( 7)         BSR     CBIN1           ; Get next character
FD0D-CE 00 00       1258 ( 3)         LDU     #$0             ; Set up checksum
FD10-A1 E0          1259 ( 7)         CMPA    ,S+             ; and compare with required
FD12-39             1260 ( 5)         RTS                     ; then return
FD13-               1261      ;
FD13-               1262      ; Get 2 bytes and form a 16-bit value in D.  Add offset since is address
FD13-               1263      ;
FD13-8D 09          1264 ( 7) CBIN2:  BSR     CBIN1           ; Get 1 byte
FD15-1F 89          1265 ( 7)         TFR     A,B             ; and save while
FD17-8D 05          1266 ( 7)         BSR     CBIN1           ; get second
FD19-1E 89          1267 ( 7)         EXG     A,B             ; Wrong order, swap over
FD1B-D3 85          1268 ( 6)         ADDD    <OFFSET         ; Move by offset
FD1D-39             1269 ( 5)         RTS
FD1E-               1270      ;
FD1E-               1271      ; Get 1 byte from tape, modifying checksum to suit
FD1E-               1272      ;
FD1E-AD 9F E3 6B    1273 (13) CBIN1:  JSR     [CASINA]        ; Get byte then
FD22-33 C6          1274 ( 1)         LEAU    A,U             ; add to checksum
FD24-39             1275 ( 5)         RTS
FD25-               1276      ;
FD25-               1277      ; Software asynchronous transmitter, outputs value in A as a start bit, 8 data bits,
FD25-               1278      ; 2 stop bits, at rate controlled by count in DELCNT
FD25-               1279      ;
FD25-34 17          1280 (10) MCASOP: PSHS    CC,D,X          ; Saves all registers
FD27-1A 50          1281 ( 3)         ORCC    #$50            ; SEIF, Keep timing
FD29-C6 0B          1282 ( 2)         LDB     #11             ; Total length
FD2B-34 04          1283 ( 6)         PSHS    B               ; Save on stack
FD2D-C6 CF          1284 ( 2)         LDB     #IKPCR-COPBIT   ; Low start bit
FD2F-43             1285 ( 2)         COMA                    ; Want data inverted
FD30-12             1286 ( 2) MCAS01: NOP                     ; Get timing
FD31-20 00          1287 ( 3) LFD31:  BRA     MCAS02          ; constant
FD33-6A E4          1288 ( 7) MCAS02: DEC     ,S              ; Bits counter
FD35-2B 0E          1289 ( 3)         BMI     MCAS03          ; All done
FD37-F7 E9 8C       1290 ( 5)         STB     KPCR            ; Put out, but
FD3A-8D 0D          1291 ( 7)         BSR     CWAIT           ; wait 1 bit time
FD3C-C4 DF          1292 ( 2)         ANDB    #255-COPBIT     ; Assume next is zero
FD3E-44             1293 ( 2)         LSRA                    ; Get next bit
FD3F-25 EF          1294 ( 3)         BCS     MCAS01          ; Do want zero
FD41-CA 20          1295 ( 2)         ORB     #COPBIT         ; else set bit
FD43-20 EE          1296 ( 3)         BRA     MCAS02          ; and loop round
FD45-32 61          1297 ( 1) MCAS03: LEAS    1,S             ; Remove counter
FD47-35 97          1298 (12)         PULS    CC,D,X,PC       ; and return
FD49-               1299      ;
FD49-               1300      ; CWAIT waits for 1 bit time, destroys X
FD49-               1301      ; HWAIT waits 1/2 bit time, also destroys X
FD49-               1302      ;
FD49-               1303              .DP     0
FD49-8D 00          1304 ( 7) CWAIT:  BSR     HWAIT           ; Do first half
FD4B-BE E3 63       1305 ( 6) HWAIT:  LDX     DELCNT          ; Get count required
FD4E-30 1F          1306 ( 1) HW1:    LEAX    -1,X            ; Decrement
FD50-26 FC          1307 ( 3)         BNE     HW1             ; while non-zero
FD52-39             1308 ( 5)         RTS
FD53-               1309      ;
FD53-               1310      ; Software asynchronous receiver, gets value into A
FD53-               1311      ; Saves all other registers, only gets 1 stop bit
FD53-               1312      ;
FD53-               1313              .DP     MONDP
FD53-               1314      ;
FD53-               1315              .DO     VER=490
FD53-34 14          1316 ( 8) MCASIN: PSHS    B,X
FD55-86 80          1317 ( 2)         LDA     #$80            ; Rotating counter
FD57-F6 E9 80       1318 ( 5) MCAS11: LDB     KIRB            ; Wait for start bit
FD5A-2B FB          1319 ( 3) LFD5A:  BMI     MCAS11
FD5C-8D ED          1320 ( 7)         BSR     HWAIT           ; Wait 1/2 bit time
FD5E-F6 E9 80       1321 ( 5)         LDB     KIRB            ; Recheck
FD61-               1322              .FI
FD61-               1323      ;
FD61-             S 1324              .DO     VER=495
FD61-             S 1325      MCASIN: STX     <$A3            ; ??
FD61-             S 1326              ANDCC   #$EF
FD61-             S 1327      MCAS11: LDD     #MON
FD61-             S 1328              PSHS    A,B
FD61-             S 1329              JMP     BOOT
FD61-             S 1330              ADCB    ,X+
FD61-               1331              .FI
FD61-               1332      ;
FD61-2B F4          1333 ( 3)         BMI     MCAS11          ; start bit
FD63-8D E4          1334 ( 7) MCAS12: BSR     CWAIT           ; Wait whole bit time
FD65-F6 E9 80       1335 ( 5)         LDB     KIRB            ; and get input
FD68-AC E4          1336 ( 7)         CMPX    ,S              ; waste time to
FD6A-11 AC E4       1337 ( 8)         CMPS    ,S              ; match loop delays
FD6D-58             1338 ( 2)         LSLB                    ; Move bit to carry
FD6E-46             1339 ( 2)         RORA                    ; then into byte
FD6F-24 F2          1340 ( 3)         BCC     MCAS12          ; Repeat for 8 bits
FD71-8D D6          1341 ( 7)         BSR     CWAIT           ; Get into stop bit
FD73-35 94          1342 (10)         PULS    B,X,PC          ; and done
FD75-               1343      ;
FD75-               1344      ; Routine gets name from input stream, up to 6 characters long
FD75-               1345      ; No name leaves memory unaltered.  Any name is padded to 6 characters with spaces
FD75-               1346      ;
FD75-8E E3 9D       1347 ( 3) NAMEIN: LDX     #NAME+6
FD78-17 FB 04       1348 ( 9) NAM2:   LBSR    CONCHR          ; Get a character
FD7B-27 23          1349 ( 3)         BEQ     NAM1            ; no name
FD7D-81 20          1350 ( 2)         CMPA    #SPACE          ; if space
FD7F-27 F7          1351 ( 3)         BEQ     NAM2            ; ignore
FD81-81 2C          1352 ( 2)         CMPA    #COMMA
FD83-27 1B          1353 ( 3)         BEQ     NAM1            ; Null name
FD85-C6 FA          1354 ( 2)         LDB     #256-6          ; Minus name length
FD87-A7 85          1355 ( 6) NAM3:   STA     B,X             ; Store a letter
FD89-5C             1356 ( 2)         INCB                    ; and move up
FD8A-27 15          1357 ( 3)         BEQ     NAM6            ; Done 6 chars, exit
FD8C-17 FA F0       1358 ( 9)         LBSR    CONCHR          ; Get next letter
FD8F-27 08          1359 ( 3)         BEQ     NAM5            ; On CR, pad name
FD91-81 20          1360 ( 2)         CMPA    #SPACE          ; On space,
FD93-27 06          1361 ( 3)         BEQ     NAM4            ; pad name
FD95-81 2C          1362 ( 2)         CMPA    #COMMA          ; If not comma
FD97-26 EE          1363 ( 3)         BNE     NAM3            ; then use
FD99-86 20          1364 ( 2) NAM5:   LDA     #SPACE          ; padding
FD9B-A7 85          1365 ( 6) NAM4:   STA     B,X             ; Pad until
FD9D-5C             1366 ( 2)         INCB                    ; end of
FD9E-26 FB          1367 ( 3)         BNE     NAM4            ; name buffer
FDA0-39             1368 ( 5) NAM1:   RTS
FDA1-17 FA DB       1369 ( 9) NAM6:   LBSR    CONCHR          ; Get next input
FDA4-27 FA          1370 ( 3)         BEQ     NAM1            ; leave if CR
FDA6-81 2C          1371 ( 2)         CMPA    #COMMA          ; else
FDA8-27 F6          1372 ( 3) LFDA8:  BEQ     NAM1            ; absorb comma
FDAA-97 A2          1373 ( 4)         STA     <LASTC          ; else re-use
FDAC-39             1374 ( 5)         RTS
FDAD-               1375      ;
FDAD-               1376      ; Save files on cassette, dumps name block, data blocks as required in 256 byte blocks maximum,
FDAD-               1377      ; then end file block, can also inhibit end of file block
FDAD-               1378      ;
FDAD-9E 9D          1379 ( 5) SAVE:   LDX     <CSSTRT         ; Modify start address
FDAF-17 FE 31       1380 ( 9)         LBSR    NUMBX           ; if
FDB2-9F 9D          1381 ( 5)         STX     <CSSTRT         ; required
FDB4-9E 9F          1382 ( 5)         LDX     <CSEND          ; Modify end address
FDB6-17 FE 2A       1383 ( 9)         LBSR    NUMBX           ; if
FDB9-9F 9F          1384 ( 5)         STX     <CSEND          ; required
FDBB-8D B8          1385 ( 7)         BSR     NAMEIN          ; and get name
FDBD-C6 30          1386 ( 2)         LDB     #'0'            ; Output name,
FDBF-8D 3C          1387 ( 7)         BSR     XHEAD           ; header
FDC1-C6 06          1388 ( 2)         LDB     #6              ; name length
FDC3-30 1A          1389 ( 1)         LEAX    -6,X            ; Point to name,
FDC5-8D 46          1390 ( 7)         BSR     DATOUT          ; output name,
FDC7-8D 4E          1391 ( 7)         BSR     CHKOUT          ; then checksum.
FDC9-9E 9D          1392 ( 5)         LDX     <CSSTRT         ; Get start address
FDCB-34 10          1393 ( 7) SAV6:   PSHS    X               ; Save start
FDCD-DC 9F          1394 ( 5)         LDD     <CSEND          ; and get end address
FDCF-A3 E1          1395 (10)         SUBD    ,S++            ; Form length needed
FDD1-25 1D          1396 ( 3)         BLO     SAV2            ; Done all output
FDD3-4D             1397 ( 2)         TSTA                    ; If <=256 then
FDD4-27 03          1398 ( 3)         BEQ     SAV5            ; leave alone
FDD6-CC 00 FF       1399 ( 3)         LDD     #255            ; also set to 256
FDD9-33 8B          1400 ( 4) SAV5:   LEAU    D,X             ; Form end of block
FDDB-34 56          1401 (11)         PSHS    D,X,U           ; Put start/end on stack
FDDD-C6 31          1402 ( 2)         LDB     #'1'            ; Put a data
FDDF-8D 1C          1403 ( 7)         BSR     XHEAD           ; header.
FDE1-30 62          1404 ( 1)         LEAX    2,S             ; Point to start/end
FDE3-C6 04          1405 ( 2)         LDB     #4              ; Two words
FDE5-8D 26          1406 ( 7)         BSR     DATOUT          ; and put start/end out
FDE7-35 56          1407 (11)         PULS    D,X,U           ; Get all back
FDE9-5C             1408 ( 2)         INCB                    ; Modify length
FDEA-8D 21          1409 ( 7)         BSR     DATOUT          ; and send data bytes
FDEC-8D 29          1410 ( 7)         BSR     CHKOUT          ; then checksum
FDEE-20 DB          1411 ( 3)         BRA     SAV6            ; and repeat
FDF0-17 FA 8C       1412 ( 9) SAV2:   LBSR    CONCHR          ; Get input
FDF3-27 06          1413 ( 3)         BEQ     SAV3            ; On CR send of block
FDF5-81 2D          1414 ( 2)         CMPA    #'-'            ; If EOF inhibit
FDF7-27 1D          1415 ( 3)         BEQ     RTS1            ; then skip x9
FDF9-97 A2          1416 ( 4)         STA     <LASTC          ; Re-use input
FDFB-C6 39          1417 ( 2) SAV3    LDB     #'9'            ; Send EOF
FDFD-               1418      ;
FDFD-               1419      ; Routine to send header to block, header type in B.  Also initialises checksum in Y
FDFD-               1420      ;
FDFD-10 8E 00 00    1421 ( 4) XHEAD:  LDY     #0
FE01-31 3F          1422 ( 1) XH1:    LEAY    -1,Y            ; Loop
FE03-26 FC          1423 ( 3)         BNE     XH1             ; delay
FE05-86 D8          1424 ( 2)         LDA     #'X'+$80        ; Send an 'X' header marker
FE07-8D 13          1425 ( 7)         BSR     CASOPI          ; to cassette
FE09-1F 98          1426 ( 7)         TFR     B,A             ; Get type
FE0B-20 0F          1427 ( 3)         BRA     CASOPI          ; and send
FE0D-               1428      ;
FE0D-               1429      ; Data output routine, sends B databytes starting from X
FE0D-               1430      ; (B zero means 256 bytes), X moves up by B bytes
FE0D-               1431      ;
FE0D-A6 80          1432 ( 7) DATOUT: LDA     ,X+             ; Get data
FE0F-31 A6          1433 ( 1)         LEAY    A,Y             ; Modify checksum
FE11-8D 09          1434 ( 7)         BSR     CASOPI          ; Send data
FE13-5A             1435 ( 2)         DECB                    ; Repeat until
FE14-26 F7          1436 ( 3)         BNE     DATOUT          ; zero count
FE16-39             1437 ( 5) RTS1:   RTS
FE17-               1438      ;
FE17-               1439      ; Send checksum to tape from Y, lower byte only
FE17-               1440      ;
FE17-1F 20          1441 ( 7) CHKOUT: TFR      Y,D            ; Checksum to D
FE19-1F 98          1442 ( 7)         TFR      B,A            ; then get low byte
FE1B-43             1443 ( 2)         COMA                    ; Want result $FF
FE1C-6E 9F E3 69    1444 ( 9) CASOPI: JMP     [CASOPA]        ; Send check byte
FE20-               1445      ;
FE20-               1446      ; Drive parameter specification
FE20-               1447      ;
FE20-               1448      DISCIT:                                         ; Set up drive
FE20-35 04 0D 14 
     05 AA          1449              .DB     $35,4,$0D,$14,$05,$AA           ; For Shugart drive
FE26-35 04 10 FF 
     FF FF          1450              .DB     $35,4,DRIVE/$80*8+$10,$FF,$FF,$FF       ; Drive bad tracks
FE2C-7A 02 17 C1    1451              .DB     $3A+DRIVE,2,$17,$C1             ; Mode register setup
FE30-7A 02 23 68    1452              .DB     $3A+DRIVE,2,$23,$28+DRIVE       ; Load head onto disc, starts motor
FE34-6C 00          1453              .DB     $2C+DRIVE,0                     ; Query drive ready
FE36-69 01 00       1454              .DB     $29+DRIVE,1,0                   ; Seek to track 0
FE39-6C 00          1455              .DB     $2C+DRIVE,0                     ; Query drive ready
FE3B-               1456      ;
FE3B-               1457              .DO     VER=490
FE3B-53 03 00 02 
     21             1458              .DB     $13+DRIVE,3,$00,$02,$21         ; Read sector 2
FE40-               1459              .FI
FE40-               1460      ;
FE40-             S 1461              .DO     VER=495
FE40-             S 1462              .DB     $13+DRIVE,3,$00,$01,$21         ; Read sector 2
FE40-               1463              .FI
FE40-               1464      ;
FE40-53 02 00 03    1465              .DB     $13+DRIVE,2,$00,$03             ; Read starting at sector 3
FE44-               1466      ;
FE44-               1467      ; This routine bootstraps from a mini-floppy disc
FE44-               1468      ; Reads sector 2 to find where to put program
FE44-               1469      ;
FE44-8E FF 04       1470 ( 3) BOOT:   LDX     #ANRTI          ; Set dummy
FE47-9F 83          1471 ( 5)         STX     <INMI           ; interrupt routine
FE49-86 EA          1472 ( 2)         LDA     #FLOPY/256      ; Set direct page
FE4B-1F 8B          1473 ( 7)         TFR     A,DP            ; to floppy controller
FE4D-               1474              .DP     FLOPY/256       ; and tell assembler
FE4D-8E FE 20       1475 ( 3)         LDX     #DISCIT         ; Point to tables
FE50-8D 4D          1476 ( 7)         BSR     CMDPAR          ; Set drive parameters
FE52-8D 4B          1477 ( 7)         BSR     CMDPAR          ; Set bad tracks
FE54-8D 49          1478 ( 7)         BSR     CMDPAR          ; Set mode register
FE56-8D 47          1479 ( 7)         BSR     CMDPAR          ; Load head, drive on
FE58-8D 5C          1480 ( 7)         BSR     DRVRDY          ; Check drive ready
FE5A-8D 43          1481 ( 7)         BSR     CMDPAR          ; Seek track 0
FE5C-8D 58          1482 ( 7)         BSR     DRVRDY          ; Check drive ready
FE5E-8D 3F          1483 ( 7)         BSR     CMDPAR          ; Read sector 2
FE60-               1484      ;
FE60-               1485              .DO     VER=490
FE60-CE 00 00       1486 ( 3)         LDU     #$0000          ; Put at $0000
FE63-               1487              .FI
FE63-               1488      ;
FE63-             S 1489              .DO     VER=495
FE63-             S 1490              LDU     #$C000          ; Put at $C000
FE63-               1491              .FI
FE63-               1492      ;
FE63-1F 32          1493 ( 7)         TFR     U,Y             ; and point to it
FE65-8D 62          1494 ( 7)         BSR     TRNSFR          ; Move disc data to memory
FE67-               1495      ;
FE67-               1496              .DO     VER=490
FE67-26 2A          1497 ( 3)         BNE     DERR            ; Non-zero means error
FE69-CC FF 42       1498 ( 3)         LDD     #$FF42          ; Check first two bytes
FE6C-10 A3 A1       1499 (11)         CMPD    ,Y++            ; are $FF42
FE6F-26 22          1500 ( 3)         BNE     DERR            ; If not $FF42, no boot present
FE71-8D 2C          1501 ( 7)         BSR     CMDPAR          ; Start read at sector 3
FE73-EE A1          1502 ( 9)         LDU     ,Y++            ; Get address to put at
FE75-A6 A0          1503 ( 7)         LDA     ,Y+             ; and number of sectors
FE77-10 AE A4       1504 ( 7)         LDY     ,Y              ; Start of program
FE7A-8B 20          1505 ( 2)         ADDA    #$20            ; Add sector length value
FE7C-D6 00          1506 ( 4) BOOT1:  LDB     <FDCS           ; Get FDC status and
FE7E-C5 20          1507 ( 2)         BITB    #$20            ; if parameter register full
FE80-26 FA          1508 ( 3)         BNE     BOOT1           ; then wait
FE82-97 01          1509 ( 4)         STA     <FDCP           ; Send number of sectors
FE84-8D 43          1510 ( 7)         BSR     TRNSFR          ; Move data to memory
FE86-26 0B          1511 ( 3)         BNE     DERR            ; Error if non-zero
FE88-17 FC E1       1512 ( 9)         LBSR    NUMB            ; Try get number
FE8B-28 3B          1513 ( 3)         BVC     RTS2            ; Got one, stay in monitor
FE8D-10 FE E3 5B    1514 ( 7)         LDS     STACK           ; Reset stack and goto program
FE91-6E A4          1515 ( 4)         JMP     ,Y
FE93-8E FF CE       1516 ( 3) DERR:   LDX     #DQRY           ; Query user on display with error number
FE96-17 FA 53       1517 ( 9)         LBSR    STRING
FE99-17 FB E5       1518 ( 9)         LBSR    OPAREG
FE9C-16 FA 4A       1519 (55)         LBRA    OPCRLF          ; Newline and exit
FE9F-               1520              .FI
FE9F-               1521      ;
FE9F-             S 1522              .DO     VER=495
FE9F-             S 1523              BNE     DERR            ; Non-zero means error
FE9F-             S 1524              LDS     STACK           ; Reset stack and goto program
FE9F-             S 1525              JMP     $C000
FE9F-             S 1526      DERR:   LDX     #DQRY           ; Query user on display with error number
FE9F-             S 1527              LBSR    STRING
FE9F-             S 1528              LBSR    OPAREG
FE9F-             S 1529              LBRA    OPCRLF
FE9F-             S 1530              LDY     #CRTCSV
FE9F-             S 1531              LDX     #$E300
FE9F-             S 1532              LDB     #$0B
FE9F-             S 1533      LFE85:  LDA     ,Y+
FE9F-             S 1534              STA     ,X+
FE9F-             S 1535              DECB
FE9F-             S 1536              BPL     LFE85
FE9F-             S 1537              LDA     <$01
FE9F-             S 1538              DECA
FE9F-             S 1539              STA     ,X+
FE9F-             S 1540              CLRA
FE9F-             S 1541              LDB     <$01
FE9F-             S 1542              LSRB
FE9F-             S 1543              STD     ,X++
FE9F-             S 1544              RTS
FE9F-             S 1545              .DB     $FF,$FF,$FF,$FF,$FF,$FF,$FF     ; Packing
FE9F-               1546              .FI
FE9F-               1547      ;
FE9F-               1548      ; This routine sends one command followed by a variable number of parameters, possibly none
FE9F-               1549      ; X points to command, next byte is number of parameters
FE9F-               1550      ; X left pointing after last parameter, destroys D
FE9F-               1551      ;
FE9F-EC 81          1552 ( 9) CMDPAR: LDD     ,X++            ; Get command and number
FEA1-0D 00          1553 ( 6) CP1:    TST     <FDCS           ; Test status and
FEA3-2B FC          1554 ( 3)         BMI     CP1             ; wait if busy
FEA5-97 00          1555 ( 4)         STA     <FDCC           ; Send command
FEA7-5A             1556 ( 2) CP2:    DECB                    ; If no more parameters
FEA8-2B 1E          1557 ( 3)         BMI     RTS2            ; then exit
FEAA-96 00          1558 ( 4) CP4:    LDA     <FDCS           ; If parameter
FEAC-85 20          1559 ( 2)         BITA    #$20            ; register full
FEAE-26 FA          1560 ( 3)         BNE     CP4             ; then wait
FEB0-A6 80          1561 ( 7)         LDA     ,X+             ; Get parameter and
FEB2-97 01          1562 ( 4)         STA     <FDCP           ; send it
FEB4-20 F1          1563 ( 3)         BRA     CP2             ; then repeat
FEB6-               1564      ;
FEB6-               1565      ; Test if drive ready, on entry X points to read drive status command sequence,
FEB6-               1566      ; on exit drive is ready and X points to next command sequence
FEB6-               1567      ;
FEB6-1F 13          1568 ( 7) DRVRDY: TFR     X,U             ; Save pointer
FEB8-1F 31          1569 ( 7) DR2:    TFR     U,X             ; Restore pointer
FEBA-8D E3          1570 ( 7)         BSR     CMDPAR          ; Ask for drive status
FEBC-96 00          1571 ( 4) DR1:    LDA     <FDCS           ; Wait until
FEBE-85 10          1572 ( 2)         BITA    #$10            ; result
FEC0-27 FA          1573 ( 3)         BEQ     DR1             ; ready
FEC2-96 01          1574 ( 4)         LDA     <FDCR           ; Get result
FEC4-85 04          1575 ( 2)         BITA    #$04            ; Ready bit mask
FEC6-27 F0          1576 ( 3)         BEQ     DR2             ; Not ready, wait
FEC8-39             1577 ( 5) RTS2:   RTS
FEC9-               1578      ;
FEC9-34 01          1579 ( 6) TRNSFR: PSHS    CC              ; Save CC while
FECB-1A 50          1580 ( 3)         ORCC    #$50            ; SEIF, set masks, disc is on NMI
FECD-C6 04          1581 ( 2)         LDB     #$04            ; Data available mask
FECF-20 04          1582 ( 3)         BRA     TRN2
FED1-96 04          1583 ( 4) TRN1:   LDA     <FDCD           ; Get data
FED3-A7 C0          1584 ( 7)         STA     ,U+             ; and store it
FED5-3C FF          1585 (20) TRN2:   CWAI    #$FF            ; Wait for interrupt
FED7-D5 00          1586 ( 4)         BITB    <FDCS           ; Check data
FED9-26 F6          1587 ( 3)         BNE     TRN1            ; available
FEDB-35 01          1588 ( 6)         PULS    CC              ; Get interrupt masks back
FEDD-96 01          1589 ( 4)         LDA     <FDCR           ; then get result
FEDF-39             1590 ( 5)         RTS                     ; and return z bit accordingly
FEE0-               1591      ;
FEE0-               1592      ; Interrupt request handler, comes here on IRQ active
FEE0-               1593      ; Checks for timer 1 or keyboard interrupt, if neither then complains to user
FEE0-               1594      ;
FEE0-86 E3          1595 ( 2) IRQHAN: LDA     #MONDP          ; Set up
FEE2-1F 8B          1596 ( 7)         TFR     A,DP            ; direct page
FEE4-               1597              .DP     MONDP           ; tell assembler
FEE4-8E E9 80       1598 ( 3)         LDX     #KVIA           ; Point to VIA address
FEE7-A6 0D          1599 ( 6)         LDA     KIFR-KVIA,X     ; Get flag register
FEE9-2A 1A          1600 ( 3)         BPL     UNUSED          ; Not the VIA!
FEEB-84 40          1601 ( 2)         ANDA    #T1IFLG         ; Try timer 1
FEED-27 06          1602 ( 3)         BEQ     LFEF5           ; Not timer 1
FEEF-A7 0D          1603 ( 6)         STA     KIFR-KVIA,X     ; Clear the interrupt
FEF1-6E 9F E3 73    1604 ( 9)         JMP     [IRQRTS]
FEF5-A6 0D          1605 ( 6) LFEF5:  LDA     KIFR-KVIA,X     ; Get flags again
FEF7-84 10          1606 ( 2)         ANDA    #CB1FLG         ; Try for keyboard
FEF9-27 0A          1607 ( 3)         BEQ     UNUSED          ; Query user if not
FEFB-A7 0D          1608 ( 6)         STA     KIFR-KVIA,X     ; Clear the interrupt
FEFD-               1609      ;
FEFD-               1610              .DO     VER=490
FEFD-A6 00          1611              .DB     $A6,$00         ; 'LDA  KIRB-KVIA,X'    ; and get a character
FEFF-               1612              .FI
FEFF-               1613      ;
FEFF-             S 1614              .DO     VER=495
FEFF-             S 1615              .DB     $A6,$84         ; 'LDA ,X'
FEFF-               1616              .FI
FEFF-               1617      ;
FEFF-84 7F          1618 ( 2)         ANDA    #$7F            ; stripping spare bit
FF01-17 FA FF       1619 ( 9)         LBSR    HAVCHR          ; Put into buffer
FF04-3B             1620 (15) ANRTI:  RTI                     ; then leave IRQ level
FF05-               1621      ;
FF05-               1622      ; Come here if unused interrupts are active, so complain to user and stop processor
FF05-               1623      ; since cannot clear an unknown interrupt
FF05-               1624      ;
FF05-8E FF CC       1625 ( 3) UNUSED: LDX     #IERR           ; Query user on display
FF08-17 F9 E1       1626 ( 9)         LBSR    STRING
FF0B-20 FE          1627 ( 3) FOREVR: BRA     FOREVR          ; and stop dead !
FF0D-               1628      ;
FF0D-               1629                                      ; *** VDU Configurations ***
FF0D-               1630      ;
FF0D-               1631      ;       R0      Horizontal Total Register               horizontal frequency, the total number of characters displayed and non-displayed per line
FF0D-               1632      ;       R1      Horizontal Displayed Register           number of displayed characters per line
FF0D-               1633      ;       R2      Horizontal Sync Position Register       position (start) of the horizontal sync
FF0D-               1634      ;       R3      (Horizontal) Sync Width Register        bits 0-3: width (character clocks) of the horizontal sync pulse
FF0D-               1635      ;                                                       bits 4-7: vertical sync pulse width in scan line times
FF0D-               1636      ;       R4      Vertical Total Register                 determines the vertical frequency (in character line times-1)
FF0D-               1637      ;       R5      Vertical Total Adjust Register          adjustment to vertical frequency (in scan line times)
FF0D-               1638      ;       R6      Vertical Displayed Register             number of displayed character rows
FF0D-               1639      ;       R7      Vertical Sync Position Register         position of the vertical sync pulse (character row times)
FF0D-               1640      ;       R8      Interlace Mode Register                 bits 0,1 control the raster scan mode
FF0D-               1641      ;       R9      Maximum Scan Line Address Register      number of scan lines per character row - 1 (including spacing)
FF0D-               1642      ;       R10     Cursor Start Register                   bits 0-4 cursor start scan line
FF0D-               1643      ;                                                       bit 5 sets the blink frequency
FF0D-               1644      ;                                                       bit 6 blink enable
FF0D-               1645      ;       R11     Cursor End Register                     cursor end scan line
FF0D-               1646      ;
FF0D-               1647                                      ; 40-Column Configurations
FF0D-               1648      ;
FF0D-             S 1649              .DO     VDU=40          ; Original Acorn Monitor Configurations from Manual
FF0D-             S 1650      ;
FF0D-             S 1651                                      ; For S Version 6845 CRT Controller (Interlaced)
FF0D-             S 1652      CRTCSV: .DB     $3F             ; 64 characters per line (15,625kHz)
FF0D-             S 1653              .DB     COLS            ; 40 displayed characters per line
FF0D-             S 1654              .DB     $34             ; (52) start of horizontal sync - 52uS
FF0D-             S 1655              .DB     $44             ; bits 0-3: (4) width of horizontal sync pulse - 4uS
FF0D-             S 1656                                      ; bits 4-7: (4) vertical sync pulse width - 256uS
FF0D-             S 1657              .DB     $1E             ; (30) vertical frequency - 15.625kHz (31x10x64uS)
FF0D-             S 1658              .DB     $02             ; (2) adjustment to vertical frequency (2x64uS) giving a total of 19.968mS i.e. 50Hz (actually 50.08Hz)
FF0D-             S 1659              .DB     ROWS            ; 25 displayed character rows
FF0D-             S 1660              .DB     $1B             ; (27) position of vertical sync pulse - 17.28mS
FF0D-             S 1661              .DB     $03             ; (3) Interlaced Sync and Video Mode
FF0D-             S 1662              .DB     $12             ; (18) 20 scan lines/character (10 interlaced)
FF0D-             S 1663              .DB     $70             ; bits 0-4: (16) cursor start scan line - 16
FF0D-             S 1664                                      ; bit 5: (1) blink frequency - 1/32 of vertical field rate
FF0D-             S 1665                                      ; bit 6: (1) blink enabled
FF0D-             S 1666              .DB     $13             ; bit 6: (19) underlined cursor
FF0D-             S 1667      ;
FF0D-             S 1668                                      ; For R Version 6845 CRT Controller (Non-Interlaced)
FF0D-             S 1669      CRTCRV: .DB     $3F             ; 64 characters per line (15,625kHz)
FF0D-             S 1670              .DB     COLS            ; 40 displayed characters per line
FF0D-             S 1671              .DB     $34             ; (52) start of horizontal sync - 52uS
FF0D-             S 1672              .DB     $04             ; bits 0-3: (0) width of horizontal sync pulse - 0uS
FF0D-             S 1673                                      ; bits 4-7: (4) vertical sync pulse width - 256uS
FF0D-             S 1674              .DB     $1E             ; (30) vertical frequency - 15.625kHz (31x10x64uS)
FF0D-             S 1675              .DB     $02             ; (2) adjustment to vertical frequency (2x64uS) giving a total of 19.968mS i.e. 50Hz (actually 50.08Hz)
FF0D-             S 1676              .DB     ROWS            ; 25 displayed character rows
FF0D-             S 1677              .DB     $1B             ; (27) position of vertical sync pulse - 17.28mS
FF0D-             S 1678              .DB     $00             ; (3) Normal Sync Mode (non-interlaced)
FF0D-             S 1679              .DB     $09             ; (9) 10 scan lines/character
FF0D-             S 1680              .DB     $68             ; bits 0-4: (8) cursor start scan line - 8
FF0D-             S 1681                                      ; bit 5: (1) blink frequency - 1/32 of vertical field rate
FF0D-             S 1682                                      ; bit 6: (1) blink enabled
FF0D-             S 1683              .DB     $09             ; bit 6: (9) underlined cursor
FF0D-             S 1684      ;
FF0D-               1685              .FI
FF0D-               1686      ;
FF0D-             S 1687              .DO     VDU=41          ; Alternative Configurations which match System COS/DOS40B
FF0D-             S 1688      ;
FF0D-             S 1689                                      ; For S Version 6845 CRT Controller (Interlaced)
FF0D-             S 1690      CRTCSV: .DB     $3F             ; 64 characters per line (15,625kHz)
FF0D-             S 1691              .DB     COLS            ; 40 displayed characters per line
FF0D-             S 1692              .DB     $33             ; (51) start of horizontal sync - 51uS
FF0D-             S 1693              .DB     $44             ; bits 0-3: (4) width of horizontal sync pulse - 4uS
FF0D-             S 1694                                      ; bits 4-7: (4) vertical sync pulse width - 256uS
FF0D-             S 1695              .DB     $1E             ; (30) vertical frequency - 15.625kHz (31x10x64uS)
FF0D-             S 1696              .DB     $02             ; (2) adjustment to vertical frequency (2x64uS) giving a total of 19.968mS i.e. 50Hz (actually 50.08Hz)
FF0D-             S 1697              .DB     ROWS            ; 25 displayed character rows
FF0D-             S 1698              .DB     $1B             ; (27) position of vertical sync pulse - 17.28mS
FF0D-             S 1699              .DB     $03             ; (3) Interlaced Sync and Video Mode
FF0D-             S 1700              .DB     $12             ; (18) 20 scan lines/character (10 interlaced)
FF0D-             S 1701              .DB     $72             ; bits 0-4: (18) cursor start scan line - 18
FF0D-             S 1702                                      ; bit 5: (1) blink frequency - 1/32 of vertical field rate
FF0D-             S 1703                                      ; bit 6: (1) blink enabled
FF0D-             S 1704              .DB     $13             ; bit 6: (19) underlined cursor
FF0D-             S 1705      ;
FF0D-             S 1706                                      ; For R Version 6845 CRT Controller (Non-Interlaced)
FF0D-             S 1707      CRTCRV: .DB     $3F             ; 64 characters per line (15,625kHz)
FF0D-             S 1708              .DB     COLS            ; 40 displayed characters per line
FF0D-             S 1709              .DB     $33             ; (51) start of horizontal sync - 51uS
FF0D-             S 1710              .DB     $04             ; bits 0-3: (0) width of horizontal sync pulse - 0uS
FF0D-             S 1711                                      ; bits 4-7: (4) vertical sync pulse width - 256uS
FF0D-             S 1712              .DB     $1E             ; (30) vertical frequency - 15.625kHz (31x10x64uS)
FF0D-             S 1713              .DB     $02             ; (2) adjustment to vertical frequency (2x64uS) giving a total of 19.968mS i.e. 50Hz (actually 50.08Hz)
FF0D-             S 1714              .DB     ROWS            ; 25 displayed character rows
FF0D-             S 1715              .DB     $1B             ; (27) position of vertical sync pulse - 17.28mS
FF0D-             S 1716              .DB     $00             ; (3) Normal Sync Mode (non-interlaced)
FF0D-             S 1717              .DB     $09             ; (9) 10 scan lines/character
FF0D-             S 1718              .DB     $68             ; bits 0-4: (8) cursor start scan line - 8
FF0D-             S 1719                                      ; bit 5: (1) blink frequency - 1/32 of vertical field rate
FF0D-             S 1720                                      ; bit 6: (1) blink enabled
FF0D-             S 1721              .DB     $09             ; bit 6: (9) underlined cursor
FF0D-             S 1722      ;
FF0D-               1723              .FI
FF0D-               1724      ;
FF0D-               1725                                      ; 80-Column Configurations
FF0D-               1726
FF0D-               1727              .DO     VDU=80          ; These configurations match the '41' config  (taken from System COS/DOS80B)
FF0D-               1728      ;
FF0D-               1729                                      ; For S Version 6845 CRT Controller (Interlaced)
FF0D-7F             1730      CRTCSV: .DB     $7F     $3F             ; 64 characters per line (15,625kHz)
FF0E-50             1731              .DB     COLS            ; 40 displayed characters per line
FF0F-60             1732              .DB     $60     $33             ; (51) start of horizontal sync - 51uS
FF10-28             1733              .DB     $28     $44             ; bits 0-3: (4) width of horizontal sync pulse - 4uS
FF11-               1734                                      ; bits 4-7: (4) vertical sync pulse width - 256uS
FF11-1E             1735              .DB     $1E             ; (30) vertical frequency - 15.625kHz (31x10x64uS)
FF12-02             1736              .DB     $02             ; (2) adjustment to vertical frequency (2x64uS) giving a total of 19.968mS i.e. 50Hz (actually 50.08Hz)
FF13-19             1737              .DB     ROWS            ; 25 displayed character rows
FF14-1B             1738              .DB     $1B             ; (27) position of vertical sync pulse - 17.28mS
FF15-40             1739              .DB     $40     $03             ; (3) Interlaced Sync and Video Mode
FF16-09             1740              .DB     $09     $12             ; (18) 20 scan lines/character (10 interlaced)
FF17-68             1741              .DB     $68     $72             ; bits 0-4: (18) cursor start scan line - 18
FF18-               1742                                      ; bit 5: (1) blink frequency - 1/32 of vertical field rate
FF18-               1743                                      ; bit 6: (1) blink enabled
FF18-09             1744              .DB     $09     $13             ; bit 6: (19) underlined cursor
FF19-               1745      ;
FF19-               1746                                      ; For R Version 6845 CRT Controller (Non-Interlaced)
FF19-7F             1747      CRTCRV: .DB     $7F     $3F             ; 64 characters per line (15,625kHz)
FF1A-50             1748              .DB     COLS            ; 40 displayed characters per line
FF1B-60             1749              .DB     $60     $33             ; (51) start of horizontal sync - 51uS
FF1C-28             1750              .DB     $28     $04             ; bits 0-3: (0) width of horizontal sync pulse - 0uS
FF1D-               1751                                      ; bits 4-7: (4) vertical sync pulse width - 256uS
FF1D-1E             1752              .DB     $1E             ; (30) vertical frequency - 15.625kHz (31x10x64uS)
FF1E-02             1753              .DB     $02             ; (2) adjustment to vertical frequency (2x64uS) giving a total of 19.968mS i.e. 50Hz (actually 50.08Hz)
FF1F-19             1754              .DB     ROWS            ; 25 displayed character rows
FF20-1B             1755              .DB     $1B             ; (27) position of vertical sync pulse - 17.28mS
FF21-40             1756              .DB     $40     $00             ; (3) Normal Sync Mode (non-interlaced)
FF22-09             1757              .DB     $09             ; (9) 10 scan lines/character
FF23-68             1758              .DB     $68             ; bits 0-4: (8) cursor start scan line - 8
FF24-               1759                                      ; bit 5: (1) blink frequency - 1/32 of vertical field rate
FF24-               1760                                      ; bit 6: (1) blink enabled
FF24-09             1761              .DB     $09             ; bit 6: (9) underlined cursor
FF25-               1762      ;
FF25-               1763              .FI
FF25-               1764      ;
FF25-               1765      ; Set up table 1, copied directly to RAM at RTAB1
FF25-               1766      ;
FF25-E3 5B          1767      PTAB1   .DW     ISTACK          ; Initial stack pointer
FF27-00 00          1768              .DW     0               ; Trace initially off
FF29-7F             1769              .DB     BSPACE          ; Character echoes on rubout
FF2A-FF             1770              .DB     $FF             ; Echo on, line buffer on
FF2B-00             1771              .DB     0               ; Printer off
FF2C-0A             1772              .DB     LF              ; Do not send line feeds, use CR only to printer
FF2D-00 CD          1773              .DW     BAUD            ; Initial baud rate for cassette
FF2F-F9 5B          1774              .DW     DISPLA          ; Console output
FF31-FA 5E          1775              .DW     GETCHR          ; Console input
FF33-FD 25          1776              .DW     MCASOP          ; Cassette output
FF35-FD 53          1777              .DW     MCASIN          ; Cassette input
FF37-FA 9D          1778              .DW     PRINT           ; Printer routine
FF39-FF 7F          1779              .DW     FUNCTS          ; Display function table
FF3B-FF 51          1780              .DW     CMNDS           ; Monitor command table
FF3D-FF 05          1781              .DW     UNUSED          ; Initial timer 1 routine
FF3F-00 00          1782              .DW     $0000           ; No memory interpret
FF41-FF 05          1783              .DW     UNUSED          ; Reserved vector
FF43-FF 05          1784              .DW     UNUSED          ; SWI3
FF45-FF 05          1785              .DW     UNUSED          ; SWI2
FF47-FF 05          1786              .DW     UNUSED          ; FIRQ
FF49-FE E0          1787              .DW     IRQHAN          ; IRQ
FF4B-FB C3          1788              .DW     SWIHAN          ; SWI
FF4D-FF 05          1789              .DW     UNUSED          ; NMI
FF4F-00 00          1790              .DW     $0000           ; Initial load offset
FF51-               1791      PTAB2:  .EQ     $               ; End of table
FF51-               1792      ;
FF51-               1793      ; This table contains the standard set of commands provided by the monitor
FF51-               1794      ;
FF51-0E             1795      CMNDS:  .DB     CMNDE-CMNDS/3-1 ; Number of entries
FF52-47             1796              .AS     'G'
FF53-FC B0          1797              .DW     GOUSER-CMNDS    ; Go to program
FF55-4D             1798              .AS     'M'
FF56-FB B0          1799              .DW     MEM-CMNDS       ; Memory examine
FF58-52             1800              .AS     'R'
FF59-F9 67          1801              .DW     EXREG-CMNDS     ; Examine registers
FF5B-50             1802              .AS     'P'
FF5C-FC 68          1803              .DW     RESUME-CMNDS    ; Proceed after break
FF5E-54             1804              .AS     'T'
FF5F-FD 10          1805              .DW     TRACEN-CMNDS    ; Set trace number
FF61-53             1806              .AS     'S'
FF62-FE 5C          1807              .DW     SAVE-CMNDS      ; Save on cassette
FF64-4C             1808              .AS     'L'
FF65-FD 50          1809              .DW     LOAD-CMNDS      ; Load from cassette
FF67-56             1810              .AS     'V'
FF68-FC D2          1811              .DW     BRKSET-CMNDS    ; Set break address
FF6A-44             1812              .AS     'D'
FF6B-FE F3          1813              .DW     BOOT-CMNDS      ; Disc bootstrap
FF6D-43             1814              .AS     'C'
FF6E-FD 29          1815              .DW     PCNTL-CMNDS     ; Copy to printer
FF70-20             1816              .DB     SPACE
FF71-FB 0C          1817              .DW     ANRTS-CMNDS     ; Ignore spaces
FF73-2C             1818              .DB     COMMA
FF74-FB 0C          1819              .DW     ANRTS-CMNDS     ; Ignore commas
FF76-2E             1820              .AS     '.'
FF77-FD 16          1821              .DW     TRACE-CMNDS     ; Do trace operation
FF79-46             1822              .AS     'F'
FF7A-FD 77          1823              .DW     LOAD7-CMNDS     ; Finish file load
FF7C-01             1824              .DB     1
FF7D-FD 38          1825              .DW     BADCMD-CMNDS    ; Default is query user
FF7F-               1826      CMNDE:  .EQ     $
FF7F-               1827      ;
FF7F-               1828      ; This table contains the standard functions provided by the VDU control programs
FF7F-               1829      ;
FF7F-               1830      FUNCTS:
FF7F-               1831              .DO     VER=490
FF7F-04             1832              .DB     FUNCTE-FUNCTS/3-1 ; Number of entries
FF80-               1833      ;
FF80-0D             1834              .DB     CR              ; Carriage return
FF81-FA 6D          1835              .DW     DOCR-FUNCTS
FF83-               1836      ;
FF83-0A             1837              .DB     LF              ; Linefeed
FF84-F9 F8          1838              .DW     DOLF-FUNCTS
FF86-               1839      ;
FF86-7F             1840              .DB     BSPACE          ; Backspace
FF87-FA 06          1841              .DW     DORUB-FUNCTS
FF89-               1842      ;
FF89-0C             1843              .DB     FFEED           ; Formfeed
FF8A-F9 A6          1844              .DW     CRTCI-FUNCTS
FF8C-               1845      ;
FF8C-01             1846              .DB     1
FF8D-F9 EA          1847              .DW     SIMCHR-FUNCTS   ; Default is display it
FF8F-               1848              .FI
FF8F-               1849      ;
FF8F-             S 1850              .DO     VER=495
FF8F-             S 1851              .DB     FUNCTE-FUNCTS/3 ; Number of entries
FF8F-             S 1852      ;
FF8F-             S 1853              .DB     CR              ; Carriage return
FF8F-             S 1854              .DW     DOCR-FUNCTS
FF8F-             S 1855      ;
FF8F-             S 1856              .DB     LF              ; Linefeed
FF8F-             S 1857              .DW     DOLF-FUNCTS
FF8F-             S 1858      ;
FF8F-             S 1859              .DB     $08             ; Backspace ??
FF8F-             S 1860              .DW     DORUB-FUNCTS
FF8F-             S 1861      ;
FF8F-             S 1862              .DB     $01             ; Formfeed
FF8F-             S 1863              .DW     $F9EA           ; CRTCI-FUNCTS  ; $F9EA ??
FF8F-             S 1864              .DB     1
FF8F-             S 1865              .DW     SIMCHR-FUNCTS   ; Default is display it
FF8F-               1866              .FI
FF8F-               1867      ;
FF8F-               1868      FUNCTE: .EQ     $
FF8F-               1869      ;
FF8F-               1870      ; This is the list of strings used by the monitor
FF8F-               1871      ;
FF8F-52 6F 6D 3F    1872      MQRY:   .AS     "Rom?"
FF93-0D 0A 00       1873      SCRLF:  .DB     CR,LF,0
FF96-43 43 20 20 
     41 20 20 42 
     20 44 50 20 
     20 20 20 58 
     20 20 20 20 
     59 20 20 20 
     20 55 20 20 
     20 50 43 20 
     20 20 20 53    1874      TITLES: .AS     "CC  A  B DP    X    Y    U   PC    S"
FFBA-0D 0A 00       1875              .DB     CR,LF,0
FFBD-0D 0A          1876      PCMESS: .DB     CR,LF
FFBF-50 43 5D       1877              .AS     "PC]"
FFC2-00             1878              .DB     0
FFC3-57 68 61 74 
     20 69 73 3A    1879      CQRY:   .AS     "What is:"
FFCB-00             1880              .DB     0
FFCC-49             1881      IERR:   .AS     'I'
FFCD-2D             1882      LQRY:   .AS     '-'
FFCE-45 72 72 20    1883      DQRY:   .AS     "Err "
FFD2-00             1884              .DB     0
FFD3-               1885      ;
FFD3-               1886      ; This is the set of indirect jumps to redirect the interrupt vector addresses
FFD3-               1887      ;
FFD3-6E 9F E3 77    1888 ( 9) RESVI:  JMP     [IRESV]
FFD7-6E 9F E3 79    1889 ( 9) SWI3I:  JMP     [ISWI3]
FFDB-6E 9F E3 7B    1890 ( 9) SWI2I:  JMP     [ISWI2]
FFDF-6E 9F E3 7D    1891 ( 9) FIRQI:  JMP     [IFIRQ]
FFE3-6E 9F E3 7F    1892 ( 9) IRQI:   JMP     [IIRQ]
FFE7-6E 9F E3 81    1893 ( 9) SWII:   JMP     [ISWI]
FFEB-6E 9F E3 83    1894 ( 9) NMII:   JMP     [INMI]
FFEF-               1895      ;
FFEF-               1896      ; The following hardware vectors reside in the top 16 bytes of memory
FFEF-               1897      ; when the monitor is in its standard position
FFEF-               1898      ;
FFEF-               1899              .DO     VER=490
FFEF-00             1900              .DB     $00
FFF0-             S 1901              .EL
FFF0-             S 1902              .DB     $FF
FFF0-               1903              .FI
FFF0-               1904      ;
FFF0-FF D3          1905              .DW     RESVI
FFF2-FF D7          1906              .DW     SWI3I
FFF4-FF DB          1907              .DW     SWI2I
FFF6-FF DF          1908              .DW     FIRQI
FFF8-FF E3          1909              .DW     IRQI
FFFA-FF E7          1910              .DW     SWII
FFFC-FF EB          1911              .DW     NMII
FFFE-F8 00          1912              .DW     RESET