URL https://opencores.org/ocsvn/System09/System09/trunk

Subversion Repositories System09

Compare Revisions

This comparison shows the changes necessary to convert path
```
/
```
from Rev 19 to Rev 20
↔ Reverse comparison
Compare Path: Rev

With Path: Rev

Rev 19 → Rev 20

/trunk/rtl/Spartan3/sys09bug_s3e_rom2k_b16.vhd

0,0 → 1,117

/trunk/rtl/Spartan3/sbug_rom2k_b16.vhd

7,7 → 7,7

23,39 → 23,6

131,11 → 98,11

/trunk/rtl/System09_Digilent_3S500E/System09_Digilent_3S500E.ucf

138,8 → 138,8

259,11 → 259,11

/trunk/rtl/System09_Digilent_3S500E/System09_Digilent_3S500E.ise Cannot display: file marked as a binary type. svn:mime-type = application/octet-stream

/trunk/rtl/System09_Digilent_3S500E/System09_Digilent_3S500E.ise

trunk/rtl/System09_Digilent_3S500E/System09_Digilent_3S500E.ise Property changes : Added: svn:mime-type ## -0,0 +1 ## +application/octet-stream \ No newline at end of property Index: trunk/rtl/System09_Digilent_3S500E/System09_Digilent_3S500E.vhd =================================================================== --- trunk/rtl/System09_Digilent_3S500E/System09_Digilent_3S500E.vhd (revision 19) +++ trunk/rtl/System09_Digilent_3S500E/System09_Digilent_3S500E.vhd (revision 20) @@ -1,4 +1,4 @@ --- $Id: System09_Digilent_3S500E.vhd,v 1.1 2007-12-09 16:06:02 dilbert57 Exp $ +-- $Id: System09_Digilent_3S500E.vhd,v 1.2 2008-01-08 01:59:09 dilbert57 Exp $ --===========================================================================---- -- -- S Y N T H E Z I A B L E System09 - SOC. @@ -67,6 +67,20 @@ -- Removed keyboard, vdu, timer, and trap logic -- added PIA with counters attached. -- Uses 32Kbytes of internal Block RAM +-- +-- Version 4.0 - 8th April 2007 - John kent +-- Added VDU and PS/2 keyboard +-- Updated miniUART to ACIA6850 +-- Reduce monitor ROM to 2KB +-- Re-assigned I/O port assignments so it is possible to run KBUG9 +-- $E000 - ACIA +-- $E020 - Keyboard +-- $E030 - VDU +-- $E040 - Compact Flash (not implemented) +-- $E050 - Timer +-- $E060 - Bus trap +-- $E070 - Parallel I/O +-- --===========================================================================-- library ieee; use ieee.std_logic_1164.all; @@ -79,6 +93,17 @@ CLK_50MHZ : in Std_Logic; -- System Clock input BTN_SOUTH : in Std_Logic; + -- PS/2 Keyboard + PS2_CLK : inout Std_logic; + PS2_DATA : inout Std_Logic; + + -- CRTC output signals + VGA_VSYNC : out Std_Logic; + VGA_HSYNC : out Std_Logic; + VGA_BLUE : out std_logic; + VGA_GREEN : out std_logic; + VGA_RED : out std_logic; + -- Uart Interface RS232_DCE_RXD : in std_logic; RS232_DCE_TXD : out std_logic; @@ -93,27 +118,58 @@ ------------------------------------------------------------------------------- architecture my_computer of My_System09 is ----------------------------------------------------------------------------- + -- constants + ----------------------------------------------------------------------------- + constant SYS_Clock_Frequency : integer := 50000000; -- FPGA System Clock + constant PIX_Clock_Frequency : integer := 25000000; -- VGA Pixel Clock + constant CPU_Clock_Frequency : integer := 25000000; -- CPU Clock + constant BAUD_Rate : integer := 57600; -- Baud Rate + constant ACIA_Clock_Frequency : integer := BAUD_Rate * 16; + + ----------------------------------------------------------------------------- -- Signals ----------------------------------------------------------------------------- -- BOOT ROM - signal rom_cs : Std_logic; - signal rom_data_out : Std_Logic_Vector(7 downto 0); + signal rom_cs : Std_logic; + signal rom_data_out : Std_Logic_Vector(7 downto 0); -- UART Interface signals - signal uart_data_out : Std_Logic_Vector(7 downto 0); - signal uart_cs : Std_Logic; - signal uart_irq : Std_Logic; - signal baudclk : Std_Logic; - signal DCD_n : Std_Logic; - signal RTS_n : Std_Logic; - signal CTS_n : Std_Logic; + signal uart_data_out : Std_Logic_Vector(7 downto 0); + signal uart_cs : Std_Logic; + signal uart_irq : Std_Logic; + signal uart_clk : Std_Logic; + signal rxbit : Std_Logic; + signal txbit : Std_Logic; + signal DCD_n : Std_Logic; + signal RTS_n : Std_Logic; + signal CTS_n : Std_Logic; + -- timer + signal timer_data_out : std_logic_vector(7 downto 0); + signal timer_cs : std_logic; + signal timer_irq : std_logic; + + -- trap + signal trap_cs : std_logic; + signal trap_data_out : std_logic_vector(7 downto 0); + signal trap_irq : std_logic; + -- PIA Interface signals - signal pia_data_out : Std_Logic_Vector(7 downto 0); - signal pia_cs : Std_Logic; - signal pia_irq_a : Std_Logic; - signal pia_irq_b : Std_Logic; + signal pia_data_out : Std_Logic_Vector(7 downto 0); + signal pia_cs : Std_Logic; + signal pia_irq_a : Std_Logic; + signal pia_irq_b : Std_Logic; + -- keyboard port + signal keyboard_data_out : std_logic_vector(7 downto 0); + signal keyboard_cs : std_logic; + signal keyboard_irq : std_logic; + + -- Video Display Unit + signal pix_clk : std_logic; + signal vdu_cs : std_logic; + signal vdu_data_out : std_logic_vector(7 downto 0); + -- RAM signal ram_cs : std_logic; -- memory chip select signal ram_data_out : std_logic_vector(7 downto 0); @@ -132,10 +188,11 @@ signal cpu_data_in : std_logic_vector(7 downto 0); signal cpu_data_out : std_logic_vector(7 downto 0); - signal BaudCount : std_logic_vector(6 downto 0); + -- CLK_50MHZ clock divide by 2 + signal clock_div : std_logic_vector(1 downto 0); + signal SysClk : std_logic; + signal Reset_n : std_logic; signal CountL : std_logic_vector(23 downto 0); - -- CLK_50MHZ clock divide by 4 - signal prescale : std_logic_vector(1 downto 0); ----------------------------------------------------------------- -- @@ -166,13 +223,13 @@ -- Block RAM Monitor ROM -- ---------------------------------------- -component rom_8k +component mon_rom Port ( clk : in std_logic; rst : in std_logic; cs : in std_logic; rw : in std_logic; - addr : in std_logic_vector (12 downto 0); + addr : in std_logic_vector (10 downto 0); rdata : out std_logic_vector (7 downto 0); wdata : in std_logic_vector (7 downto 0) ); @@ -215,13 +272,14 @@ ); end component; + ----------------------------------------------------------------- -- --- 6850 compatible UART (ACIA) +-- 6850 ACIA/UART -- ----------------------------------------------------------------- -component miniUART +component ACIA_6850 port ( clk : in Std_Logic; -- System Clock rst : in Std_Logic; -- Reset input (active high) @@ -240,7 +298,129 @@ RTS_n : out Std_Logic ); -- Request To send end component; +----------------------------------------------------------------- +-- +-- ACIA Clock divider +-- +----------------------------------------------------------------- +component ACIA_Clock + generic ( + SYS_Clock_Frequency : integer := SYS_Clock_Frequency; + ACIA_Clock_Frequency : integer := ACIA_Clock_Frequency + ); + port ( + clk : in Std_Logic; -- System Clock Input + ACIA_clk : out Std_logic -- ACIA Clock output + ); +end component; + +---------------------------------------- +-- +-- Timer module +-- +---------------------------------------- + +component timer + port ( + clk : in std_logic; + rst : in std_logic; + cs : in std_logic; + rw : in std_logic; + addr : in std_logic; + data_in : in std_logic_vector(7 downto 0); + data_out : out std_logic_vector(7 downto 0); + irq : out std_logic; + timer_in : in std_logic; + timer_out : out std_logic + ); +end component; + +------------------------------------------------------------ +-- +-- Bus Trap logic +-- +------------------------------------------------------------ + +component trap + port ( + clk : in std_logic; + rst : in std_logic; + cs : in std_logic; + rw : in std_logic; + vma : in std_logic; + addr : in std_logic_vector(15 downto 0); + data_in : in std_logic_vector(7 downto 0); + data_out : out std_logic_vector(7 downto 0); + irq : out std_logic + ); +end component; + +---------------------------------------- +-- +-- PS/2 Keyboard +-- +---------------------------------------- + +component keyboard + generic( + KBD_Clock_Frequency : integer := CPU_Clock_Frequency + ); + port( + clk : in std_logic; + rst : in std_logic; + cs : in std_logic; + rw : in std_logic; + addr : in std_logic; + data_in : in std_logic_vector(7 downto 0); + data_out : out std_logic_vector(7 downto 0); + irq : out std_logic; + kbd_clk : inout std_logic; + kbd_data : inout std_logic + ); +end component; + +---------------------------------------- +-- +-- Video Display Unit. +-- +---------------------------------------- +component vdu8 + generic( + VDU_CLOCK_FREQUENCY : integer := CPU_Clock_Frequency; -- HZ + VGA_CLOCK_FREQUENCY : integer := PIX_Clock_Frequency; -- HZ + VGA_HOR_CHARS : integer := 80; -- CHARACTERS + VGA_VER_CHARS : integer := 25; -- CHARACTERS + VGA_PIXELS_PER_CHAR : integer := 8; -- PIXELS + VGA_LINES_PER_CHAR : integer := 16; -- LINES + VGA_HOR_BACK_PORCH : integer := 40; -- PIXELS + VGA_HOR_SYNC : integer := 96; -- PIXELS + VGA_HOR_FRONT_PORCH : integer := 24; -- PIXELS + VGA_VER_BACK_PORCH : integer := 13; -- LINES + VGA_VER_SYNC : integer := 1; -- LINES + VGA_VER_FRONT_PORCH : integer := 36 -- LINES + ); + port( + -- control register interface + vdu_clk : in std_logic; -- CPU Clock - 12.5MHz + vdu_rst : in std_logic; + vdu_cs : in std_logic; + vdu_rw : in std_logic; + vdu_addr : in std_logic_vector(2 downto 0); + vdu_data_in : in std_logic_vector(7 downto 0); + vdu_data_out : out std_logic_vector(7 downto 0); + + -- vga port connections + vga_clk : in std_logic; -- VGA Pixel Clock - 25 MHz + vga_red_o : out std_logic; + vga_green_o : out std_logic; + vga_blue_o : out std_logic; + vga_hsync_o : out std_logic; + vga_vsync_o : out std_logic + ); +end component; + + component BUFG port ( i: in std_logic; @@ -268,12 +448,12 @@ firq => cpu_firq ); -my_rom : rom_8k port map ( +my_rom : mon_rom port map ( clk => cpu_clk, rst => cpu_reset, cs => rom_cs, rw => '1', - addr => cpu_addr(12 downto 0), + addr => cpu_addr(10 downto 0), rdata => rom_data_out, wdata => cpu_data_out ); @@ -300,7 +480,13 @@ irqb => pia_irq_b ); -my_uart : miniUART port map ( + +---------------------------------------- +-- +-- ACIA/UART Serial interface +-- +---------------------------------------- +my_ACIA : ACIA_6850 port map ( clk => cpu_clk, rst => cpu_reset, cs => uart_cs, @@ -309,19 +495,144 @@ Addr => cpu_addr(0), Datain => cpu_data_out, DataOut => uart_data_out, - RxC => baudclk, - TxC => baudclk, - RxD => RS232_DCE_RXD, - TxD => RS232_DCE_TXD, + RxC => uart_clk, + TxC => uart_clk, + RxD => rxbit, + TxD => txbit, DCD_n => dcd_n, CTS_n => cts_n, RTS_n => rts_n ); +---------------------------------------- +-- +-- ACIA Clock +-- +---------------------------------------- +my_ACIA_Clock : ACIA_Clock + generic map( + SYS_Clock_Frequency => SYS_Clock_Frequency, + ACIA_Clock_Frequency => ACIA_Clock_Frequency + ) + port map( + clk => SysClk, + acia_clk => uart_clk + ); -clk_buffer : BUFG port map( - i => prescale(1), + + +---------------------------------------- +-- +-- PS/2 Keyboard Interface +-- +---------------------------------------- +my_keyboard : keyboard + generic map ( + KBD_Clock_Frequency => CPU_Clock_frequency + ) + port map( + clk => cpu_clk, + rst => cpu_reset, + cs => keyboard_cs, + rw => cpu_rw, + addr => cpu_addr(0), + data_in => cpu_data_out(7 downto 0), + data_out => keyboard_data_out(7 downto 0), + irq => keyboard_irq, + kbd_clk => PS2_CLK, + kbd_data => PS2_DATA + ); + +---------------------------------------- +-- +-- Video Display Unit instantiation +-- +---------------------------------------- +my_vdu : vdu8 + generic map( + VDU_CLOCK_FREQUENCY => CPU_Clock_Frequency, -- HZ + VGA_CLOCK_FREQUENCY => PIX_Clock_Frequency, -- HZ + VGA_HOR_CHARS => 80, -- CHARACTERS + VGA_VER_CHARS => 25, -- CHARACTERS + VGA_PIXELS_PER_CHAR => 8, -- PIXELS + VGA_LINES_PER_CHAR => 16, -- LINES + VGA_HOR_BACK_PORCH => 40, -- PIXELS + VGA_HOR_SYNC => 96, -- PIXELS + VGA_HOR_FRONT_PORCH => 24, -- PIXELS + VGA_VER_BACK_PORCH => 13, -- LINES + VGA_VER_SYNC => 1, -- LINES + VGA_VER_FRONT_PORCH => 36 -- LINES + ) + port map( + + -- Control Registers + vdu_clk => cpu_clk, -- 25 MHz System Clock in + vdu_rst => cpu_reset, + vdu_cs => vdu_cs, + vdu_rw => cpu_rw, + vdu_addr => cpu_addr(2 downto 0), + vdu_data_in => cpu_data_out, + vdu_data_out => vdu_data_out, + + -- vga port connections + vga_clk => pix_clk, -- 25 MHz VDU pixel clock + vga_red_o => vga_red, + vga_green_o => vga_green, + vga_blue_o => vga_blue, + vga_hsync_o => vga_hsync, + vga_vsync_o => vga_vsync + ); + + +---------------------------------------- +-- +-- Timer Module +-- +---------------------------------------- +my_timer : timer port map ( + clk => cpu_clk, + rst => cpu_reset, + cs => timer_cs, + rw => cpu_rw, + addr => cpu_addr(0), + data_in => cpu_data_out, + data_out => timer_data_out, + irq => timer_irq, + timer_in => CountL(5) +-- timer_out => timer_out + ); + +---------------------------------------- +-- +-- Bus Trap Interrupt logic +-- +---------------------------------------- +my_trap : trap port map ( + clk => cpu_clk, + rst => cpu_reset, + cs => trap_cs, + rw => cpu_rw, + vma => cpu_vma, + addr => cpu_addr, + data_in => cpu_data_out, + data_out => trap_data_out, + irq => trap_irq + ); + +-- +-- 25 MHz CPU clock +-- +cpu_clk_buffer : BUFG port map( + i => clock_div(0), o => cpu_clk + ); + +-- +-- 25 MHz VGA Pixel clock +-- +vga_clk_buffer : BUFG port map( + i => clock_div(0), + o => pix_clk ); ---------------------------------------------------------------------- @@ -330,51 +641,164 @@ -- ---------------------------------------------------------------------- -mem_decode: process( cpu_clk, BTN_SOUTH, +mem_decode: process( cpu_clk, Reset_n, cpu_addr, cpu_rw, cpu_vma, - rom_data_out, + rom_data_out, ram_data_out, + timer_data_out, + trap_data_out, + pia_data_out, uart_data_out, - pia_data_out ) + keyboard_data_out, + vdu_data_out ) +variable decode_addr : std_logic_vector(3 downto 0); begin - case cpu_addr(15 downto 14) is +-- decode_addr := dat_addr(3 downto 0) & cpu_addr(11); + decode_addr := cpu_addr(15 downto 12); + + case decode_addr is -- - -- Monitor ROM $C000 - $FFFF + -- SBUG/KBUG/SYS09BUG Monitor ROM $F800 - $FFFF -- - when "11" => -- $C000 - $FFFF + when "1111" => -- $F000 - $FFFF cpu_data_in <= rom_data_out; - rom_cs <= cpu_vma; + rom_cs <= cpu_vma; -- read ROM ram_cs <= '0'; uart_cs <= '0'; + timer_cs <= '0'; + trap_cs <= '0'; pia_cs <= '0'; + keyboard_cs <= '0'; + vdu_cs <= '0'; + -- - -- IO Devices $8000 - $BFFF + -- IO Devices $E000 - $EFFF -- - when "10" => -- $8000 - $BFFF + when "1110" => -- $E000 - $E7FF rom_cs <= '0'; ram_cs <= '0'; - case cpu_addr(3 downto 2) is + case cpu_addr(7 downto 4) is -- - -- PIA TIMER $8004 + -- UART / ACIA $E000 -- - when "01" => -- $8004 - cpu_data_in <= pia_data_out; + when "0000" => -- $E000 + cpu_data_in <= uart_data_out; + uart_cs <= cpu_vma; + timer_cs <= '0'; + trap_cs <= '0'; + pia_cs <= '0'; + keyboard_cs <= '0'; + vdu_cs <= '0'; + + -- + -- WD1771 FDC sites at $E010-$E01F + -- + when "0001" => -- $E010 + cpu_data_in <= (others => '0'); uart_cs <= '0'; - pia_cs <= cpu_vma; + timer_cs <= '0'; + trap_cs <= '0'; + pia_cs <= '0'; + keyboard_cs <= '0'; + vdu_cs <= '0'; + + -- + -- Keyboard port $E020 - $E02F -- - -- UART / ACIA $8008 + when "0010" => -- $E020 + cpu_data_in <= keyboard_data_out; + uart_cs <= '0'; + timer_cs <= '0'; + trap_cs <= '0'; + pia_cs <= '0'; + keyboard_cs <= cpu_vma; + vdu_cs <= '0'; + + -- + -- VDU port $E030 - $E03F -- - when "10" => -- $8008 - cpu_data_in <= uart_data_out; - uart_cs <= cpu_vma; - pia_cs <= '0'; + when "0011" => -- $E030 + cpu_data_in <= vdu_data_out; + uart_cs <= '0'; + timer_cs <= '0'; + trap_cs <= '0'; + pia_cs <= '0'; + keyboard_cs <= '0'; + vdu_cs <= cpu_vma; - when others => - cpu_data_in <= "11111111"; + -- + -- Compact Flash $E040 - $E04F + -- + when "0100" => -- $E040 + cpu_data_in <= (others => '0'); uart_cs <= '0'; - pia_cs <= '0'; + timer_cs <= '0'; + trap_cs <= '0'; + pia_cs <= '0'; + keyboard_cs <= '0'; + vdu_cs <= '0'; + + -- + -- Timer $E050 - $E05F + -- + when "0101" => -- $E050 + cpu_data_in <= timer_data_out; + uart_cs <= '0'; + timer_cs <= cpu_vma; + trap_cs <= '0'; + pia_cs <= '0'; + keyboard_cs <= '0'; + vdu_cs <= '0'; + + -- + -- Bus Trap Logic $E060 - $E06F + -- + when "0110" => -- $E060 + cpu_data_in <= trap_data_out; + uart_cs <= '0'; + timer_cs <= '0'; + trap_cs <= cpu_vma; + pia_cs <= '0'; + keyboard_cs <= '0'; + vdu_cs <= '0'; + + -- + -- I/O port $E070 - $E07F + -- + when "0111" => -- $E070 + cpu_data_in <= pia_data_out; + uart_cs <= '0'; + timer_cs <= '0'; + trap_cs <= '0'; + pia_cs <= cpu_vma; + keyboard_cs <= '0'; + vdu_cs <= '0'; + + when others => -- $E080 to $E7FF + cpu_data_in <= (others => '0'); + uart_cs <= '0'; + timer_cs <= '0'; + trap_cs <= '0'; + pia_cs <= '0'; + keyboard_cs <= '0'; + vdu_cs <= '0'; end case; + -- + -- $8000 to $DFFF = null + -- + when "1101" | "1100" | "1011" | "1010" | + "1001" | "1000" => + cpu_data_in <= (others => '0'); + rom_cs <= '0'; + ram_cs <= '0'; + uart_cs <= '0'; + timer_cs <= '0'; + trap_cs <= '0'; + pia_cs <= '0'; + keyboard_cs <= '0'; + vdu_cs <= '0'; + -- -- Everything else is RAM -- when others => @@ -382,67 +806,57 @@ rom_cs <= '0'; ram_cs <= cpu_vma; uart_cs <= '0'; - pia_cs <= '0'; - end case; + timer_cs <= '0'; + trap_cs <= '0'; + pia_cs <= '0'; + keyboard_cs <= '0'; + vdu_cs <= '0'; + end case; end process; -- -- Interrupts and other bus control signals -- -interrupts : process( BTN_SOUTH, uart_irq, - pia_irq_a, pia_irq_b +interrupts : process( Reset_n, + pia_irq_a, pia_irq_b, uart_irq, trap_irq, timer_irq, keyboard_irq ) begin - cpu_reset <= BTN_SOUTH; -- CPU reset is active high - cpu_irq <= uart_irq; - cpu_nmi <= pia_irq_a; - cpu_firq <= pia_irq_b; + cpu_reset <= not Reset_n; -- CPU reset is active high + cpu_irq <= uart_irq or keyboard_irq; + cpu_nmi <= pia_irq_a or trap_irq; + cpu_firq <= pia_irq_b or timer_irq; cpu_halt <= '0'; cpu_hold <= '0'; end process; -my_cpu_clock: process( CLK_50MHZ, prescale ) -begin - if(CLK_50MHZ'event and CLK_50MHZ = '0') then - prescale <= prescale + "01"; - end if; -end process; - -- --- Baud rate clock --- 50 MHz / 81.38 = ~614.4 KHz (38400 * 16) -- -my_baud: process( CLK_50MHZ ) +my_led_flasher: process( SysClk, Reset_n, CountL ) begin - if(CLK_50MHZ'event and CLK_50MHZ = '0') then - if( BaudCount = 81 ) then - BaudCount <= "0000000"; - baudclk <= '0'; - else - BaudCount <= BaudCount + 1; - if BaudCount = 40 then - baudclk <= '1'; - else - baudclk <= baudclk; - end if; - end if; + if Reset_n = '0' then + CountL <= "000000000000000000000000"; + elsif(SysClk'event and SysClk = '0') then + CountL <= CountL + 1; end if; + LED(7 downto 0) <= CountL(23 downto 16); end process; -- +-- Clock divider -- -my_led_flasher: process( CLK_50MHZ, BTN_SOUTH, CountL ) +my_clock_divider: process( SysClk ) begin - if BTN_SOUTH = '1' then - CountL <= "000000000000000000000000"; - elsif(CLK_50MHZ'event and CLK_50MHZ = '0') then - CountL <= CountL + 1; - end if; - LED(7 downto 0) <= CountL(23 downto 16); + if SysClk'event and SysClk='0' then + clock_div <= clock_div + "01"; + end if; end process; DCD_n <= '0'; CTS_n <= '0'; +Reset_n <= not BTN_SOUTH; -- CPU reset is active high +SysClk <= CLK_50MHZ; +rxbit <= RS232_DCE_RXD; +RS232_DCE_TXD <= txbit; end my_computer; --===================== End of architecture =======================--

/trunk/rtl/System09_Digilent_3S500E/system09_digilent_3s500e.mcs Cannot display: file marked as a binary type. svn:mime-type = application/octet-stream

/trunk/rtl/System09_Digilent_3S500E/system09_digilent_3s500e.mcs

trunk/rtl/System09_Digilent_3S500E/system09_digilent_3s500e.mcs Property changes : Added: svn:mime-type ## -0,0 +1 ## +application/octet-stream \ No newline at end of property Index: trunk/src/sys09bug/sys09bug_fpga.lst =================================================================== --- trunk/src/sys09bug/sys09bug_fpga.lst (revision 19) +++ trunk/src/sys09bug/sys09bug_fpga.lst (revision 20) @@ -42,2342 +42,2537 @@ 0038 * ADDED: COMPACT FLASH BOOT TO FPGA VERSION 0039 * REMOVED PORT REDIRECTION ON PUNCH & LOAD 0040 * -0041 * *** COMMANDS *** -0042 * -0043 * CONTROL A = ALTER THE "A" ACCUMULATOR -0044 * CONTROL B = ALTER THE "B" ACCUMULATOR -0045 * CONTROL C = ALTER THE CONDITION CODE REGISTER -0046 * CONTROL D = ALTER THE DIRECT PAGE REGISTER -0047 * CONTROL P = ALTER THE PROGRAM COUNTER -0048 * CONTROL U = ALTER USER STACK POINTER -0049 * CONTROL X = ALTER "X" INDEX REGISTER -0050 * CONTROL Y = ALTER "Y" INDEX REGISTER -0051 * B hhhh = SET BREAKPOINT AT LOCATION $hhhh -0052 * D = 5.25" MINIFLOPPY BOOT -0053 * E ssss-eeee = EXAMINE MEMORY -0054 * FROM STARTING ADDRESS ssss -0055 * TO ENDING ADDRESS eeee. -0056 * G = CONTINUE EXECUTION FROM BREAKPOINT OR SWI -0057 * L = LOAD TAPE -0058 * M hhhh = EXAMINE AND CHANGE MEMORY LOCATION hhhh -0059 * P ssss-eeee = PUNCH TAPE, START ssss TO END eeee ADDR. -0060 * R = DISPLAY REGISTER CONTENTS -0061 * S = DISPLAY STACK FROM ssss TO $DFC0 -0062 * U = 8" DMAF2 FLOPPY BOOT -0063 * U = USER EXTENSION COMMANDS AT $F000 -0064 * X = REMOVE ALL BREAKPOINTS -0065 * -0066 * -0067 * -0068 *************************************************** -0069 * OPTION SWITCHES -0070 *************************************************** -0071 * -0072 * -0073 ** THE CONTROL PORT CAN ONLY BE ONE OF THESE -0074 ** NOTE THAT THE ACIA WILL ALWAYS BE PRESET -0075 ** FOR LOADING AND SAVING S1 RECORDS -0076 * -0077 00FF FPGAOPT EQU $FF FPGA VIDEO & PS2 KEYBOARD -0078 *ADSOPT EQU $FF ADS6809 & DG640 VIDEO DISPAY -0079 *SWTPOPT EQU $FF SWTP ACIA SERIAL CONTROL PORT -0080 * -0081 *************************************************** -0082 * MEMORY MAP EQUATES * -0083 *************************************************** -0084 E000 MONIO EQU $E000 I/O SPACE -0085 DFC0 MONRAM EQU $DFC0 STACK SPACE -0086 F800 MONROM EQU $F800 START OF ROM -0087 F000 MONEXT EQU $F000 START OF EXTENDED COMMANDS -0088 0000 EXTCMD EQU $00 EXTENDED OFFSET +0041 * Modified to SYS09BUG VER 1.3 +0042 * FOR: SYSTEM09 FPGA SYSTEM +0043 * BY: JOHN KENT +0044 * DATE: 8TH JAN 2008 +0045 * ADDED: CONDITIONALS FOR SPARTAN3E STARTER BOARD +0046 * WITH ONLY 32K OF RAM +0047 * +0048 * *** COMMANDS *** +0049 * +0050 * CONTROL A = ALTER THE "A" ACCUMULATOR +0051 * CONTROL B = ALTER THE "B" ACCUMULATOR +0052 * CONTROL C = ALTER THE CONDITION CODE REGISTER +0053 * CONTROL D = ALTER THE DIRECT PAGE REGISTER +0054 * CONTROL P = ALTER THE PROGRAM COUNTER +0055 * CONTROL U = ALTER USER STACK POINTER +0056 * CONTROL X = ALTER "X" INDEX REGISTER +0057 * CONTROL Y = ALTER "Y" INDEX REGISTER +0058 * B hhhh = SET BREAKPOINT AT LOCATION $hhhh +0059 * D = 5.25" MINIFLOPPY BOOT +0060 * E ssss-eeee = EXAMINE MEMORY +0061 * FROM STARTING ADDRESS ssss +0062 * TO ENDING ADDRESS eeee. +0063 * G = CONTINUE EXECUTION FROM BREAKPOINT OR SWI +0064 * L = LOAD TAPE +0065 * M hhhh = EXAMINE AND CHANGE MEMORY LOCATION hhhh +0066 * P ssss-eeee = PUNCH TAPE, START ssss TO END eeee ADDR. +0067 * R = DISPLAY REGISTER CONTENTS +0068 * S = DISPLAY STACK FROM ssss TO $DFC0 +0069 * U = 8" DMAF2 FLOPPY BOOT +0070 * U = USER EXTENSION COMMANDS AT $F000 +0071 * X = REMOVE ALL BREAKPOINTS +0072 * +0073 * +0074 * +0075 *************************************************** +0076 * OPTION SWITCHES +0077 *************************************************** +0078 * +0079 * +0080 ** THE CONTROL PORT CAN ONLY BE ONE OF THESE +0081 ** NOTE THAT THE ACIA WILL ALWAYS BE PRESET +0082 ** FOR LOADING AND SAVING S1 RECORDS +0083 * +0084 *S3EOPT EQU $FF SPARTAN3E STARTER +0085 00FF FPGAOPT EQU $FF FPGA VIDEO & PS2 KEYBOARD +0086 *ADSOPT EQU $FF ADS6809 & DG640 VIDEO DISPAY +0087 *SWTPOPT EQU $FF SWTP ACIA SERIAL CONTROL PORT +0088 * 0089 *************************************************** -0090 IFD FPGAOPT -0091 00FF DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION -0092 ENDIF FPGAOPT -0093 * -0094 IFD ADSOPT -0095 *RTCOPT EQU $FF REAL TIME CLOCK -0096 PRTOPT EQU $FF PRINTER DRIVERS -0097 MFDCOPT EQU $FF MINIFLOPPY 5.25" DISK BOOT -0098 ENDIF ADSOPT -0098 ENDIF ADSOPT -0099 * -0100 IFD SWTPOPT -0101 DMAFOPT EQU $FF DMAF2 8" FLOPPY DISK BOOT -0102 MFDCOPT EQU $FF MINIFLOPPY 5.25" DISK BOOT -0103 DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION -0104 ENDIF -0104 ENDIF -0105 * -0106 *************************************************** -0107 * SYS09BUG VARIABLE SPACE -0108 *************************************************** -0109 * -0110 DFC0 ORG MONRAM -0111 DFC0 STACK RMB 2 TOP OF INTERNAL STACK / USER VECTOR -0112 DFC2 SWI3 RMB 2 SOFTWARE INTERRUPT VECTOR #3 -0113 DFC4 SWI2 RMB 2 SOFTWARE INTERRUPT VECTOR #2 -0114 DFC6 FIRQ RMB 2 FAST INTERRUPT VECTOR -0115 DFC8 IRQ RMB 2 INTERRUPT VECTOR -0116 DFCA SWI RMB 2 SOFTWARE INTERRUPT VECTOR -0117 DFCC SVCVO RMB 2 SUPERVISOR CALL VECTOR ORGIN -0118 DFCE SVCVL RMB 2 SUPERVISOR CALL VECTOR LIMIT -0119 IFD DATOPT -0120 DFD0 LRARAM RMB 16 LRA ADDRESSES -0121 ENDIF DATOPT -0122 DFE0 CPORT RMB 2 RE-VECTORABLE CONTROL PORT -0123 DFE2 ECHO RMB 1 ECHO FLAG -0124 DFE3 BPTBL RMB 24 BREAKPOINT TABLE BASE ADDR -0125 * -0126 IFD SWTPOPT -0127 * -0128 *************************************************** -0129 * SERIAL PORT * +0090 * MEMORY MAP EQUATES * +0091 *************************************************** +0092 E000 MONIO EQU $E000 I/O SPACE +0093 IFD S3EOPT +0094 MONRAM EQU $7FC0 +0095 ELSE +0096 DFC0 MONRAM EQU $DFC0 STACK SPACE +0097 ENDIF S3EOPT +0098 F800 MONROM EQU $F800 START OF ROM +0099 F000 MONEXT EQU $F000 START OF EXTENDED COMMANDS +0100 0000 EXTCMD EQU $00 EXTENDED OFFSET +0101 *************************************************** +0102 IFD S3EOPT +0103 ACIAOPT EQU $FF ACIA AT PORT 0 +0104 PS2OPT EQU $FF PS2 KEYBOARD AT $E020 +0105 VDUOPT EQU $FF VDU AT $E030 +0106 TRAOPT EQU $FF PIA TRACE TIMER +0107 ENDIF S3EOPT +0107 ENDIF S3EOPT +0108 IFD FPGAOPT +0109 00FF ACIAOPT EQU $FF ACIA AT PORT 0 +0110 00FF PS2OPT EQU $FF PS2 KEYBOARD AT $E020 +0111 00FF VDUOPT EQU $FF VDU AT $E030 +0112 00FF CFOPT EQU $FF COMPACT FLASH AT $E040 +0113 00FF DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION +0114 ENDIF FPGAOPT +0115 * +0116 IFD ADSOPT +0117 DG640OPT EQU $FF DG640 VDU AT $E800 +0118 *RTCOPT EQU $FF REAL TIME CLOCK +0119 PRTOPT EQU $FF PRINTER DRIVERS +0120 MFDCOPT EQU $FF MINIFLOPPY 5.25" DISK BOOT +0121 ENDIF ADSOPT +0121 ENDIF ADSOPT +0122 * +0123 IFD SWTPOPT +0124 ACIAOPT EQU $FF ACIA AT PORT 0 +0125 DMAFOPT EQU $FF DMAF2 8" FLOPPY DISK BOOT +0126 MFDCOPT EQU $FF MINIFLOPPY 5.25" DISK BOOT +0127 DATOPT EQU $FF DYNAMIC ADDRESS TRANSLATION +0128 ENDIF +0128 ENDIF +0129 * 0130 *************************************************** -0131 * -0132 ** ACIA SITS ON PORT 0 -0133 * -0134 ACIAS EQU MONIO+$00 CONTROL PORT -0135 * -0136 ENDIF SWTPOPT -0136 ENDIF SWTPOPT -0137 IFD MFDCOPT -0138 * -0139 *************************************************** -0140 * MINIFLOPPY DRIVE * -0141 *************************************************** -0142 * -0143 ** FLOPPY DISK CONTROLLER SITS ON PORT 1 -0144 * -0145 DRVFDC EQU MONIO+$14 -0146 CMDFDC EQU MONIO+$18 -0147 SECFDC EQU MONIO+$1A -0148 DATFDC EQU MONIO+$1B -0149 ENDIF MFDCOPT -0149 ENDIF MFDCOPT -0150 IFD FPGAOPT -0151 * -0152 *************************************************** -0153 * SERIAL PORT * -0154 *************************************************** -0155 * -0156 ** ACIA SITS ON PORT 0 -0157 * -0158 E000 ACIAS EQU MONIO+$00 CONTROL PORT -0159 * -0160 * -0161 *************************************************** -0162 * VDU8 PS/2 KEYBOARD PORT * -0163 *************************************************** +0131 * SYS09BUG VARIABLE SPACE +0132 *************************************************** +0133 * +0134 DFC0 ORG MONRAM +0135 DFC0 STACK EQU * TOP OF INTERNAL STACK +0136 DFC0 NMI RMB 2 USER NMI VECTOR +0137 DFC2 SWI3 RMB 2 SOFTWARE INTERRUPT VECTOR #3 +0138 DFC4 SWI2 RMB 2 SOFTWARE INTERRUPT VECTOR #2 +0139 DFC6 FIRQ RMB 2 FAST INTERRUPT VECTOR +0140 DFC8 IRQ RMB 2 INTERRUPT VECTOR +0141 DFCA SWI RMB 2 SOFTWARE INTERRUPT VECTOR +0142 DFCC SVCVO RMB 2 SUPERVISOR CALL VECTOR ORGIN +0143 DFCE SVCVL RMB 2 SUPERVISOR CALL VECTOR LIMIT +0144 IFD DATOPT +0145 DFD0 LRARAM RMB 16 LRA ADDRESSES +0146 ENDIF DATOPT +0147 DFE0 CPORT RMB 2 RE-VECTORABLE CONTROL PORT +0148 DFE2 ECHO RMB 1 ECHO FLAG +0149 DFE3 BPTBL RMB 24 BREAKPOINT TABLE BASE ADDR +0150 IFD TRAOPT +0151 NMISAV RMB 2 NMI Jump Vector Backup +0152 TRACNT RMB 2 Trace Count +0153 ENDIF TRAOPT +0153 ENDIF TRAOPT +0154 * +0155 IFD ACIAOPT +0156 * +0157 *************************************************** +0158 * SERIAL PORT * +0159 *************************************************** +0160 * +0161 ** ACIA SITS ON PORT 0 +0162 * +0163 E000 ACIAS EQU MONIO+$00 CONTROL PORT 0164 * -0165 ** KEYBOARD SITS ON PORT 2 -0166 * -0167 E020 PS2KBD EQU MONIO+$20 PS/2 KEYBOARD PORT -0168 * -0169 *************************************************** -0170 * VDU8 DISPLAY DRIVER EQUATES * -0171 *************************************************** -0172 * -0173 ** VDU8 DISPLAY SITS ON PORT 3 -0174 * -0175 E030 VDU EQU MONIO+$30 -0176 0000 VDUCHR EQU 0 CHARACTER REGISTER -0177 0001 VDUATT EQU 1 ATTRIBUTE REGISTER -0178 0002 VDUCOL EQU 2 CURSOR COLUMN -0179 0003 VDUROW EQU 3 CURSOR ROW -0180 0004 VDUOFF EQU 4 ROW OFFSET -0181 * -0182 0050 LINLEN EQU 80 LENGTH OF A LINE -0183 0019 NUMLIN EQU 25 NUMBER OF LINES +0165 ENDIF ACIAOPT +0166 IFD MFDCOPT +0167 * +0168 *************************************************** +0169 * MINIFLOPPY DRIVE * +0170 *************************************************** +0171 * +0172 ** FLOPPY DISK CONTROLLER SITS ON PORT 1 +0173 * +0174 DRVFDC EQU MONIO+$14 +0175 CMDFDC EQU MONIO+$18 +0176 SECFDC EQU MONIO+$1A +0177 DATFDC EQU MONIO+$1B +0178 ENDIF MFDCOPT +0178 ENDIF MFDCOPT +0179 IFD PS2OPT +0180 * +0181 *************************************************** +0182 * VDU8 PS/2 KEYBOARD PORT * +0183 *************************************************** 0184 * -0185 ************************************************** -0186 * VDU8 DISPLAY DRIVER VARIABLES * -0187 ************************************************** -0188 * -0189 **** ALWAYS KEEP COLADX AND ROWADX TOGETHER ****** -0190 DFFB COLADX RMB 1 CURSOR COLUMN -0191 DFFC ROWADX RMB 1 CURSOR ROW -0192 ************************************************** -0193 * -0194 DFFD NEWROW RMB 1 NEW ROW TEMP FOR ESCAPE -0195 DFFE ESCFLG RMB 1 ESCAPE SEQUENCE ACTIVE -0196 * -0197 *************************************************** -0198 * COMPACT FLASH EQUATES * -0199 *************************************************** -0200 * -0201 E040 CF_BASE EQU MONIO+$40 -0202 E040 CF_DATA EQU CF_BASE+0 -0203 E041 CF_ERROR EQU CF_BASE+1 ; read error -0204 E041 CF_FEATURE EQU CF_BASE+1 ; write feature -0205 E042 CF_SECCNT EQU CF_BASE+2 -0206 E043 CF_SECNUM EQU CF_BASE+3 -0207 E044 CF_CYLLO EQU CF_BASE+4 -0208 E045 CF_CYLHI EQU CF_BASE+5 -0209 E046 CF_HEAD EQU CF_BASE+6 -0210 E047 CF_STATUS EQU CF_BASE+7 ; read status -0211 E047 CF_COMAND EQU CF_BASE+7 ; write command -0212 * -0213 * Command Equates -0214 * -0215 0020 CMDREAD EQU $20 ; Read Single sector -0216 0030 CMDWRITE EQU $30 ; Write Single sector -0217 00EF CMDFEATURE EQU $EF -0218 0001 FEAT8BIT EQU $01 ; enable 8 bit transfers -0219 00E0 HEADLBA EQU $E0 -0220 * -0221 * Status bit equates -0222 * -0223 0080 BUSY EQU $80 -0224 0040 DRDY EQU $40 -0225 0008 DRQ EQU $08 -0226 0001 ERR EQU $01 -0227 * -0228 ENDIF FPGAOPT -0229 * -0230 IFD RTCOPT -0231 * -0232 ************************************************** -0233 * MM58167A REAL TIME CLOCK MEMORY MAP: -0234 ************************************************** -0235 * -0236 ** REAL TIME CLOCK SITS ON PORT 4 AND PORT 5 -0237 * -0238 CLOCK EQU MONIO+$40 CLOCK BASE ADDRESS AND REGISTERS -0239 * -0240 * COUNTER AND COMPARITOR REGISTERS: -0241 * -0242 * Both the Clock Counter and Clock Comparitor -0243 * consist of 8 registers for holding the time. -0244 * The register offsets from the Counter and -0245 * Comparitor registers are listed above. +0185 ** KEYBOARD SITS ON PORT 2 +0186 * +0187 E020 PS2KBD EQU MONIO+$20 PS/2 KEYBOARD PORT +0188 ENDIF PS2OPT +0189 IFD VDUOPT +0190 * +0191 *************************************************** +0192 * VDU8 DISPLAY DRIVER EQUATES * +0193 *************************************************** +0194 * +0195 ** VDU8 DISPLAY SITS ON PORT 3 +0196 * +0197 E030 VDU EQU MONIO+$30 +0198 0000 VDUCHR EQU 0 CHARACTER REGISTER +0199 0001 VDUATT EQU 1 ATTRIBUTE REGISTER +0200 0002 VDUCOL EQU 2 CURSOR COLUMN +0201 0003 VDUROW EQU 3 CURSOR ROW +0202 0004 VDUOFF EQU 4 ROW OFFSET +0203 * +0204 0050 LINLEN EQU 80 LENGTH OF A LINE +0205 0019 NUMLIN EQU 25 NUMBER OF LINES +0206 * +0207 ************************************************** +0208 * VDU8 DISPLAY DRIVER VARIABLES * +0209 ************************************************** +0210 * +0211 **** ALWAYS KEEP COLADX AND ROWADX TOGETHER ****** +0212 DFFB COLADX RMB 1 CURSOR COLUMN +0213 DFFC ROWADX RMB 1 CURSOR ROW +0214 ************************************************** +0215 * +0216 DFFD NEWROW RMB 1 NEW ROW TEMP FOR ESCAPE +0217 DFFE ESCFLG RMB 1 ESCAPE SEQUENCE ACTIVE +0218 ENDIF VDUOPT +0219 IFD CFOPT +0220 * +0221 *************************************************** +0222 * COMPACT FLASH EQUATES * +0223 *************************************************** +0224 * +0225 ** COMPACT FLASH SITS AT PORT 4 +0226 * +0227 E040 CF_BASE EQU MONIO+$40 +0228 E040 CF_DATA EQU CF_BASE+0 +0229 E041 CF_ERROR EQU CF_BASE+1 ; read error +0230 E041 CF_FEATURE EQU CF_BASE+1 ; write feature +0231 E042 CF_SECCNT EQU CF_BASE+2 +0232 E043 CF_SECNUM EQU CF_BASE+3 +0233 E044 CF_CYLLO EQU CF_BASE+4 +0234 E045 CF_CYLHI EQU CF_BASE+5 +0235 E046 CF_HEAD EQU CF_BASE+6 +0236 E047 CF_STATUS EQU CF_BASE+7 ; read status +0237 E047 CF_COMAND EQU CF_BASE+7 ; write command +0238 * +0239 * Command Equates +0240 * +0241 0020 CMDREAD EQU $20 ; Read Single sector +0242 0030 CMDWRITE EQU $30 ; Write Single sector +0243 00EF CMDFEATURE EQU $EF +0244 0001 FEAT8BIT EQU $01 ; enable 8 bit transfers +0245 00E0 HEADLBA EQU $E0 0246 * -0247 COUNTR EQU CLOCK+0 -0248 CMPRAM EQU CLOCK+8 COMPARITOR REGISTERS -0249 * -0250 * CLOCK REGISTER OFFSETS: -0251 * These register offsets are used for the CLOCK -0252 * and comparitor ram CMPRAM. +0247 * Status bit equates +0248 * +0249 0080 BUSY EQU $80 +0250 0040 DRDY EQU $40 +0251 0008 DRQ EQU $08 +0252 0001 ERR EQU $01 0253 * -0254 S10000 EQU 0 TEN THOUNSANDTHS OF SECONDS -0255 S100 EQU 1 HUNDRETHS AND TENTHS OF SECONDS -0256 SECOND EQU 2 -0257 MINUIT EQU 3 -0258 HOUR EQU 4 -0259 WKDAY EQU 5 -0260 MTHDAY EQU 6 -0261 MONTH EQU 7 -0262 * -0263 * INTERRUPT OUTPUT REGISTERS: -0264 * -0265 * An interrupt output may be generated at the -0266 * following rates by setting the appropriate bit -0267 * in the Interrupt Control Register (CINTCR). -0268 * The Interrupt Status Register (CINTSR) must be -0269 * read to clear the interrupt and will return -0270 * the source of the interrupt. -0271 * -0272 * 1/Month Bit 7 -0273 * 1/Week Bit 6 -0274 * 1/Day Bit 5 -0275 * 1/Hour Bit 4 -0276 * 1/Minuite Bit 3 -0277 * 1/Second Bit 2 -0278 * 10/Second Bit 1 -0279 * Comparitor Bit 0 -0280 * -0281 CINTSR EQU CLOCK+16 INTERRUPT STATUS REGISTER -0282 CINTCR EQU CLOCK+17 INTERRUPT CONTROL REGISTER -0283 * -0284 * COUNTER AND RAM RESETS; GO COMMAND. -0285 * -0286 * The counter and comparitor may be reset -0287 * by writing $FF into CTRRES and CMPRES -0288 * respectivly. -0289 * A write to the Go command register (GOCMND) -0290 * will reset the 1/1000ths, 1/100ths and 1/10ths -0291 * of a second counter. -0292 * -0293 CTRRES EQU CLOCK+18 COUNTER RESET -0294 CMPRES EQU CLOCK+19 COMPARITOR RAM RESET -0295 GOCMND EQU CLOCK+21 GO COMMAND -0296 * -0297 * CLOCK STATUS REGISTER. -0298 * -0299 * The counter takes 61 usec. to rollover for -0300 * every 1KHz clock pulse. If the Status bit is -0301 * set after reading the counter, the counter -0302 * should be re-read to ensure the time is correct. -0303 * -0304 CLKSTA EQU CLOCK+20 STATUS BIT -0305 SBYINT EQU CLOCK+22 STANDBY INTERRUPT -0306 TSTMOD EQU CLOCK+31 TEST MODE REGISTER -0307 ENDIF RTCOPT -0307 ENDIF RTCOPT -0308 * -0309 IFD ADSOPT -0310 * -0311 *************************************************** -0312 * SERIAL PORT FOR DG640 * -0313 *************************************************** -0314 * -0315 ** SET UP FOR ACKERMAN DIGITAL ADS6809 -0316 ** THE ADS6809 S100 BOAD HAS AN ON BOARD ACIA -0317 * -0318 ACIAS EQU MONIO+$400 CONTROL PORT -0319 * -0320 * -0321 *************************************************** -0322 * PRINTER INTERFACE * -0323 *************************************************** +0254 ENDIF CFOPT +0255 * +0256 IFD RTCOPT +0257 * +0258 ************************************************** +0259 * MM58167A REAL TIME CLOCK MEMORY MAP: +0260 ************************************************** +0261 * +0262 ** REAL TIME CLOCK SITS ON PORT 4 AND PORT 5 +0263 * +0264 CLOCK EQU MONIO+$40 CLOCK BASE ADDRESS AND REGISTERS +0265 * +0266 * COUNTER AND COMPARITOR REGISTERS: +0267 * +0268 * Both the Clock Counter and Clock Comparitor +0269 * consist of 8 registers for holding the time. +0270 * The register offsets from the Counter and +0271 * Comparitor registers are listed above. +0272 * +0273 COUNTR EQU CLOCK+0 +0274 CMPRAM EQU CLOCK+8 COMPARITOR REGISTERS +0275 * +0276 * CLOCK REGISTER OFFSETS: +0277 * These register offsets are used for the CLOCK +0278 * and comparitor ram CMPRAM. +0279 * +0280 S10000 EQU 0 TEN THOUNSANDTHS OF SECONDS +0281 S100 EQU 1 HUNDRETHS AND TENTHS OF SECONDS +0282 SECOND EQU 2 +0283 MINUIT EQU 3 +0284 HOUR EQU 4 +0285 WKDAY EQU 5 +0286 MTHDAY EQU 6 +0287 MONTH EQU 7 +0288 * +0289 * INTERRUPT OUTPUT REGISTERS: +0290 * +0291 * An interrupt output may be generated at the +0292 * following rates by setting the appropriate bit +0293 * in the Interrupt Control Register (CINTCR). +0294 * The Interrupt Status Register (CINTSR) must be +0295 * read to clear the interrupt and will return +0296 * the source of the interrupt. +0297 * +0298 * 1/Month Bit 7 +0299 * 1/Week Bit 6 +0300 * 1/Day Bit 5 +0301 * 1/Hour Bit 4 +0302 * 1/Minuite Bit 3 +0303 * 1/Second Bit 2 +0304 * 10/Second Bit 1 +0305 * Comparitor Bit 0 +0306 * +0307 CINTSR EQU CLOCK+16 INTERRUPT STATUS REGISTER +0308 CINTCR EQU CLOCK+17 INTERRUPT CONTROL REGISTER +0309 * +0310 * COUNTER AND RAM RESETS; GO COMMAND. +0311 * +0312 * The counter and comparitor may be reset +0313 * by writing $FF into CTRRES and CMPRES +0314 * respectivly. +0315 * A write to the Go command register (GOCMND) +0316 * will reset the 1/1000ths, 1/100ths and 1/10ths +0317 * of a second counter. +0318 * +0319 CTRRES EQU CLOCK+18 COUNTER RESET +0320 CMPRES EQU CLOCK+19 COMPARITOR RAM RESET +0321 GOCMND EQU CLOCK+21 GO COMMAND +0322 * +0323 * CLOCK STATUS REGISTER. 0324 * -0325 PADATA EQU MONIO+$404 -0326 PACTRL EQU MONIO+$405 -0327 PBDATA EQU MONIO+$406 -0328 PBCTRL EQU MONIO+$407 +0325 * The counter takes 61 usec. to rollover for +0326 * every 1KHz clock pulse. If the Status bit is +0327 * set after reading the counter, the counter +0328 * should be re-read to ensure the time is correct. 0329 * -0330 ** CB1 ACK. I/P -0331 ** CB2 STB. O/P -0332 ** PB0 - PB7 DATA 1 - 8 O/P -0333 ** PORT A BIT ASSIGNMENT -0334 * -0335 PBUSY EQU $80 I/P -0336 PEMPTY EQU $40 I/P -0337 SELECT EQU $20 I/P -0338 PERROR EQU $10 I/P -0339 PRESET EQU %00000100 O/P PA3 = 0 -0340 AUTOFD EQU %00001000 O/P PA2 = 0 -0341 DIRMSK EQU %00001100 +0330 CLKSTA EQU CLOCK+20 STATUS BIT +0331 SBYINT EQU CLOCK+22 STANDBY INTERRUPT +0332 TSTMOD EQU CLOCK+31 TEST MODE REGISTER +0333 ENDIF RTCOPT +0333 ENDIF RTCOPT +0334 * +0335 IFD TRAOPT +0336 * +0337 ************************************************** +0338 * PIA INTERRUPT TIMER +0339 ************************************************** +0340 * +0341 ** PIA INTERRUPT TIMER SITS ON PORT 7 0342 * -0343 *************************************************** -0344 * DG640 MEMORY MAPPED DISPLAY DRIVER VARIABLES * -0345 *************************************************** -0346 * -0347 ** VIDEO DISPLAY DEFINITIONS -0348 * -0349 SCREEN EQU MONIO+$0800 START OF SCREEN MEMORY -0350 LINLEN EQU 64 LENGTH OF A LINE -0351 NUMLIN EQU 16 NUMBER OF LINES -0352 SCNLEN EQU $400 LENGTH OF SCREEN -0353 * -0354 ***** ALWAYS KEEP THESE TWO BYTES TOGETHER ***** -0355 COLADX RMB 1 CURSOR COLUMN -0356 ROWADX RMB 1 CURSOR ROW -0357 ************************************************* -0358 CURSOR RMB 2 ABSOLUTE SCREEN ADDRESS -0359 NEWROW RMB 1 NEW ROW TEMP FOR ESCAPE -0360 ESCFLG RMB 1 ESCAPE SEQUENCE ACTIVE -0361 ENDIF ADSOPT -0361 ENDIF ADSOPT -0362 * -0363 IFD DMAFOPT -0364 * -0365 *************************************************** -0366 * DMAF2 8" DRIVE * -0367 *************************************************** -0368 * -0369 ADDREG EQU $F000 ADDRESS REGISTER -0370 CNTREG EQU $F002 COUNT REGISTER -0371 CCREG EQU $F010 CHANNEL CONTROL REGISTER -0372 PRIREG EQU $F014 DMA PRIORITY REGISTER -0373 AAAREG EQU $F015 ??? -0374 BBBREG EQU $F016 ??? -0375 COMREG EQU $F020 1791 COMMAND REGISTER -0376 SECREG EQU $F022 SECTOR REGISTER -0377 DRVREG EQU $F024 DRIVE SELECT LATCH -0378 CCCREG EQU $F040 ??? -0379 ENDIF DMAFOPT -0379 ENDIF DMAFOPT -0380 IFD DATOPT -0381 ************************************************** -0382 * DYNAMIC ADDRESS TRANSLATION REGISTERS * -0383 ************************************************** -0384 * -0385 FFF0 IC11 EQU $FFF0 DAT RAM CHIP -0386 55AA TSTPAT EQU $55AA TEST PATTERN -0387 ENDIF DATOPT -0388 * -0389 *************************************************** -0390 * START OF ROM * -0391 *************************************************** -0392 * -0393 F800 ORG MONROM -0394 F800 F8 14 FDB MONITOR -0395 F802 F8 61 FDB NEXTCMD -0396 F804 FC A1 FDB INCH -0397 F806 FC 9B FDB INCHE -0398 F808 FC B9 FDB INCHEK -0399 F80A FC CE FDB OUTCH -0400 F80C FB 8F FDB PDATA -0401 F80E FB 1E FDB PCRLF -0402 F810 FB 1A FDB PSTRNG -0403 F812 FA 2E FDB LRA -0404 * -0405 IFD ADSOPT -0406 FDB PCHK CHECK FOR PRINTER INPUT -0407 FDB PINIZ INITIATE PRINTER -0408 FDB POUTCH OUTPUT CH. TO PRINTER -0409 FDB VINIZ -0410 FDB VOUTCH -0411 FDB ACINIZ -0412 FDB AOUTCH -0413 ENDIF ADSOPT -0413 ENDIF ADSOPT -0414 * -0415 * MONITOR -0416 * -0417 * VECTOR ADDRESS STRING IS..... -0418 * $F8A1-$F8A1-$F8A1-$F8A1-$F8A1-$FAB0-$FFFF-$FFFF -0419 * -0420 F814 8E FE 74 MONITOR LDX #RAMVEC POINT TO VECTOR ADDR. STRING -0421 F817 10 8E DF C0 LDY #STACK POINT TO RAM VECTOR LOCATION -0422 F81B C6 10 LDB #$10 BYTES TO MOVE = 16 -0423 F81D A6 80 LOOPA LDA ,X+ GET VECTOR BYTE -0424 F81F A7 A0 STA ,Y+ PUT VECTORS IN RAM / $DFC0-$DFCF -0425 F821 5A DECB SUBTRACT 1 FROM NUMBER OF BYTES TO MOVE -0426 F822 26 F9 BNE LOOPA CONTINUE UNTIL ALL VECTORS MOVED -0427 * -0428 * CONTENTS FROM TO FUNCTION -0429 * $F8A1 $FE40 $DFC0 USER-V -0430 * $F8A1 $FE42 $DFC2 SWI3-V -0431 * $F8A1 $FE44 $DFC4 SWI2-V -0432 * $F8A1 $FE46 $DFC6 FIRQ-V -0433 * $F8A1 $FE48 $DFC8 IRQ-V -0434 * $FAB0 $FE4A $DFCA SWI-V -0435 * $FFFF $FE4C $DFCC SVC-VO -0436 * $FFFF $FE4E $DFCE SVC-VL -0437 * -0438 F824 8E E0 00 LDX #ACIAS -0439 F827 BF DF E0 STX CPORT STORE ADDR. IN RAM -0440 F82A 17 01 5B LBSR XBKPNT CLEAR OUTSTANDING BREAKPOINTS -0441 F82D C6 0C LDB #12 CLEAR 12 BYTES ON STACK -0442 F82F 6F E2 CLRSTK CLR ,-S -0443 F831 5A DECB -0444 F832 26 FB BNE CLRSTK -0445 F834 30 8C DD LEAX MONITOR,PCR SET PC TO SBUG-E ENTRY -0446 F837 AF 6A STX 10,S ON STACK -0447 F839 86 D0 LDA #$D0 PRESET CONDITION CODES ON STACK -0448 F83B A7 E4 STA ,S -0449 F83D 1F 43 TFR S,U -0450 F83F 17 04 9F LBSR IOINIZ INITIALIZE CONTROL PORT -0451 F842 8E FE 84 LDX #MSG1 POINT TO MONITOR MESSAGE -0452 F845 17 03 47 LBSR PDATA PRINT MSG -0453 * -0454 IFD DATOPT -0455 F848 8E DF D0 LDX #LRARAM POINT TO LRA RAM STORAGE AREA -0456 F84B 4F CLRA START TOTAL AT ZERO -0457 F84C C6 0D LDB #13 TOTAL UP ALL ACTIVE RAM MEMORY -0458 F84E 6D 85 FNDREL TST B,X TEST FOR RAM AT NEXT LOC. -0459 F850 27 03 BEQ RELPAS IF NO RAM GO TO NEXT LOC. -0460 F852 8B 04 ADDA #4 ELSE ADD 4K TO TOTAL -0461 F854 19 DAA ADJ. TOTAL FOR DECIMAL -0462 F855 5A RELPAS DECB SUB. 1 FROM LOCS. TO TEST -0463 F856 2A F6 BPL FNDREL PRINT TOTAL OF RAM -0464 F858 17 04 0C LBSR OUT2H OUTPUT HEX BYTE AS ASCII -0465 F85B 8E FE A3 LDX #MSG2 POINT TO MSG 'K' CR/LF + 3 NULS -0466 F85E 17 03 2E LBSR PDATA PRINT MSG -0467 ENDIF DATOPT -0468 * -0469 ***** NEXTCMD ***** -0470 * -0471 F861 8E FE AA NEXTCMD LDX #MSG3 POINT TO MSG ">" -0472 F864 17 02 B3 LBSR PSTRNG PRINT MSG -0473 F867 17 04 37 LBSR INCH GET ONE CHAR. FROM TERMINAL -0474 F86A 84 7F ANDA #$7F STRIP PARITY FROM CHAR. -0475 F86C 81 0D CMPA #$0D IS IT CARRIAGE RETURN ? -0476 F86E 27 F1 BEQ NEXTCMD IF CR THEN GET ANOTHER CHAR. -0477 F870 1F 89 TFR A,B PUT CHAR. IN "B" ACCUM. -0478 F872 81 20 CMPA #$20 IS IT CONTROL OR DATA CHAR ? -0479 F874 2C 09 BGE PRTCMD IF CMD CHAR IS DATA, PRNT IT -0480 F876 86 5E LDA #'^ ELSE CNTRL CHAR CMD SO... -0481 F878 17 04 53 LBSR OUTCH PRINT "^" -0482 F87B 1F 98 TFR B,A RECALL CNTRL CMD CHAR -0483 F87D 8B 40 ADDA #$40 CONVERT IT TO ASCII LETTER -0484 F87F 17 04 4C PRTCMD LBSR OUTCH PRNT CMD CHAR -0485 F882 17 04 47 LBSR OUT1S PRNT SPACE -0486 F885 C1 60 CMPB #$60 -0487 F887 2F 02 BLE NXTCH0 -0488 F889 C0 20 SUBB #$20 -0489 * -0490 ***** DO TABLE LOOKUP ***** -0491 * FOR COMMAND FUNCTIONS +0343 ** PIA TIMER FOR SINGLE STEP / TRACE +0344 * +0345 * TADATA = Output = Timer preset register +0346 * TACTRL - CA1 = input = rising edge = NMI +0347 * - CA2 = Output = Timer Reset (Active High) +0348 * TBDATA = Input = Timer read back register +0349 * TBCTRL - CB1 = input = rising edge = FIRQ +0350 * - CB2 = output = strobe low on write to TBDATA = Timer Preset +0351 * +0352 * CRA0 = 0 CA1 IRQ DISAB, CRA0 = 1 CA1 IRQ ENAB +0353 * CRA1 = 1 CA1 Rising edge IRQ +0354 * CRA2 = 0 TADATA = Data Direction, CRA2 = 1 TADATA = I/O Register +0355 * CRA3 = 0 CA2 = 0 output, CRA3 = 1 CA2 = 1 +0356 * CRA4 = 1 ] CA2 = Set/Reset output +0357 * CRA5 = 1 ] +0358 * CRA6 = X CA2 Input Interrupt Flag +0359 * CRA7 = X CA1 Interrupt Flag +0360 * +0361 * CRB0 = 0 CB1 IRQ DISAB, CRB0 = 1 CA1 IRQ ENAB +0362 * CRB1 = 1 CB1 Rising edge IRQ +0363 * CRB2 = 0 TBDATA = Data Direction, CRB2 = 1 TBDATA = I/O Register +0364 * CRB3 = 0 CB2 = 0 output, CRB3 = 1 CB2 = 1 +0365 * CRB4 = 1 ] CB2 = Set/Reset output +0366 * CRB5 = 1 ] +0367 * CRB6 = X CB2 Input Interrupt Flag +0368 * CRB7 = X CB1 Interrupt Flag +0369 * +0370 * DDRA = 0 TADATA = Input, DDRA = 1 TADATA = Output +0371 * DDRB = 0 TBDATA = Input, DDRB = 1 TBDATA = Output +0372 * +0373 TADATA EQU MONIO+$70 Timer preset port +0374 TACTRL EQU MONIO+$71 +0375 TBDATA EQU MONIO+$72 Timer read back port +0376 TBCTRL EQU MONIO+$73 +0377 * +0378 TRADEL EQU 13 Number of E cycles for RTI (May need to be fudged) +0379 * +0380 ENDIF TRAOPT +0380 ENDIF TRAOPT +0381 IFD ADSOPT +0382 * +0383 *************************************************** +0384 * SERIAL PORT FOR DG640 * +0385 *************************************************** +0386 * +0387 ** SET UP FOR ACKERMAN DIGITAL ADS6809 +0388 ** THE ADS6809 S100 BOAD HAS AN ON BOARD ACIA +0389 * +0390 ACIAS EQU MONIO+$400 CONTROL PORT +0391 * +0392 ENDIF ADSOPT +0392 ENDIF ADSOPT +0393 IFD PRTOPT +0394 * +0395 *************************************************** +0396 * PRINTER INTERFACE * +0397 *************************************************** +0398 * +0399 PADATA EQU MONIO+$404 +0400 PACTRL EQU MONIO+$405 +0401 PBDATA EQU MONIO+$406 +0402 PBCTRL EQU MONIO+$407 +0403 * +0404 ** CB1 ACK. I/P +0405 ** CB2 STB. O/P +0406 ** PB0 - PB7 DATA 1 - 8 O/P +0407 ** PORT A BIT ASSIGNMENT +0408 * +0409 PBUSY EQU $80 I/P +0410 PEMPTY EQU $40 I/P +0411 SELECT EQU $20 I/P +0412 PERROR EQU $10 I/P +0413 PRESET EQU %00000100 O/P PA3 = 0 +0414 AUTOFD EQU %00001000 O/P PA2 = 0 +0415 DIRMSK EQU %00001100 +0416 ENDIF PRTOPT +0416 ENDIF PRTOPT +0417 IFD DG640OPT +0418 * +0419 *************************************************** +0420 * DG640 MEMORY MAPPED DISPLAY DRIVER VARIABLES * +0421 *************************************************** +0422 * +0423 ** VIDEO DISPLAY DEFINITIONS +0424 * +0425 SCREEN EQU MONIO+$0800 START OF SCREEN MEMORY +0426 LINLEN EQU 64 LENGTH OF A LINE +0427 NUMLIN EQU 16 NUMBER OF LINES +0428 SCNLEN EQU $400 LENGTH OF SCREEN +0429 * +0430 ***** ALWAYS KEEP THESE TWO BYTES TOGETHER ***** +0431 COLADX RMB 1 CURSOR COLUMN +0432 ROWADX RMB 1 CURSOR ROW +0433 ************************************************* +0434 CURSOR RMB 2 ABSOLUTE SCREEN ADDRESS +0435 NEWROW RMB 1 NEW ROW TEMP FOR ESCAPE +0436 ESCFLG RMB 1 ESCAPE SEQUENCE ACTIVE +0437 ENDIF DG640OPT +0437 ENDIF DG640OPT +0438 * +0439 IFD DMAFOPT +0440 * +0441 *************************************************** +0442 * DMAF2 8" DRIVE * +0443 *************************************************** +0444 * +0445 ADDREG EQU $F000 ADDRESS REGISTER +0446 CNTREG EQU $F002 COUNT REGISTER +0447 CCREG EQU $F010 CHANNEL CONTROL REGISTER +0448 PRIREG EQU $F014 DMA PRIORITY REGISTER +0449 AAAREG EQU $F015 ??? +0450 BBBREG EQU $F016 ??? +0451 COMREG EQU $F020 1791 COMMAND REGISTER +0452 SECREG EQU $F022 SECTOR REGISTER +0453 DRVREG EQU $F024 DRIVE SELECT LATCH +0454 CCCREG EQU $F040 ??? +0455 ENDIF DMAFOPT +0455 ENDIF DMAFOPT +0456 IFD DATOPT +0457 ************************************************** +0458 * DYNAMIC ADDRESS TRANSLATION REGISTERS * +0459 ************************************************** +0460 * +0461 FFF0 IC11 EQU $FFF0 DAT RAM CHIP +0462 55AA TSTPAT EQU $55AA TEST PATTERN +0463 ENDIF DATOPT +0464 * +0465 *************************************************** +0466 * START OF ROM * +0467 *************************************************** +0468 * +0469 F800 ORG MONROM +0470 F800 F8 14 FDB MONITOR +0471 F802 F8 61 FDB NEXTCMD +0472 F804 FC A1 FDB INCH +0473 F806 FC 9B FDB INCHE +0474 F808 FC B9 FDB INCHEK +0475 F80A FC CE FDB OUTCH +0476 F80C FB 8F FDB PDATA +0477 F80E FB 1E FDB PCRLF +0478 F810 FB 1A FDB PSTRNG +0479 F812 FA 2E FDB LRA +0480 * +0481 IFD ADSOPT +0482 FDB PCHK CHECK FOR PRINTER INPUT +0483 FDB PINIZ INITIATE PRINTER +0484 FDB POUTCH OUTPUT CH. TO PRINTER +0485 FDB VINIZ +0486 FDB VOUTCH +0487 FDB ACINIZ +0488 FDB AOUTCH +0489 ENDIF ADSOPT +0489 ENDIF ADSOPT +0490 * +0491 * MONITOR 0492 * -0493 F88B 8E FE 3B NXTCH0 LDX #JMPTAB POINT TO JUMP TABLE -0494 F88E E1 80 NXTCHR CMPB ,X+ DOES COMMAND MATCH TABLE ENTRY ? -0495 F890 27 0F BEQ JMPCMD BRANCH IF MATCH FOUND -0496 F892 30 02 LEAX 2,X POINT TO NEXT ENTRY IN TABLE -0497 F894 8C FE 74 CMPX #TABEND REACHED END OF TABLE YET ? -0498 F897 26 F5 BNE NXTCHR IF NOT END, CHECK NEXT ENTRY -0499 F899 8E FE AC LDX #MSG4 POINT TO MSG "WHAT?" -0500 F89C 17 02 F0 LBSR PDATA PRINT MSG -0501 F89F 20 C0 BRA NEXTCMD IF NO MATCH, PRMPT FOR NEW CMD -0502 F8A1 AD 94 JMPCMD JSR [,X] JUMP TO COMMAND ROUTINE -0503 F8A3 20 BC BRA NEXTCMD PROMPT FOR NEW COMMAND -0504 * -0505 * "G" GO OR CONTINUE -0506 * -0507 F8A5 1F 34 GO TFR U,S -0508 F8A7 3B RTI RTI -0509 * -0510 ***** "M" MEMORY EXAMINE AND CHANGE ***** -0511 * -0512 F8A8 17 03 6B MEMCHG LBSR IN1ADR INPUT ADDRESS -0513 F8AB 29 2D BVS CHRTN IF NOT HEX, RETURN -0514 F8AD 1F 12 TFR X,Y SAVE ADDR IN "Y" -0515 F8AF 8E FE B2 MEMC2 LDX #MSG5 POINT TO MSG " - " -0516 F8B2 17 02 65 LBSR PSTRNG PRINT MSG -0517 F8B5 1F 21 TFR Y,X FETCH ADDRESS -0518 F8B7 17 03 A5 LBSR OUT4H PRINT ADDR IN HEX -0519 F8BA 17 04 0F LBSR OUT1S OUTPUT SPACE -0520 F8BD A6 A4 LDA ,Y GET CONTENTS OF CURRENT ADDR. -0521 F8BF 17 03 A5 LBSR OUT2H OUTPUT CONTENTS IN ASCII -0522 F8C2 17 04 07 LBSR OUT1S OUTPUT SPACE -0523 F8C5 17 03 5E LBSR BYTE LOOP WAITING FOR OPERATOR INPUT -0524 F8C8 28 11 BVC CHANGE IF VALID HEX GO CHANGE MEM. LOC. -0525 F8CA 81 08 CMPA #8 IS IT A BACKSPACE (CNTRL H)? -0526 F8CC 27 E1 BEQ MEMC2 PROMPT OPERATOR AGAIN -0527 F8CE 81 18 CMPA #$18 IS IT A CANCEL (CNTRL X)? -0528 F8D0 27 DD BEQ MEMC2 PROMPT OPERATOR AGAIN -0529 F8D2 81 5E CMPA #'^ IS IT AN UP ARROW? -0530 F8D4 27 17 BEQ BACK DISPLAY PREVIOUS BYTE -0531 F8D6 81 0D CMPA #$D IS IT A CR? -0532 F8D8 26 0F BNE FORWRD DISPLAY NEXT BYTE -0533 F8DA 39 CHRTN RTS EXIT ROUTINE -0534 * -0535 * -0536 F8DB A7 A4 CHANGE STA ,Y CHANGE BYTE IN MEMORY -0537 F8DD A1 A4 CMPA ,Y DID MEMORY BYTE CHANGE? -0538 F8DF 27 08 BEQ FORWRD $F972 -0539 F8E1 17 03 E8 LBSR OUT1S OUTPUT SPACE -0540 F8E4 86 3F LDA #'? LOAD QUESTION MARK -0541 F8E6 17 03 E5 LBSR OUTCH PRINT IT -0542 F8E9 31 21 FORWRD LEAY 1,Y POINT TO NEXT HIGHER MEM LOCATION -0543 F8EB 20 C2 BRA MEMC2 PRINT LOCATION & CONTENTS -0544 F8ED 31 3F BACK LEAY -1,Y POINT TO LAST MEM LOCATION -0545 F8EF 20 BE BRA MEMC2 PRINT LOCATION & CONTENTS -0546 * -0547 * "S" DISPLAY STACK -0548 * HEX-ASCII DISPLAY OF CURRENT STACK CONTENTS FROM -0549 ** CURRENT STACK POINTER TO INTERNAL STACK LIMIT. +0493 * VECTOR ADDRESS STRING IS..... +0494 * $F8A1-$F8A1-$F8A1-$F8A1-$F8A1-$FAB0-$FFFF-$FFFF +0495 * +0496 F814 8E FE 74 MONITOR LDX #RAMVEC POINT TO VECTOR ADDR. STRING +0497 F817 10 8E DF C0 LDY #STACK POINT TO RAM VECTOR LOCATION +0498 F81B C6 10 LDB #$10 BYTES TO MOVE = 16 +0499 F81D A6 80 LOOPA LDA ,X+ GET VECTOR BYTE +0500 F81F A7 A0 STA ,Y+ PUT VECTORS IN RAM / $DFC0-$DFCF +0501 F821 5A DECB SUBTRACT 1 FROM NUMBER OF BYTES TO MOVE +0502 F822 26 F9 BNE LOOPA CONTINUE UNTIL ALL VECTORS MOVED +0503 * +0504 * CONTENTS FROM TO FUNCTION +0505 * $F8A1 $FE40 $DFC0 USER-V +0506 * $F8A1 $FE42 $DFC2 SWI3-V +0507 * $F8A1 $FE44 $DFC4 SWI2-V +0508 * $F8A1 $FE46 $DFC6 FIRQ-V +0509 * $F8A1 $FE48 $DFC8 IRQ-V +0510 * $FAB0 $FE4A $DFCA SWI-V +0511 * $FFFF $FE4C $DFCC SVC-VO +0512 * $FFFF $FE4E $DFCE SVC-VL +0513 * +0514 F824 8E E0 00 LDX #ACIAS +0515 F827 BF DF E0 STX CPORT STORE ADDR. IN RAM +0516 F82A 17 01 5B LBSR XBKPNT CLEAR OUTSTANDING BREAKPOINTS +0517 F82D C6 0C LDB #12 CLEAR 12 BYTES ON STACK +0518 F82F 6F E2 CLRSTK CLR ,-S +0519 F831 5A DECB +0520 F832 26 FB BNE CLRSTK +0521 F834 30 8C DD LEAX MONITOR,PCR SET PC TO SBUG-E ENTRY +0522 F837 AF 6A STX 10,S ON STACK +0523 F839 86 D0 LDA #$D0 PRESET CONDITION CODES ON STACK +0524 F83B A7 E4 STA ,S +0525 F83D 1F 43 TFR S,U +0526 F83F 17 04 9F LBSR IOINIZ INITIALIZE CONTROL PORT +0527 F842 8E FE 84 LDX #MSG1 POINT TO MONITOR MESSAGE +0528 F845 17 03 47 LBSR PDATA PRINT MSG +0529 * +0530 IFD DATOPT +0531 F848 8E DF D0 LDX #LRARAM POINT TO LRA RAM STORAGE AREA +0532 F84B 4F CLRA START TOTAL AT ZERO +0533 F84C C6 0D LDB #13 TOTAL UP ALL ACTIVE RAM MEMORY +0534 F84E 6D 85 FNDREL TST B,X TEST FOR RAM AT NEXT LOC. +0535 F850 27 03 BEQ RELPAS IF NO RAM GO TO NEXT LOC. +0536 F852 8B 04 ADDA #4 ELSE ADD 4K TO TOTAL +0537 F854 19 DAA ADJ. TOTAL FOR DECIMAL +0538 F855 5A RELPAS DECB SUB. 1 FROM LOCS. TO TEST +0539 F856 2A F6 BPL FNDREL PRINT TOTAL OF RAM +0540 F858 17 04 0C LBSR OUT2H OUTPUT HEX BYTE AS ASCII +0541 F85B 8E FE A3 LDX #MSG2 POINT TO MSG 'K' CR/LF + 3 NULS +0542 F85E 17 03 2E LBSR PDATA PRINT MSG +0543 ENDIF DATOPT +0544 * +0545 IFD TRAOPT +0546 LBSR TRAINZ +0547 ENDIF TRAOPT +0547 ENDIF TRAOPT +0548 * +0549 ***** NEXTCMD ***** 0550 * -0551 F8F1 17 02 A2 DISSTK LBSR PRTSP PRINT CURRENT STACK POINTER -0552 F8F4 1F 32 TFR U,Y -0553 F8F6 8E DF C0 LDX #STACK LOAD INTERNAL STACK AS UPPER LIMIT -0554 F8F9 30 1F LEAX -1,X POINT TO CURRENT STACK -0555 F8FB 20 05 BRA MDUMP1 ENTER MEMORY DUMP OF STACK CONTENTS -0556 * -0557 * "E" DUMP MEMORY FOR EXAMINE IN HEX AND ASCII -0558 * AFTER CALLING 'IN2ADR' LOWER ADDRESS IN Y-REG. -0559 * UPPER ADDRESS IN X-REG. -0560 * IF HEX ADDRESSES ARE INVALID (V)=1. -0561 * -0562 F8FD 17 03 0B MEMDUMP LBSR IN2ADR INPUT ADDRESS BOUNDRIES -0563 F900 29 06 BVS EDPRTN NEW COMMAND IF ILLEGAL HEX -0564 F902 34 20 MDUMP1 PSHS Y COMPARE LOWER TO UPPER BOUNDS -0565 F904 AC E1 CMPX ,S++ LOWER BOUNDS > UPPER BOUNDS? -0566 F906 24 01 BCC AJDUMP IF NOT, DUMP HEX AND ASCII -0567 F908 39 EDPRTN RTS ; -0568 * -0569 * ADJUST LOWER AND UPPER ADDRESS LIMITS -0570 * TO EVEN 16 BYTE BOUNDRIES. -0571 * -0572 * IF LOWER ADDR = $4532 -0573 * LOWER BOUNDS WILL BE ADJUSTED TO = $4530. -0574 * -0575 * IF UPPER ADDR = $4567 -0576 * UPPER BOUNDS WILL BE ADJUSTED TO = $4570. -0577 * -0578 * ENTER WITH LOWER ADDRESS IN X-REG. -0579 * -UPPER ADDRESS ON TOP OF STACK. -0580 * -0581 F909 1F 10 AJDUMP TFR X,D GET UPPER ADDR IN D-REG -0582 F90B C3 00 10 ADDD #$10 ADD 16 TO UPPER ADDRESS -0583 F90E C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY -0584 F910 34 06 PSHS A,B SAVE ON STACK AS UPPER DUMP LIMIT -0585 F912 1F 20 TFR Y,D $F9A5 GET LOWER ADDRESS IN D-REG -0586 F914 C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY -0587 F916 1F 01 TFR D,X PUT IN X-REG AS LOWER DUMP LIMIT -0588 F918 AC E4 NXTLIN CMPX ,S COMPARE LOWER TO UPPER LIMIT -0589 F91A 27 05 BEQ SKPDMP IF EQUAL SKIP HEX-ASCII DUMP -0590 F91C 17 03 9A LBSR INCHEK CHECK FOR INPUT FROM KEYBOARD -0591 F91F 27 03 BEQ EDUMP -0592 F921 32 62 SKPDMP LEAS 2,S READJUST STACK IF NOT DUMPING -0593 F923 39 RTS ; -0594 * -0595 * PRINT 16 HEX BYTES FOLLOWED BY 16 ASCII CHARACTERS -0596 * FOR EACH LINE THROUGHOUT ADDRESS LIMITS. -0597 * -0598 F924 34 10 EDUMP PSHS X PUSH LOWER ADDR LIMIT ON STACK -0599 F926 8E FE B2 LDX #MSG5 POINT TO MSG " - " -0600 F929 17 01 EE LBSR PSTRNG PRINT MSG -0601 F92C AE E4 LDX ,S LOAD LOWER ADDR FROM TOP OF STACK -0602 F92E 17 03 2E LBSR OUT4H PRINT THE ADDRESS -0603 F931 17 03 96 LBSR OUT2S 2 SPACES -0604 F934 C6 10 LDB #$10 LOAD COUNT OF 16 BYTES TO DUMP -0605 F936 A6 80 ELOOP LDA ,X+ GET FROM MEMORY HEX BYTE TO PRINT -0606 F938 17 03 2C LBSR OUT2H OUTPUT HEX BYTE AS ASCII -0607 F93B 17 03 8E LBSR OUT1S OUTPUT SPACE -0608 F93E 5A DECB $F9D1 DECREMENT BYTE COUNT -0609 F93F 26 F5 BNE ELOOP CONTINUE TIL 16 HEX BYTES PRINTED -0610 * -0611 * PRINT 16 ASCII CHARACTERS -0612 * IF NOT PRINTABLE OR NOT VALID -0613 * ASCII PRINT A PERIOD (.) -0614 F941 17 03 86 LBSR OUT2S 2 SPACES -0615 F944 AE E1 LDX ,S++ GET LOW LIMIT FRM STACK - ADJ STACK -0616 F946 C6 10 LDB #$10 SET ASCII CHAR TO PRINT = 16 -0617 F948 A6 80 EDPASC LDA ,X+ GET CHARACTER FROM MEMORY -0618 F94A 81 20 CMPA #$20 IF LESS THAN $20, NON-PRINTABLE? -0619 F94C 25 04 BCS PERIOD IF SO, PRINT PERIOD INSTEAD -0620 F94E 81 7E CMPA #$7E IS IT VALID ASCII? -0621 F950 23 02 BLS PRASC IF SO PRINT IT -0622 F952 86 2E PERIOD LDA #'. LOAD A PERIOD (.) -0623 F954 17 03 77 PRASC LBSR OUTCH PRINT ASCII CHARACTER -0624 F957 5A DECB DECREMENT COUNT -0625 F958 26 EE BNE EDPASC -0626 F95A 20 BC BRA NXTLIN -0627 * -0628 ***** "B" SET BREAKPOINT ***** -0629 * -0630 F95C 17 02 B7 BRKPNT LBSR IN1ADR GET BREAKPOINT ADDRESS -0631 F95F 29 1E BVS EXITBP EXIT IF INVALID HEX ADDR. -0632 F961 8C DF C0 CMPX #STACK ADDRESS ILLEGAL IF >=$DFC0 -0633 F964 24 1A BCC BPERR IF ERROR PRINT (?), EXIT -0634 F966 34 10 PSHS X $FA82 PUSH BP ADDRESS ON STACK -0635 F968 8E FF FF LDX #$FFFF LOAD DUMMY ADDR TO TEST BP TABLE -0636 F96B 8D 55 BSR BPTEST TEST BP TABLE FOR FREE SPACE -0637 F96D 35 10 PULS X POP BP ADDRESS FROM STACK -0638 F96F 27 0F BEQ BPERR (Z) SET, OUT OF BP TABLE SPACE -0639 F971 A6 84 LDA ,X GET DATA AT BREAKPOINT ADDRESS -0640 F973 81 3F CMPA #$3F IS IT A SWI? -0641 F975 27 09 BEQ BPERR IF SWI ALREADY, INDICATE ERROR -0642 F977 A7 A0 STA ,Y+ SAVE DATA BYTE IN BP TABLE -0643 F979 AF A4 STX ,Y SAVE BP ADDRESS IN BP TABLE -0644 F97B 86 3F LDA #$3F LOAD A SWI ($3F) -0645 F97D A7 84 STA ,X SAVE SWI AT BREAKPOINT ADDRESS -0646 F97F 39 EXITBP RTS ; -0647 * -0648 * INDICATE ERROR SETTING BREAKPOINT -0649 * -0650 F980 17 03 49 BPERR LBSR OUT1S OUTPUT SPACE -0651 F983 86 3F LDA #'? LOAD (?), INDICATE BREAKPOINT ERROR -0652 F985 16 03 46 LBRA OUTCH PRINT "?" -0653 * -0654 *** "X" CLEAR OUTSTANDING BREAKPOINTS *** -0655 * -0656 F988 10 8E DF E3 XBKPNT LDY #BPTBL POINT TO BREAKPOINT TABLE -0657 F98C C6 08 LDB #8 LOAD BREAKPOINT COUNTER -0658 F98E 8D 18 XBPLP BSR RPLSWI REMOVE USED ENTRY IN BP TABLE -0659 F990 5A DECB $FAAC DECREMENT BP COUNTER -0660 F991 26 FB BNE XBPLP END OF BREAKPOINT TABLE? -0661 F993 39 RTS -0662 * -0663 ***** SWI ENTRY POINT ***** -0664 * -0665 F994 1F 43 SWIE TFR S,U TRANSFER STACK TO USER POINTER -0666 F996 AE 4A LDX 10,U LOAD PC FROM STACK INTO X-REG -0667 F998 30 1F LEAX -1,X ADJUST ADDR DOWN 1 BYTE. -0668 F99A 8D 26 BSR BPTEST FIND BREAKPOINT IN BP TABLE -0669 F99C 27 04 BEQ REGPR IF FOUND, REPLACE DATA AT BP ADDR -0670 F99E AF 4A STX 10,U SAVE BREAKPOINT ADDR IN STACK -0671 F9A0 8D 06 BSR RPLSWI GO REPLACE SWI WITH ORIGINAL DATA -0672 F9A2 17 02 48 REGPR LBSR REGSTR GO PRINT REGISTERS -0673 F9A5 16 FE B9 LBRA NEXTCMD GET NEXT COMMAND -0674 F9A8 AE 21 RPLSWI LDX 1,Y LOAD BP ADDRESS FROM BP TABLE -0675 F9AA 8C DF C0 CMPX #STACK COMPARE TO TOP AVAILABLE USER MEMORY -0676 F9AD 24 0A BCC FFSTBL GO RESET TABLE ENTRY TO $FF'S -0677 F9AF A6 84 LDA ,X GET DATA FROM BP ADDRESS -0678 F9B1 81 3F CMPA #$3F IS IT SWI? -0679 F9B3 26 04 BNE FFSTBL IF NOT, RESET TABLE ENTRY TO $FF'S -0680 F9B5 A6 A4 LDA ,Y GET ORIGINAL DATA FROM BP TABLE -0681 F9B7 A7 84 STA ,X $FAD3 RESTORE DATA AT BP ADDRESS -0682 F9B9 86 FF FFSTBL LDA #$FF LOAD $FF IN A-ACC -0683 F9BB A7 A0 STA ,Y+ RESET BREAKPOINT TABLE DATA TO $FF'S -0684 F9BD A7 A0 STA ,Y+ RESET BREAKPOINT TABLE ADDR TO $FF'S -0685 F9BF A7 A0 STA ,Y+ -0686 F9C1 39 RTS -0687 * -0688 ** SEARCH BREAKPOINT TABLE FOR MATCH ** -0689 * -0690 F9C2 10 8E DF E3 BPTEST LDY #BPTBL POINT TO BREAKPOINT TABLE -0691 F9C6 C6 08 LDB #8 LOAD BREAKPOINT COUNTER -0692 F9C8 A6 A0 FNDBP LDA ,Y+ LOAD DATA BYTE -0693 F9CA AC A1 CMPX ,Y++ COMPARE ADDRESS, IS IT SAME? -0694 F9CC 27 04 BEQ BPADJ IF SO, ADJUST POINTER FOR TABLE ENTRY -0695 F9CE 5A DECB IF NOT, DECREMENT BREAKPOINT COUNTER -0696 F9CF 26 F7 BNE FNDBP AND LOOK FOR NEXT POSSIBLE MATCH -0697 F9D1 39 RTS ; -0698 * -0699 * -0700 F9D2 31 3D BPADJ LEAY -3,Y MOVE POINTER TO BEGIN OF BP ENTRY -0701 F9D4 39 RTS -0702 * -0703 IFD MFDCOPT -0704 * -0705 ** "U" MINI DISK BOOT -0706 * -0707 MINBOOT TST CMDFDC -0708 CLR DRVFDC -0709 LDX #$0000 -0710 LOOP LEAX $01,X -0711 CMPX #$0000 -0712 BNE LOOP -0713 LDA #$0F -0714 STA CMDFDC -0715 BSR DELAY -0716 LOOP1 LDB CMDFDC -0717 BITB #$01 -0718 BNE LOOP1 -0719 LDA #$01 -0720 STA SECFDC -0721 BSR DELAY -0722 LDA #$8C -0723 STA CMDFDC -0724 BSR DELAY -0725 LDX #$C000 -0726 BRA LOOP3 -0727 LOOP2 BITB #$02 -0728 BEQ LOOP3 -0729 LDA DATFDC -0730 STA ,X+ -0731 LOOP3 LDB CMDFDC -0732 BITB #$01 -0733 BNE LOOP2 -0734 BITB #$2C -0735 BEQ LOOP4 -0736 RTS -0737 * -0738 LOOP4 LDX #$C000 -0739 STX $0A,U -0740 TFR U,S -0741 RTI -0742 * -0743 DELAY LDB #$04 -0744 LOOP5 DECB -0745 BNE LOOP5 -0746 RTS -0747 ENDIF MFDCOPT -0747 ENDIF MFDCOPT -0748 * -0749 IFD DMAFOPT -0750 * -0751 *** "D" DISK BOOT FOR DMAF2 *** -0752 * -0753 DBOOT LDA #$DE -0754 STA DRVREG -0755 LDA #$FF -0756 STA PRIREG $FAF8 -0757 STA CCREG -0758 STA AAAREG -0759 STA BBBREG -0760 TST CCREG -0761 LDA #$D8 -0762 STA COMREG -0763 LBSR DLY -0764 DBOOT0 LDA COMREG -0765 BMI DBOOT0 -0766 LDA #$09 -0767 STA COMREG -0768 LBSR DLY -0769 * -0770 DISKWT LDA COMREG FETCH DRIVE STATUS -0771 BITA #1 TEST BUSY BIT -0772 BNE DISKWT LOOP UNTIL NOT BUSY -0773 * -0774 BITA #$10 -0775 BNE DBOOT +0551 F861 8E FE AA NEXTCMD LDX #MSG3 POINT TO MSG ">" +0552 F864 17 02 B3 LBSR PSTRNG PRINT MSG +0553 F867 17 04 37 LBSR INCH GET ONE CHAR. FROM TERMINAL +0554 F86A 84 7F ANDA #$7F STRIP PARITY FROM CHAR. +0555 F86C 81 0D CMPA #$0D IS IT CARRIAGE RETURN ? +0556 F86E 27 F1 BEQ NEXTCMD IF CR THEN GET ANOTHER CHAR. +0557 F870 1F 89 TFR A,B PUT CHAR. IN "B" ACCUM. +0558 F872 81 20 CMPA #$20 IS IT CONTROL OR DATA CHAR ? +0559 F874 2C 09 BGE PRTCMD IF CMD CHAR IS DATA, PRNT IT +0560 F876 86 5E LDA #'^ ELSE CNTRL CHAR CMD SO... +0561 F878 17 04 53 LBSR OUTCH PRINT "^" +0562 F87B 1F 98 TFR B,A RECALL CNTRL CMD CHAR +0563 F87D 8B 40 ADDA #$40 CONVERT IT TO ASCII LETTER +0564 F87F 17 04 4C PRTCMD LBSR OUTCH PRNT CMD CHAR +0565 F882 17 04 47 LBSR OUT1S PRNT SPACE +0566 F885 C1 60 CMPB #$60 +0567 F887 2F 02 BLE NXTCH0 +0568 F889 C0 20 SUBB #$20 +0569 * +0570 ***** DO TABLE LOOKUP ***** +0571 * FOR COMMAND FUNCTIONS +0572 * +0573 F88B 8E FE 3B NXTCH0 LDX #JMPTAB POINT TO JUMP TABLE +0574 F88E E1 80 NXTCHR CMPB ,X+ DOES COMMAND MATCH TABLE ENTRY ? +0575 F890 27 0F BEQ JMPCMD BRANCH IF MATCH FOUND +0576 F892 30 02 LEAX 2,X POINT TO NEXT ENTRY IN TABLE +0577 F894 8C FE 74 CMPX #TABEND REACHED END OF TABLE YET ? +0578 F897 26 F5 BNE NXTCHR IF NOT END, CHECK NEXT ENTRY +0579 F899 8E FE AC LDX #MSG4 POINT TO MSG "WHAT?" +0580 F89C 17 02 F0 LBSR PDATA PRINT MSG +0581 F89F 20 C0 BRA NEXTCMD IF NO MATCH, PRMPT FOR NEW CMD +0582 F8A1 AD 94 JMPCMD JSR [,X] JUMP TO COMMAND ROUTINE +0583 F8A3 20 BC BRA NEXTCMD PROMPT FOR NEW COMMAND +0584 * +0585 * "G" GO OR CONTINUE +0586 * +0587 F8A5 1F 34 GO TFR U,S +0588 F8A7 3B RTI RTI +0589 * +0590 ***** "M" MEMORY EXAMINE AND CHANGE ***** +0591 * +0592 F8A8 17 03 6B MEMCHG LBSR IN1ADR INPUT ADDRESS +0593 F8AB 29 2D BVS CHRTN IF NOT HEX, RETURN +0594 F8AD 1F 12 TFR X,Y SAVE ADDR IN "Y" +0595 F8AF 8E FE B2 MEMC2 LDX #MSG5 POINT TO MSG " - " +0596 F8B2 17 02 65 LBSR PSTRNG PRINT MSG +0597 F8B5 1F 21 TFR Y,X FETCH ADDRESS +0598 F8B7 17 03 A5 LBSR OUT4H PRINT ADDR IN HEX +0599 F8BA 17 04 0F LBSR OUT1S OUTPUT SPACE +0600 F8BD A6 A4 LDA ,Y GET CONTENTS OF CURRENT ADDR. +0601 F8BF 17 03 A5 LBSR OUT2H OUTPUT CONTENTS IN ASCII +0602 F8C2 17 04 07 LBSR OUT1S OUTPUT SPACE +0603 F8C5 17 03 5E LBSR BYTE LOOP WAITING FOR OPERATOR INPUT +0604 F8C8 28 11 BVC CHANGE IF VALID HEX GO CHANGE MEM. LOC. +0605 F8CA 81 08 CMPA #8 IS IT A BACKSPACE (CNTRL H)? +0606 F8CC 27 E1 BEQ MEMC2 PROMPT OPERATOR AGAIN +0607 F8CE 81 18 CMPA #$18 IS IT A CANCEL (CNTRL X)? +0608 F8D0 27 DD BEQ MEMC2 PROMPT OPERATOR AGAIN +0609 F8D2 81 5E CMPA #'^ IS IT AN UP ARROW? +0610 F8D4 27 17 BEQ BACK DISPLAY PREVIOUS BYTE +0611 F8D6 81 0D CMPA #$D IS IT A CR? +0612 F8D8 26 0F BNE FORWRD DISPLAY NEXT BYTE +0613 F8DA 39 CHRTN RTS EXIT ROUTINE +0614 * +0615 * +0616 F8DB A7 A4 CHANGE STA ,Y CHANGE BYTE IN MEMORY +0617 F8DD A1 A4 CMPA ,Y DID MEMORY BYTE CHANGE? +0618 F8DF 27 08 BEQ FORWRD $F972 +0619 F8E1 17 03 E8 LBSR OUT1S OUTPUT SPACE +0620 F8E4 86 3F LDA #'? LOAD QUESTION MARK +0621 F8E6 17 03 E5 LBSR OUTCH PRINT IT +0622 F8E9 31 21 FORWRD LEAY 1,Y POINT TO NEXT HIGHER MEM LOCATION +0623 F8EB 20 C2 BRA MEMC2 PRINT LOCATION & CONTENTS +0624 F8ED 31 3F BACK LEAY -1,Y POINT TO LAST MEM LOCATION +0625 F8EF 20 BE BRA MEMC2 PRINT LOCATION & CONTENTS +0626 * +0627 * "S" DISPLAY STACK +0628 * HEX-ASCII DISPLAY OF CURRENT STACK CONTENTS FROM +0629 ** CURRENT STACK POINTER TO INTERNAL STACK LIMIT. +0630 * +0631 F8F1 17 02 A2 DISSTK LBSR PRTSP PRINT CURRENT STACK POINTER +0632 F8F4 1F 32 TFR U,Y +0633 F8F6 8E DF C0 LDX #STACK LOAD INTERNAL STACK AS UPPER LIMIT +0634 F8F9 30 1F LEAX -1,X POINT TO CURRENT STACK +0635 F8FB 20 05 BRA MDUMP1 ENTER MEMORY DUMP OF STACK CONTENTS +0636 * +0637 * "E" DUMP MEMORY FOR EXAMINE IN HEX AND ASCII +0638 * AFTER CALLING 'IN2ADR' LOWER ADDRESS IN Y-REG. +0639 * UPPER ADDRESS IN X-REG. +0640 * IF HEX ADDRESSES ARE INVALID (V)=1. +0641 * +0642 F8FD 17 03 0B MEMDUMP LBSR IN2ADR INPUT ADDRESS BOUNDRIES +0643 F900 29 06 BVS EDPRTN NEW COMMAND IF ILLEGAL HEX +0644 F902 34 20 MDUMP1 PSHS Y COMPARE LOWER TO UPPER BOUNDS +0645 F904 AC E1 CMPX ,S++ LOWER BOUNDS > UPPER BOUNDS? +0646 F906 24 01 BCC AJDUMP IF NOT, DUMP HEX AND ASCII +0647 F908 39 EDPRTN RTS ; +0648 * +0649 * ADJUST LOWER AND UPPER ADDRESS LIMITS +0650 * TO EVEN 16 BYTE BOUNDRIES. +0651 * +0652 * IF LOWER ADDR = $4532 +0653 * LOWER BOUNDS WILL BE ADJUSTED TO = $4530. +0654 * +0655 * IF UPPER ADDR = $4567 +0656 * UPPER BOUNDS WILL BE ADJUSTED TO = $4570. +0657 * +0658 * ENTER WITH LOWER ADDRESS IN X-REG. +0659 * -UPPER ADDRESS ON TOP OF STACK. +0660 * +0661 F909 1F 10 AJDUMP TFR X,D GET UPPER ADDR IN D-REG +0662 F90B C3 00 10 ADDD #$10 ADD 16 TO UPPER ADDRESS +0663 F90E C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY +0664 F910 34 06 PSHS A,B SAVE ON STACK AS UPPER DUMP LIMIT +0665 F912 1F 20 TFR Y,D $F9A5 GET LOWER ADDRESS IN D-REG +0666 F914 C4 F0 ANDB #$F0 MASK TO EVEN 16 BYTE BOUNDRY +0667 F916 1F 01 TFR D,X PUT IN X-REG AS LOWER DUMP LIMIT +0668 F918 AC E4 NXTLIN CMPX ,S COMPARE LOWER TO UPPER LIMIT +0669 F91A 27 05 BEQ SKPDMP IF EQUAL SKIP HEX-ASCII DUMP +0670 F91C 17 03 9A LBSR INCHEK CHECK FOR INPUT FROM KEYBOARD +0671 F91F 27 03 BEQ EDUMP +0672 F921 32 62 SKPDMP LEAS 2,S READJUST STACK IF NOT DUMPING +0673 F923 39 RTS ; +0674 * +0675 * PRINT 16 HEX BYTES FOLLOWED BY 16 ASCII CHARACTERS +0676 * FOR EACH LINE THROUGHOUT ADDRESS LIMITS. +0677 * +0678 F924 34 10 EDUMP PSHS X PUSH LOWER ADDR LIMIT ON STACK +0679 F926 8E FE B2 LDX #MSG5 POINT TO MSG " - " +0680 F929 17 01 EE LBSR PSTRNG PRINT MSG +0681 F92C AE E4 LDX ,S LOAD LOWER ADDR FROM TOP OF STACK +0682 F92E 17 03 2E LBSR OUT4H PRINT THE ADDRESS +0683 F931 17 03 96 LBSR OUT2S 2 SPACES +0684 F934 C6 10 LDB #$10 LOAD COUNT OF 16 BYTES TO DUMP +0685 F936 A6 80 ELOOP LDA ,X+ GET FROM MEMORY HEX BYTE TO PRINT +0686 F938 17 03 2C LBSR OUT2H OUTPUT HEX BYTE AS ASCII +0687 F93B 17 03 8E LBSR OUT1S OUTPUT SPACE +0688 F93E 5A DECB $F9D1 DECREMENT BYTE COUNT +0689 F93F 26 F5 BNE ELOOP CONTINUE TIL 16 HEX BYTES PRINTED +0690 * +0691 * PRINT 16 ASCII CHARACTERS +0692 * IF NOT PRINTABLE OR NOT VALID +0693 * ASCII PRINT A PERIOD (.) +0694 F941 17 03 86 LBSR OUT2S 2 SPACES +0695 F944 AE E1 LDX ,S++ GET LOW LIMIT FRM STACK - ADJ STACK +0696 F946 C6 10 LDB #$10 SET ASCII CHAR TO PRINT = 16 +0697 F948 A6 80 EDPASC LDA ,X+ GET CHARACTER FROM MEMORY +0698 F94A 81 20 CMPA #$20 IF LESS THAN $20, NON-PRINTABLE? +0699 F94C 25 04 BCS PERIOD IF SO, PRINT PERIOD INSTEAD +0700 F94E 81 7E CMPA #$7E IS IT VALID ASCII? +0701 F950 23 02 BLS PRASC IF SO PRINT IT +0702 F952 86 2E PERIOD LDA #'. LOAD A PERIOD (.) +0703 F954 17 03 77 PRASC LBSR OUTCH PRINT ASCII CHARACTER +0704 F957 5A DECB DECREMENT COUNT +0705 F958 26 EE BNE EDPASC +0706 F95A 20 BC BRA NXTLIN +0707 * +0708 ***** "B" SET BREAKPOINT ***** +0709 * +0710 F95C 17 02 B7 BRKPNT LBSR IN1ADR GET BREAKPOINT ADDRESS +0711 F95F 29 1E BVS EXITBP EXIT IF INVALID HEX ADDR. +0712 F961 8C DF C0 CMPX #STACK ADDRESS ILLEGAL IF >=$DFC0 +0713 F964 24 1A BCC BPERR IF ERROR PRINT (?), EXIT +0714 F966 34 10 PSHS X $FA82 PUSH BP ADDRESS ON STACK +0715 F968 8E FF FF LDX #$FFFF LOAD DUMMY ADDR TO TEST BP TABLE +0716 F96B 8D 55 BSR BPTEST TEST BP TABLE FOR FREE SPACE +0717 F96D 35 10 PULS X POP BP ADDRESS FROM STACK +0718 F96F 27 0F BEQ BPERR (Z) SET, OUT OF BP TABLE SPACE +0719 F971 A6 84 LDA ,X GET DATA AT BREAKPOINT ADDRESS +0720 F973 81 3F CMPA #$3F IS IT A SWI? +0721 F975 27 09 BEQ BPERR IF SWI ALREADY, INDICATE ERROR +0722 F977 A7 A0 STA ,Y+ SAVE DATA BYTE IN BP TABLE +0723 F979 AF A4 STX ,Y SAVE BP ADDRESS IN BP TABLE +0724 F97B 86 3F LDA #$3F LOAD A SWI ($3F) +0725 F97D A7 84 STA ,X SAVE SWI AT BREAKPOINT ADDRESS +0726 F97F 39 EXITBP RTS ; +0727 * +0728 * INDICATE ERROR SETTING BREAKPOINT +0729 * +0730 F980 17 03 49 BPERR LBSR OUT1S OUTPUT SPACE +0731 F983 86 3F LDA #'? LOAD (?), INDICATE BREAKPOINT ERROR +0732 F985 16 03 46 LBRA OUTCH PRINT "?" +0733 * +0734 *** "X" CLEAR OUTSTANDING BREAKPOINTS *** +0735 * +0736 F988 10 8E DF E3 XBKPNT LDY #BPTBL POINT TO BREAKPOINT TABLE +0737 F98C C6 08 LDB #8 LOAD BREAKPOINT COUNTER +0738 F98E 8D 18 XBPLP BSR RPLSWI REMOVE USED ENTRY IN BP TABLE +0739 F990 5A DECB $FAAC DECREMENT BP COUNTER +0740 F991 26 FB BNE XBPLP END OF BREAKPOINT TABLE? +0741 F993 39 RTS +0742 * +0743 ***** SWI ENTRY POINT ***** +0744 * +0745 F994 1F 43 SWIE TFR S,U TRANSFER STACK TO USER POINTER +0746 F996 AE 4A LDX 10,U LOAD PC FROM STACK INTO X-REG +0747 F998 30 1F LEAX -1,X ADJUST ADDR DOWN 1 BYTE. +0748 F99A 8D 26 BSR BPTEST FIND BREAKPOINT IN BP TABLE +0749 F99C 27 04 BEQ REGPR IF FOUND, REPLACE DATA AT BP ADDR +0750 F99E AF 4A STX 10,U SAVE BREAKPOINT ADDR IN STACK +0751 F9A0 8D 06 BSR RPLSWI GO REPLACE SWI WITH ORIGINAL DATA +0752 F9A2 17 02 48 REGPR LBSR REGSTR GO PRINT REGISTERS +0753 * +0754 IFD TRAOPT +0755 LDX #0 +0756 STX TRACNT +0757 ENDIF TRAOPT +0757 ENDIF TRAOPT +0758 * +0759 F9A5 16 FE B9 LBRA NEXTCMD GET NEXT COMMAND +0760 * +0761 F9A8 AE 21 RPLSWI LDX 1,Y LOAD BP ADDRESS FROM BP TABLE +0762 F9AA 8C DF C0 CMPX #STACK COMPARE TO TOP AVAILABLE USER MEMORY +0763 F9AD 24 0A BCC FFSTBL GO RESET TABLE ENTRY TO $FF'S +0764 F9AF A6 84 LDA ,X GET DATA FROM BP ADDRESS +0765 F9B1 81 3F CMPA #$3F IS IT SWI? +0766 F9B3 26 04 BNE FFSTBL IF NOT, RESET TABLE ENTRY TO $FF'S +0767 F9B5 A6 A4 LDA ,Y GET ORIGINAL DATA FROM BP TABLE +0768 F9B7 A7 84 STA ,X $FAD3 RESTORE DATA AT BP ADDRESS +0769 F9B9 86 FF FFSTBL LDA #$FF LOAD $FF IN A-ACC +0770 F9BB A7 A0 STA ,Y+ RESET BREAKPOINT TABLE DATA TO $FF'S +0771 F9BD A7 A0 STA ,Y+ RESET BREAKPOINT TABLE ADDR TO $FF'S +0772 F9BF A7 A0 STA ,Y+ +0773 F9C1 39 RTS +0774 * +0775 ** SEARCH BREAKPOINT TABLE FOR MATCH ** 0776 * -0777 LDX #$C000 LOGICAL ADDR. = $C000 -0778 BSR LRA GET 20 BIT PHYSICAL ADDR. OF LOG. ADDR. -0779 ORA #$10 -0780 STA CCCREG -0781 TFR X,D -0782 COMA ; -0783 COMB ; -0784 STD ADDREG -0785 LDX #$FEFF LOAD DMA BYTE COUNT = $100 -0786 STX CNTREG STORE IN COUNT REGISTER -0787 LDA #$FF LOAD THE CHANNEL REGISTER -0788 STA CCREG -0789 LDA #$FE SET CHANNEL 0 -0790 STA PRIREG -0791 LDA #1 SET SECTOR TO "1" -0792 STA SECREG ISSUE COMMAND -0793 LDA #$8C SET SINGLE SECTOR READ -0794 STA COMREG ISSUE COMMAND -0795 BSR DLY -0796 * -0797 * THE FOLLOWING CODE TESTS THE STATUS OF THE -0798 * CHANNEL CONTROL REGISTER. IF "D7" IS NOT -0799 * ZERO THEN IT WILL LOOP WAITING FOR "D7" -0800 * TO GO TO ZERO. IF AFTER 65,536 TRIES IT -0801 * IS STILL A ONE THE BOOT OPERATION WILL -0802 * BE STARTED OVER FROM THE BEGINING. -0803 * -0804 CLRB ; -0805 DBOOT1 PSHS B $FB55 -0806 CLRB ; -0807 DBOOT2 TST CCREG -0808 BPL DBOOT3 -0809 DECB ; -0810 BNE DBOOT2 -0811 PULS B -0812 DECB -0813 BNE DBOOT1 -0814 BRA DBOOT -0815 DBOOT3 PULS B -0816 LDA COMREG -0817 BITA #$1C -0818 BEQ DBOOT4 -0819 RTS ; -0820 * -0821 * -0822 DBOOT4 LDB #$DE -0823 STB DRVREG -0824 LDX #$C000 -0825 STX 10,U -0826 TFR U,S $FB7B -0827 RTI ; -0828 ENDIF DMAFOPT -0828 ENDIF DMAFOPT +0777 F9C2 10 8E DF E3 BPTEST LDY #BPTBL POINT TO BREAKPOINT TABLE +0778 F9C6 C6 08 LDB #8 LOAD BREAKPOINT COUNTER +0779 F9C8 A6 A0 FNDBP LDA ,Y+ LOAD DATA BYTE +0780 F9CA AC A1 CMPX ,Y++ COMPARE ADDRESS, IS IT SAME? +0781 F9CC 27 04 BEQ BPADJ IF SO, ADJUST POINTER FOR TABLE ENTRY +0782 F9CE 5A DECB IF NOT, DECREMENT BREAKPOINT COUNTER +0783 F9CF 26 F7 BNE FNDBP AND LOOK FOR NEXT POSSIBLE MATCH +0784 F9D1 39 RTS ; +0785 * +0786 * +0787 F9D2 31 3D BPADJ LEAY -3,Y MOVE POINTER TO BEGIN OF BP ENTRY +0788 F9D4 39 RTS +0789 * +0790 IFD TRAOPT +0791 * +0792 ** TRACE from address AAAA BB bytes +0793 * +0794 TRACE LBSR ALTPC1 SET UP NEW PC +0795 BVS TREXIT ADDRESS ERROR, EXIT +0796 LBSR OUT1S +0797 LBSR IN1ADR Fetch Byte Count +0798 BVS TREXIT Byte Count error, EXIT +0799 STX TRACNT +0800 * +0801 LDX NMI Save NMI Vector +0802 STX NMISAV +0803 LDX #NMIE Set up NMI for Tracing +0804 STX NMI +0805 LBSR TRAINZ Initialise Hardware +0806 BRA TRACEG Start Trace +0807 TREXIT RTS +0808 * +0809 * CRA0 = 0 CA1 IRQ DISAB, CRA0 = 1 CA1 IRQ ENAB +0810 * CRA1 = 1 CA1 Rising edge IRQ +0811 * CRA2 = 0 TADATA = Data Direction, CRA2 = 1 TADATA = I/O Register +0812 * CRA3 = 0 CA2 = 0 output, CRA3 = 1 CA2 = 1 +0813 * CRA4 = 1 ] CA2 = Set/Reset output +0814 * CRA5 = 1 ] +0815 * CRA6 = X CA2 Input Interrupt Flag +0816 * CRA7 = X CA1 Interrupt Flag +0817 * +0818 * CRB0 = 0 CB1 IRQ DISAB, CRB0 = 1 CA1 IRQ ENAB +0819 * CRB1 = 1 CB1 Rising edge IRQ +0820 * CRB2 = 0 TBDATA = Data Direction, CRB2 = 1 TBDATA = I/O Register +0821 * CRB3 = 0 CB2 = 0 output, CRB3 = 1 CB2 = 1 +0822 * CRB4 = 1 ] CB2 = Set/Reset output +0823 * CRB5 = 1 ] +0824 * CRB6 = X CB2 Input Interrupt Flag +0825 * CRB7 = X CB1 Interrupt Flag +0826 * +0827 * +0828 ** TRACE NMI ENTRY POINT 0829 * -0830 IFD FPGAOPT -0831 * -0832 * COMPACT FLASH BOOT -0833 * -0834 F9D5 8D 40 CFBOOT BSR WAITRDY -0835 F9D7 86 E0 LDA #HEADLBA -0836 F9D9 B7 E0 46 STA CF_HEAD -0837 F9DC 8D 39 BSR WAITRDY -0838 F9DE 86 01 LDA #FEAT8BIT -0839 F9E0 B7 E0 41 STA CF_FEATURE -0840 F9E3 86 EF LDA #CMDFEATURE -0841 F9E5 B7 E0 47 STA CF_COMAND -0842 F9E8 8D 2D BSR WAITRDY -0843 * -0844 * READ SECTORS FROM CF -0845 * -0846 F9EA 86 01 CFREAD LDA #$01 -0847 F9EC B7 E0 42 STA CF_SECCNT -0848 F9EF 4F CLRA -0849 F9F0 B7 E0 43 STA CF_SECNUM -0850 F9F3 B7 E0 44 STA CF_CYLLO -0851 F9F6 B7 E0 45 STA CF_CYLHI -0852 * -0853 F9F9 86 20 LDA #CMDREAD ; IDE READ MULTIPLE -0854 F9FB B7 E0 47 STA CF_COMAND -0855 F9FE 8D 17 BSR WAITRDY -0856 FA00 8E C0 00 LDX #$C000 -0857 * -0858 * READ LOOP -0859 * -0860 FA03 8D 21 RDLOOP BSR WAITDRQ -0861 FA05 B6 E0 40 LDA CF_DATA -0862 FA08 A7 80 STA ,X+ -0863 FA0A 8C C2 00 CMPX #$C200 -0864 FA0D 26 F4 BNE RDLOOP -0865 * -0866 FA0F 8E C0 00 LDX #$C000 -0867 FA12 AF 4A STX $0A,U -0868 FA14 1F 34 TFR U,S -0869 FA16 3B RTI -0870 * -0871 * WAIT UNTIL READY -0872 * -0873 FA17 B6 E0 47 WAITRDY LDA CF_STATUS -0874 FA1A 85 80 BITA #BUSY -0875 FA1C 26 F9 BNE WAITRDY -0876 FA1E B6 E0 47 LDA CF_STATUS -0877 FA21 85 40 BITA #DRDY -0878 FA23 27 F2 BEQ WAITRDY -0879 FA25 39 RTS +0830 NMIE TFR S,U +0831 LDA #$36 Disable Interrupt, CA2 Low +0832 STA TACTRL +0833 LDA TADATA Clear Interrupt flag by reading data port +0834 * +0835 LBSR REGSTR DUMP REGISTERS +0836 * +0837 LDX 10,U TEST IF NEXT INSTRUCTION IS A SWI +0838 LDA ,X +0839 CMPA #$3F +0840 BEQ TRACEX EXIT ON SWI +0841 * +0842 LDX TRACNT CHECK IF TRACE COUNT EXPIRED +0843 BEQ TRACEX YES, GO BACK TO THE MONITOR +0844 LEAX -1,X DECREMENT TRACE COUNT +0845 STX TRACNT +0846 * +0847 ** TRACE GO (RESUME SINGLE STEP) +0848 * +0849 TRACEG TFR U,S SET UP PROGRAM STACK POINTER +0850 LDA #TRADEL SET UP TIMER DELAY (NUMB CYCLES FOR RTI+1) +0851 STA TADATA +0852 LDA #$36 LOAD STROBE LOW +0853 STA TACTRL +0854 LDA TADATA CLEAR INTERRUPT +0855 LDA #$36 RELEASE RESET +0856 STA TBCTRL +0857 LDA #$3F RELEASE LOAD, ENABLE CA1 NMI, CA1 RISING EDGE +0858 STA TACTRL +0859 RTI GO EXECUTE INSTRUCTION +0860 * +0861 TRACEX LDX NMISAV Restore NMI vector +0862 STX NMI +0863 LBRA NEXTCMD Jump back to the command loop. +0864 * +0865 ** TRACE HARDWARE INITIALISATION +0866 * +0867 TRAINZ LDA #$32 SELECT DDRA, CA2 LOW, NMI DISABLED +0868 STA TACTRL +0869 LDA #$3A SELECT DDRB, CB2 HIGH, FIRQ DISABLED +0870 STA TBCTRL +0871 LDA #$FF PORTA = OUTPUT +0872 STA TADATA +0873 LDA #$00 PORTB = INPUT +0874 STA TBDATA +0875 LDA #$36 SELECT OUTPUT REGISTER A, CA2 LOW +0876 STA TACTRL +0877 LDA #$3E SELECT OUTPUT REGISTER B, CB2 HIGH +0878 STA TBCTRL +0879 RTS 0880 * -0881 * WAIT FOR DATA REQUEST -0882 * -0883 FA26 B6 E0 47 WAITDRQ LDA CF_STATUS -0884 FA29 85 08 BITA #DRQ -0885 FA2B 27 F9 BEQ WAITDRQ -0886 FA2D 39 RTS -0887 ENDIF FPGAOPT -0888 * -0889 IFD RTCOPT -0890 * -0891 * CLOCK INTER FACE UTILITY -0892 * -0893 * TIME -0894 * If no argument is specified, the current time -0895 * will be displayed. -0896 * -0897 * READ A REGISTER FROM THE COUNTER. -0898 * The X Index rgister points to the register -0899 * to be read. The Status Register is checked -0900 * before and after the register is read before -0901 * returning a value in accumulator A -0902 * -0903 RDCLK TST CLKSTA -0904 BNE RDCLK -0905 RDCLK1 LDA 0,X -0906 TST CLKSTA -0907 BNE RDCLK1 -0908 RTS -0909 * -0910 * MAIN PROGRAM: -0911 * -0912 TIMSET LDX #COUNTR POINT TO TIMER -0913 LBSR BYTE READ HOURS -0914 BVS SHOWTM NO ARG, DISP TIME -0915 STA HOUR,X -0916 LBSR OUT1S -0917 LBSR BYTE READ MINUITES -0918 BVS SHOWTM -0919 STA MINUIT,X -0920 LBSR OUT1S -0921 LBSR BYTE SECONDS. -0922 BVS SHOWTM -0923 STA SECOND,X -0924 * -0925 * DISPLAY CURRENT TIME -0926 * -0927 SHOWTM LBSR PCRLF -0928 LDX #COUNTR+HOUR -0929 LDB #3 -0930 SHOWLP BSR RDCLK -0931 LBSR OUT2H -0932 LDA #': -0933 LBSR OUTCH -0934 LEAX -1,X -0935 DECB -0936 BNE SHOWLP -0937 RTS -0938 * -0939 * INITIATE CLOCK. -0940 * MASK INTERRUPTS. -0941 * -0942 CLKINZ CLR CINTCR MASK ALL INTERRUPTS -0943 TST CINTSR CLEAR ANY INTERRUPTS -0944 RTS -0945 ENDIF RTCOPT -0945 ENDIF RTCOPT -0946 IFD DATOPT -0947 * -0948 ***** LRA LOAD REAL ADDRESS ***** -0949 * -0950 * THE FOLLOWING CODE LOADS THE 20-BIT -0951 * PHYSICAL ADDRESS OF A MEMORY BYTE -0952 * INTO THE "A" AND "X" REGISTERS. THIS -0953 * ROUTINE IS ENTERED WITH THE LOGICAL -0954 * ADDRESS OF A MEMORY BYTE IN THE "IX" -0955 * REGISTER. EXIT IS MADE WITH THE HIGH- -0956 * ORDER FOUR BITS OF THE 20-BIT PHYSICAL -0957 * ADDRESS IN THE "A" REGISTER, AND THE -0958 * LOW-ORDER 16-BITS OF THE 20-BIT -0959 * PHYSICAL ADDRESS IN THE "IX" REGISTER. -0960 * ALL OTHER REGISTERS ARE PRESERVED. -0961 * THIS ROUTINE IS REQUIRED SINCE THE -0962 * DMAF1 AND DMAF2 DISK CONTROLLERS MUST -0963 * PRESENT PHYSICAL ADDRESSES ON THE -0964 * SYSTEM BUS. -0965 * -0966 FA2E 34 36 LRA PSHS A,B,X,Y PUSH REGISTERS ON STACK -0967 FA30 A6 62 LDA 2,S GET MSB LOGICAL ADDR FRM X REG ON STACK -0968 FA32 44 LSRA ; -0969 FA33 44 LSRA ADJ FOR INDEXED INTO -0970 FA34 44 LSRA CORRESPONDING LOCATION -0971 FA35 44 LSRA IN LRA TABLE -0972 FA36 10 8E DF D0 LDY #LRARAM LOAD LRA TABLE BASE ADDRESS -0973 FA3A E6 A6 LDB A,Y GET PHYSICAL ADDR. DATA FROM LRA TABLE -0974 FA3C 54 LSRB ADJ. REAL ADDR. TO REFLECT EXTENDED -0975 FA3D 54 LSRB PHYSICAL ADDRESS. -0976 FA3E 54 LSRB EXTENDED MS 4-BITS ARE RETURNED -0977 FA3F 54 LSRB IN THE "A" ACCUMULATOR -0978 FA40 E7 E4 STB ,S MS 4 BITS IN A ACCUM. STORED ON STACK -0979 FA42 E6 A6 LDB A,Y LOAD REAL ADDRESS DATA FROM LRA TABLE -0980 FA44 53 COMB COMP TO ADJ FOR PHYSICAL ADDR. IN X REG -0981 FA45 58 ASLB ADJ DATA FOR RELOCATION IN X REG -0982 FA46 58 ASLB ; -0983 FA47 58 ASLB $FB97 -0984 FA48 58 ASLB ; -0985 FA49 A6 62 LDA 2,S GET MS BYTE OF LOGICAL ADDR. -0986 FA4B 84 0F ANDA #$0F MASK MS NIBBLE OF LOGICAL ADDRESS -0987 FA4D A7 62 STA 2,S SAVE IT IN X REG ON STACK -0988 FA4F EA 62 ORB 2,S SET MS BYTE IN X REG TO ADJ PHY ADDR. -0989 * -0990 * PLUS LS NIBBLE OF LOGICAL ADDRESS -0991 FA51 E7 62 STB 2,S SAVE AS LS 16 BITS OF PHY ADDR IN X REG -0992 * ON STACK -0993 FA53 35 B6 PULS A,B,X,Y,PC POP REGS. FROM STACK -0994 ENDIF DATOPT -0995 * -0996 * DELAY LOOP -0997 * -0998 FA55 34 04 DLY PSHS B SAVE CONTENTS OF "B" -0999 FA57 C6 20 LDB #$20 GET LOOP DELAY VALUE -1000 FA59 5A SUB1 DECB SUBTRACT ONE FROM VALUE -1001 FA5A 26 FD BNE SUB1 LOOP UNTIL ZERO -1002 FA5C 35 84 PULS B,PC RESTORE CONTENTS OF "B" -1003 * RTS ; -1004 * -1005 ***** "L" LOAD MIKBUG TAPE ***** -1006 * -1007 FA5E BD FC E3 LOAD JSR ACINIZ -1008 FA61 86 11 LDA #$11 LOAD 'DC1' CASS. READ ON CODE -1009 FA63 17 02 68 LBSR OUTCH OUTPUT IT TO TERMINAL PORT -1010 FA66 7F DF E2 CLR ECHO TURN OFF ECHO FLAG -1011 FA69 17 02 2A LOAD1 LBSR ECHON INPUT 8 BIT BYTE WITH NO ECHO -1012 FA6C 81 53 LOAD2 CMPA #'S IS IT AN "S", START CHARACTER ? -1013 FA6E 26 F9 BNE LOAD1 IF NOT, DISCARD AND GET NEXT CHAR. -1014 FA70 17 02 23 LBSR ECHON -1015 FA73 81 39 CMPA #'9 IS IT A "9" , END OF FILE CHAR ? -1016 FA75 27 3D BEQ LOAD21 IF SO, EXIT LOAD -1017 FA77 81 31 CMPA #'1 IS IT A "1" , FILE LOAD CHAR ? -1018 FA79 26 F1 BNE LOAD2 IF NOT, LOOK FOR START CHAR. -1019 FA7B 17 01 A8 LBSR BYTE INPUT BYTE COUNT -1020 FA7E 34 02 PSHS A PUSH COUNT ON STACK -1021 FA80 29 26 BVS LODERR (V) C-CODE SET, ILLEGAL HEX -1022 FA82 17 01 91 LBSR IN1ADR INPUT LOAD ADDRESS -1023 FA85 29 21 BVS LODERR (V) C-CODE SET, ADDR NOT HEX -1024 FA87 34 10 PSHS X PUSH ADDR ON STACK -1025 FA89 E6 E0 LDB ,S+ LOAD MSB OF ADDR AS CHECKSUM BYTE -1026 FA8B EB E0 ADDB ,S+ ADD LSB OF ADDR TO CHECKSUM -1027 FA8D EB E4 ADDB ,S ADD BYTE COUNT BYTE TO CHECKSUM -1028 FA8F 6A E4 DEC ,S $FC37 DECREMENT BYTE COUNT 2 TO BYPASS -1029 FA91 6A E4 DEC ,S ADDRESS BYTES. -1030 FA93 34 04 LOAD10 PSHS B PUSH CHECKSUM ON STACK -1031 FA95 17 01 8E LBSR BYTE INPUT DATA BYTE (2 HEX CHAR) -1032 FA98 35 04 PULS B POP CHECKSUM FROM STACK -1033 FA9A 29 0C BVS LODERR (V) SET, DATA BYTE NOT HEX -1034 FA9C 34 02 PSHS A PUSH DATA BYTE ON STACK -1035 FA9E EB E0 ADDB ,S+ ADD DATA TO CHECKSUM, AUTO INC STACK -1036 FAA0 6A E4 DEC ,S DECREMENT BYTE COUNT 1 -1037 FAA2 27 05 BEQ LOAD16 IF BYTE COUNT ZERO, TEST CHECKSUM -1038 FAA4 A7 80 STA ,X+ SAVE DATA BYTE IN MEMORY -1039 FAA6 20 EB BRA LOAD10 GET NEXT DATA BYTE -1040 FAA8 5F LODERR CLRB ;ERROR CONDITION, ZERO CHECKSUM ; -1041 FAA9 35 02 LOAD16 PULS A ADJUST STACK (REMOVE BYTE COUNT) -1042 FAAB C1 FF CMPB #$FF CHECKSUM OK? -1043 FAAD 27 BA BEQ LOAD1 IF SO, LOAD NEXT LINE -1044 FAAF 86 3F LDA #'? LOAD (?) ERROR INDICATOR -1045 FAB1 17 02 1A LBSR OUTCH OUTPUT IT TO TERMINAL -1046 FAB4 73 DF E2 LOAD21 COM ECHO TURN ECHO ON -1047 FAB7 86 13 LDA #$13 $FC5F LOAD 'DC3' CASS. READ OFF CODE -1048 FAB9 16 02 12 LBRA OUTCH OUTPUT IT -1049 * -1050 ***** "P" PUNCH MIKBUG TAPE ***** -1051 * -1052 FABC 6F E2 PUNCH CLR ,-S CLEAR RESERVED BYTE ON STACK -1053 FABE 17 01 4A LBSR IN2ADR GET BEGIN AND END ADDRESS -1054 FAC1 34 30 PSHS X,Y SAVE ADDRESSES ON STACK -1055 FAC3 29 4D BVS PUNEXT (V) C-CODE SET, EXIT PUNCH -1056 FAC5 AC 62 CMPX 2,S COMPARE BEGIN TO END ADDR -1057 FAC7 25 49 BCS PUNEXT IF BEGIN GREATER THAN END, EXIT PUNCH -1058 FAC9 30 01 LEAX 1,X INCREMENT END ADDRESS -1059 FACB AF E4 STX ,S STORE END ADDR ON STACK -1060 FACD BD FC E3 JSR ACINIZ -1061 FAD0 86 12 LDA #$12 LOAD 'DC2' PUNCH ON CODE -1062 FAD2 17 01 F9 LBSR OUTCH OUTPUT IT TO TERMINAL -1063 FAD5 EC E4 PUNCH2 LDD ,S LOAD END ADDR IN D-ACC -1064 FAD7 A3 62 SUBD 2,S SUBTRACT BEGIN FROM END -1065 FAD9 27 06 BEQ PUNCH3 SAME, PUNCH 32 BYTES DEFAULT -1066 FADB 10 83 00 20 CMPD #$20 LESS THAN 32 BYTES? -1067 FADF 23 02 BLS PUNCH4 PUNCH THAT MANY BYTES -1068 FAE1 C6 20 PUNCH3 LDB #$20 LOAD BYTE COUNT OF 32. -1069 FAE3 E7 64 PUNCH4 STB 4,S STORE ON STACK AS BYTE COUNT -1070 FAE5 8E FE F3 LDX #MSG20 POINT TO MSG "S1" -1071 FAE8 17 00 2F LBSR PSTRNG PRINT MSG -1072 FAEB CB 03 ADDB #3 ADD 3 BYTES TO BYTE COUNT -1073 FAED 1F 98 TFR B,A GET BYTE COUNT IN A-ACC TO PUNCH -1074 FAEF 17 01 75 LBSR OUT2H OUTPUT BYTE COUNT -1075 FAF2 AE 62 LDX 2,S LOAD BEGIN ADDRESS -1076 FAF4 17 01 68 LBSR OUT4H PUNCH ADDRESS -1077 FAF7 EB 62 ADDB 2,S ADD ADDR MSB TO CHECKSUM -1078 FAF9 EB 63 ADDB 3,S ADD ADDR LSB TO CHECKSUM -1079 FAFB EB 84 PUNCHL ADDB ,X ADD DATA BYTE TO CHECKSUM -1080 FAFD A6 80 LDA ,X+ LOAD DATA BYTE TO PUNCH -1081 FAFF 17 01 65 LBSR OUT2H OUTPUT DATA BYTE -1082 FB02 6A 64 DEC 4,S DECREMENT BYTE COUNT -1083 FB04 26 F5 BNE PUNCHL NOT DONE, PUNCH NEXT BYTE -1084 FB06 53 COMB 1's COMPLIMENT CHECKSUM BYTE -1085 FB07 1F 98 TFR B,A GET IT IN A-ACC TO PUNCH -1086 FB09 17 01 5B LBSR OUT2H OUTPUT CHECKSUM BYTE -1087 FB0C AF 62 STX 2,S SAVE X-REG IN STACK AS NEW PUNCH ADDR -1088 FB0E AC E4 CMPX ,S COMPARE IT TO END ADDR -1089 FB10 26 C3 BNE PUNCH2 $FCB5 PUNCH NOT DONE, CONT. -1090 FB12 86 14 PUNEXT LDA #$14 LOAD 'DC4' PUNCH OFF CODE -1091 FB14 17 01 B7 LBSR OUTCH OUTPUT IT -1092 FB17 32 65 LEAS 5,S READJUST STACK POINTER -1093 FB19 39 RTS ; -1094 * -1095 * PRINT STRING PRECEEDED BY A CR & LF. -1096 * -1097 FB1A 8D 02 PSTRNG BSR PCRLF PRINT CR/LF -1098 FB1C 20 71 BRA PDATA PRINT STRING POINTED TO BY IX -1099 * -1100 * PCRLF -1101 * -1102 FB1E 34 10 PCRLF PSHS X SAVE IX -1103 FB20 8E FE A4 LDX #MSG2+1 POINT TO MSG CR/LF + 3 NULS -1104 FB23 17 00 69 LBSR PDATA PRINT MSG -1105 FB26 35 90 PULS X,PC RESTORE IX & RETURN -1106 * -1107 * LONG BRANCHES TO COMMON ROUTINES -1108 * -1109 FB28 16 01 A1 JOUT1S LBRA OUT1S -1110 FB2B 16 00 F8 JBYTE LBRA BYTE -1111 FB2E 16 00 E5 JIN1ADR LBRA IN1ADR -1112 * -1113 * ALTER "PC" PROGRAM COUNTER -1114 * -1115 FB31 17 00 91 ALTRPC LBSR PRTPC $FCF5 PRINT MSG " PC = " -1116 FB34 8D F2 BSR JOUT1S OUTPUT SPACE -1117 FB36 8D F6 BSR JIN1ADR GET NEW CONTENTS FOR "PC" -1118 FB38 29 02 BVS ALTPCD EXIT IF INVALID HEX -1119 FB3A AF 4A STX 10,U POKE IN NEW CONTENTS -1120 FB3C 39 ALTPCD RTS ; -1121 * -1122 * ALTER "U" USER STACK POINTER -1123 * -1124 FB3D 8D 61 ALTRU BSR PRTUS $FCCA PRINT MSG " US = " -1125 FB3F 8D E7 BSR JOUT1S OUTPUT SPACE -1126 FB41 8D EB BSR JIN1ADR -1127 FB43 29 02 BVS ALTUD -1128 FB45 AF 48 STX 8,U -1129 FB47 39 ALTUD RTS ; -1130 * -1131 * ALTER "Y" INDEX REGISTER -1132 * -1133 FB48 8D 72 ALTRY BSR PRTIY PRINT MSG " IY = " -1134 FB4A 8D DC BSR JOUT1S OUTPUT SPACE -1135 FB4C 8D E0 BSR JIN1ADR -1136 FB4E 29 02 BVS ALTYD -1137 FB50 AF 46 STX 6,U $F8F0 -1138 FB52 39 ALTYD RTS ; -1139 * -1140 * ALTER "X" INDEX REGISTER -1141 * -1142 FB53 8D 5E ALTRX BSR PRTIX $FCE0 PRINT MSG " IX = " -1143 FB55 8D D1 BSR JOUT1S OUTPUT SPACE -1144 FB57 8D D5 BSR JIN1ADR -1145 FB59 29 02 BVS ALTXD -1146 FB5B AF 44 STX 4,U -1147 FB5D 39 ALTXD RTS ; -1148 * -1149 * ALTER "DP" DIRECT PAGE REGISTER -1150 * -1151 FB5E 8D 49 ALTRDP BSR PRTDP $FCD5 PRINT MSG " DP = " -1152 FB60 8D C6 BSR JOUT1S OUTPUT SPACE -1153 FB62 8D C7 BSR JBYTE INPUT BYTE (2 HEX CHAR) -1154 FB64 29 02 BVS ALTDPD -1155 FB66 A7 43 STA 3,U -1156 FB68 39 ALTDPD RTS ; -1157 * -1158 * ALTER "B" ACCUMULATOR -1159 * -1160 FB69 8D 6C ALTRB BSR PRTB $FD09 PRINT MSG " B = " -1161 FB6B 8D BB BSR JOUT1S OUTPUT SPACE -1162 FB6D 8D BC BSR JBYTE INPUT BYTE (2 HEX CHAR) -1163 FB6F 29 02 BVS ALTBD -1164 FB71 A7 42 STA 2,U -1165 FB73 39 ALTBD RTS $F91C -1166 * -1167 * ALTER "A" ACCUMULATOR +0881 ENDIF TRAOPT +0881 ENDIF TRAOPT +0882 IFD MFDCOPT +0883 * +0884 ** "U" MINI DISK BOOT +0885 * +0886 MINBOOT TST CMDFDC +0887 CLR DRVFDC +0888 LDX #$0000 +0889 LOOP LEAX $01,X +0890 CMPX #$0000 +0891 BNE LOOP +0892 LDA #$0F +0893 STA CMDFDC +0894 BSR DELAY +0895 LOOP1 LDB CMDFDC +0896 BITB #$01 +0897 BNE LOOP1 +0898 LDA #$01 +0899 STA SECFDC +0900 BSR DELAY +0901 LDA #$8C +0902 STA CMDFDC +0903 BSR DELAY +0904 LDX #$C000 +0905 BRA LOOP3 +0906 LOOP2 BITB #$02 +0907 BEQ LOOP3 +0908 LDA DATFDC +0909 STA ,X+ +0910 LOOP3 LDB CMDFDC +0911 BITB #$01 +0912 BNE LOOP2 +0913 BITB #$2C +0914 BEQ LOOP4 +0915 RTS +0916 * +0917 LOOP4 LDX #$C000 +0918 STX $0A,U +0919 TFR U,S +0920 RTI +0921 * +0922 DELAY LDB #$04 +0923 LOOP5 DECB +0924 BNE LOOP5 +0925 RTS +0926 ENDIF MFDCOPT +0926 ENDIF MFDCOPT +0927 * +0928 IFD DMAFOPT +0929 * +0930 *** "D" DISK BOOT FOR DMAF2 *** +0931 * +0932 DBOOT LDA #$DE +0933 STA DRVREG +0934 LDA #$FF +0935 STA PRIREG $FAF8 +0936 STA CCREG +0937 STA AAAREG +0938 STA BBBREG +0939 TST CCREG +0940 LDA #$D8 +0941 STA COMREG +0942 LBSR DLY +0943 DBOOT0 LDA COMREG +0944 BMI DBOOT0 +0945 LDA #$09 +0946 STA COMREG +0947 LBSR DLY +0948 * +0949 DISKWT LDA COMREG FETCH DRIVE STATUS +0950 BITA #1 TEST BUSY BIT +0951 BNE DISKWT LOOP UNTIL NOT BUSY +0952 * +0953 BITA #$10 +0954 BNE DBOOT +0955 * +0956 LDX #$C000 LOGICAL ADDR. = $C000 +0957 BSR LRA GET 20 BIT PHYSICAL ADDR. OF LOG. ADDR. +0958 ORA #$10 +0959 STA CCCREG +0960 TFR X,D +0961 COMA ; +0962 COMB ; +0963 STD ADDREG +0964 LDX #$FEFF LOAD DMA BYTE COUNT = $100 +0965 STX CNTREG STORE IN COUNT REGISTER +0966 LDA #$FF LOAD THE CHANNEL REGISTER +0967 STA CCREG +0968 LDA #$FE SET CHANNEL 0 +0969 STA PRIREG +0970 LDA #1 SET SECTOR TO "1" +0971 STA SECREG ISSUE COMMAND +0972 LDA #$8C SET SINGLE SECTOR READ +0973 STA COMREG ISSUE COMMAND +0974 BSR DLY +0975 * +0976 * THE FOLLOWING CODE TESTS THE STATUS OF THE +0977 * CHANNEL CONTROL REGISTER. IF "D7" IS NOT +0978 * ZERO THEN IT WILL LOOP WAITING FOR "D7" +0979 * TO GO TO ZERO. IF AFTER 65,536 TRIES IT +0980 * IS STILL A ONE THE BOOT OPERATION WILL +0981 * BE STARTED OVER FROM THE BEGINING. +0982 * +0983 CLRB ; +0984 DBOOT1 PSHS B $FB55 +0985 CLRB ; +0986 DBOOT2 TST CCREG +0987 BPL DBOOT3 +0988 DECB ; +0989 BNE DBOOT2 +0990 PULS B +0991 DECB +0992 BNE DBOOT1 +0993 BRA DBOOT +0994 DBOOT3 PULS B +0995 LDA COMREG +0996 BITA #$1C +0997 BEQ DBOOT4 +0998 RTS ; +0999 * +1000 * +1001 DBOOT4 LDB #$DE +1002 STB DRVREG +1003 LDX #$C000 +1004 STX 10,U +1005 TFR U,S $FB7B +1006 RTI ; +1007 ENDIF DMAFOPT +1007 ENDIF DMAFOPT +1008 * +1009 IFD CFOPT +1010 * +1011 * COMPACT FLASH BOOT +1012 * +1013 F9D5 8D 40 CFBOOT BSR WAITRDY +1014 F9D7 86 E0 LDA #HEADLBA +1015 F9D9 B7 E0 46 STA CF_HEAD +1016 F9DC 8D 39 BSR WAITRDY +1017 F9DE 86 01 LDA #FEAT8BIT +1018 F9E0 B7 E0 41 STA CF_FEATURE +1019 F9E3 86 EF LDA #CMDFEATURE +1020 F9E5 B7 E0 47 STA CF_COMAND +1021 F9E8 8D 2D BSR WAITRDY +1022 * +1023 * READ SECTORS FROM CF +1024 * +1025 F9EA 86 01 CFREAD LDA #$01 +1026 F9EC B7 E0 42 STA CF_SECCNT +1027 F9EF 4F CLRA +1028 F9F0 B7 E0 43 STA CF_SECNUM +1029 F9F3 B7 E0 44 STA CF_CYLLO +1030 F9F6 B7 E0 45 STA CF_CYLHI +1031 * +1032 F9F9 86 20 LDA #CMDREAD ; IDE READ MULTIPLE +1033 F9FB B7 E0 47 STA CF_COMAND +1034 F9FE 8D 17 BSR WAITRDY +1035 FA00 8E C0 00 LDX #$C000 +1036 * +1037 * READ LOOP +1038 * +1039 FA03 8D 21 RDLOOP BSR WAITDRQ +1040 FA05 B6 E0 40 LDA CF_DATA +1041 FA08 A7 80 STA ,X+ +1042 FA0A 8C C2 00 CMPX #$C200 +1043 FA0D 26 F4 BNE RDLOOP +1044 * +1045 FA0F 8E C0 00 LDX #$C000 +1046 FA12 AF 4A STX $0A,U +1047 FA14 1F 34 TFR U,S +1048 FA16 3B RTI +1049 * +1050 * WAIT UNTIL READY +1051 * +1052 FA17 B6 E0 47 WAITRDY LDA CF_STATUS +1053 FA1A 85 80 BITA #BUSY +1054 FA1C 26 F9 BNE WAITRDY +1055 FA1E B6 E0 47 LDA CF_STATUS +1056 FA21 85 40 BITA #DRDY +1057 FA23 27 F2 BEQ WAITRDY +1058 FA25 39 RTS +1059 * +1060 * WAIT FOR DATA REQUEST +1061 * +1062 FA26 B6 E0 47 WAITDRQ LDA CF_STATUS +1063 FA29 85 08 BITA #DRQ +1064 FA2B 27 F9 BEQ WAITDRQ +1065 FA2D 39 RTS +1066 ENDIF CFOPT +1067 * +1068 IFD RTCOPT +1069 * +1070 * CLOCK INTER FACE UTILITY +1071 * +1072 * TIME +1073 * If no argument is specified, the current time +1074 * will be displayed. +1075 * +1076 * READ A REGISTER FROM THE COUNTER. +1077 * The X Index rgister points to the register +1078 * to be read. The Status Register is checked +1079 * before and after the register is read before +1080 * returning a value in accumulator A +1081 * +1082 RDCLK TST CLKSTA +1083 BNE RDCLK +1084 RDCLK1 LDA 0,X +1085 TST CLKSTA +1086 BNE RDCLK1 +1087 RTS +1088 * +1089 * MAIN PROGRAM: +1090 * +1091 TIMSET LDX #COUNTR POINT TO TIMER +1092 LBSR BYTE READ HOURS +1093 BVS SHOWTM NO ARG, DISP TIME +1094 STA HOUR,X +1095 LBSR OUT1S +1096 LBSR BYTE READ MINUITES +1097 BVS SHOWTM +1098 STA MINUIT,X +1099 LBSR OUT1S +1100 LBSR BYTE SECONDS. +1101 BVS SHOWTM +1102 STA SECOND,X +1103 * +1104 * DISPLAY CURRENT TIME +1105 * +1106 SHOWTM LBSR PCRLF +1107 LDX #COUNTR+HOUR +1108 LDB #3 +1109 SHOWLP BSR RDCLK +1110 LBSR OUT2H +1111 LDA #': +1112 LBSR OUTCH +1113 LEAX -1,X +1114 DECB +1115 BNE SHOWLP +1116 RTS +1117 * +1118 * INITIATE CLOCK. +1119 * MASK INTERRUPTS. +1120 * +1121 CLKINZ CLR CINTCR MASK ALL INTERRUPTS +1122 TST CINTSR CLEAR ANY INTERRUPTS +1123 RTS +1124 ENDIF RTCOPT +1124 ENDIF RTCOPT +1125 IFD DATOPT +1126 * +1127 ***** LRA LOAD REAL ADDRESS ***** +1128 * +1129 * THE FOLLOWING CODE LOADS THE 20-BIT +1130 * PHYSICAL ADDRESS OF A MEMORY BYTE +1131 * INTO THE "A" AND "X" REGISTERS. THIS +1132 * ROUTINE IS ENTERED WITH THE LOGICAL +1133 * ADDRESS OF A MEMORY BYTE IN THE "IX" +1134 * REGISTER. EXIT IS MADE WITH THE HIGH- +1135 * ORDER FOUR BITS OF THE 20-BIT PHYSICAL +1136 * ADDRESS IN THE "A" REGISTER, AND THE +1137 * LOW-ORDER 16-BITS OF THE 20-BIT +1138 * PHYSICAL ADDRESS IN THE "IX" REGISTER. +1139 * ALL OTHER REGISTERS ARE PRESERVED. +1140 * THIS ROUTINE IS REQUIRED SINCE THE +1141 * DMAF1 AND DMAF2 DISK CONTROLLERS MUST +1142 * PRESENT PHYSICAL ADDRESSES ON THE +1143 * SYSTEM BUS. +1144 * +1145 FA2E 34 36 LRA PSHS A,B,X,Y PUSH REGISTERS ON STACK +1146 FA30 A6 62 LDA 2,S GET MSB LOGICAL ADDR FRM X REG ON STACK +1147 FA32 44 LSRA ; +1148 FA33 44 LSRA ADJ FOR INDEXED INTO +1149 FA34 44 LSRA CORRESPONDING LOCATION +1150 FA35 44 LSRA IN LRA TABLE +1151 FA36 10 8E DF D0 LDY #LRARAM LOAD LRA TABLE BASE ADDRESS +1152 FA3A E6 A6 LDB A,Y GET PHYSICAL ADDR. DATA FROM LRA TABLE +1153 FA3C 54 LSRB ADJ. REAL ADDR. TO REFLECT EXTENDED +1154 FA3D 54 LSRB PHYSICAL ADDRESS. +1155 FA3E 54 LSRB EXTENDED MS 4-BITS ARE RETURNED +1156 FA3F 54 LSRB IN THE "A" ACCUMULATOR +1157 FA40 E7 E4 STB ,S MS 4 BITS IN A ACCUM. STORED ON STACK +1158 FA42 E6 A6 LDB A,Y LOAD REAL ADDRESS DATA FROM LRA TABLE +1159 FA44 53 COMB COMP TO ADJ FOR PHYSICAL ADDR. IN X REG +1160 FA45 58 ASLB ADJ DATA FOR RELOCATION IN X REG +1161 FA46 58 ASLB ; +1162 FA47 58 ASLB $FB97 +1163 FA48 58 ASLB ; +1164 FA49 A6 62 LDA 2,S GET MS BYTE OF LOGICAL ADDR. +1165 FA4B 84 0F ANDA #$0F MASK MS NIBBLE OF LOGICAL ADDRESS +1166 FA4D A7 62 STA 2,S SAVE IT IN X REG ON STACK +1167 FA4F EA 62 ORB 2,S SET MS BYTE IN X REG TO ADJ PHY ADDR. 1168 * -1169 FB74 8D 58 ALTRA BSR PRTA $FCFF RINT MSG " A = " -1170 FB76 8D B0 BSR JOUT1S OUTPUT SPACE -1171 FB78 8D B1 BSR JBYTE INPUT BYTE (2 HEX CHAR) -1172 FB7A 29 02 BVS ALTAD -1173 FB7C A7 41 STA 1,U -1174 FB7E 39 ALTAD RTS ; -1175 * -1176 * ALTER "CC" REGISTER -1177 * -1178 FB7F 8D 5F ALTRCC BSR PRTCC $FD13 PRINT MSG " CC: " -1179 FB81 8D A5 BSR JOUT1S OUTPUT SPACE -1180 FB83 8D A6 BSR JBYTE INPUT BYTE (2 HEX CHAR) -1181 FB85 29 04 BVS ALTCCD -1182 FB87 8A 80 ORA #$80 SETS "E" FLAG IN PRINT LIST -1183 FB89 A7 C4 STA ,U -1184 FB8B 39 ALTCCD RTS ; +1169 * PLUS LS NIBBLE OF LOGICAL ADDRESS +1170 FA51 E7 62 STB 2,S SAVE AS LS 16 BITS OF PHY ADDR IN X REG +1171 * ON STACK +1172 FA53 35 B6 PULS A,B,X,Y,PC POP REGS. FROM STACK +1173 ENDIF DATOPT +1174 * +1175 * DELAY LOOP +1176 * +1177 FA55 34 04 DLY PSHS B SAVE CONTENTS OF "B" +1178 FA57 C6 20 LDB #$20 GET LOOP DELAY VALUE +1179 FA59 5A SUB1 DECB SUBTRACT ONE FROM VALUE +1180 FA5A 26 FD BNE SUB1 LOOP UNTIL ZERO +1181 FA5C 35 84 PULS B,PC RESTORE CONTENTS OF "B" +1182 * RTS ; +1183 * +1184 ***** "L" LOAD MIKBUG TAPE ***** 1185 * -1186 * PDATA -1187 * -1188 FB8C 17 01 3F PRINT LBSR OUTCH -1189 FB8F A6 80 PDATA LDA ,X+ GET 1st CHAR. TO PRINT -1190 FB91 81 04 CMPA #4 IS IT EOT? -1191 FB93 26 F7 BNE PRINT IF NOT EOT PRINT IT -1192 FB95 39 RTS ; -1193 * -1194 * PRINT REGISTERS -1195 * -1196 FB96 8E FE B6 PRTSP LDX #MSG10 POINT TO MSG "SP=" -1197 FB99 8D F4 BSR PDATA PRINT MSG -1198 FB9B 1F 31 TFR U,X -1199 FB9D 16 00 BF JOUT4H LBRA OUT4H -1200 * -1201 FBA0 8E FE C2 PRTUS LDX #MSG12 POINT TO MSG "US=" -1202 FBA3 8D EA BSR PDATA PRINT MSG -1203 FBA5 AE 48 LDX 8,U -1204 FBA7 20 F4 BRA JOUT4H -1205 * -1206 FBA9 8E FE D4 PRTDP LDX #MSG15 POINT TO MSG "DP=" -1207 FBAC 8D E1 BSR PDATA PRINT MSG -1208 FBAE A6 43 LDA 3,U -1209 FBB0 16 00 B4 JOUT2H LBRA OUT2H OUTPUT HEX BYTE AS ASCII -1210 * -1211 FBB3 8E FE CE PRTIX LDX #MSG14 POINT TO MSG "IX=" -1212 FBB6 8D D7 BSR PDATA PRINT MSG -1213 FBB8 AE 44 LDX 4,U $FCE6 -1214 FBBA 20 E1 BRA JOUT4H -1215 * -1216 FBBC 8E FE C8 PRTIY LDX #MSG13 POINT TO MSG "IY=" -1217 FBBF 8D CE BSR PDATA PRINT MSG -1218 FBC1 AE 46 LDX 6,U -1219 FBC3 20 D8 BRA JOUT4H -1220 * -1221 FBC5 8E FE BC PRTPC LDX #MSG11 POINT TO MSG "PC=" -1222 FBC8 8D C5 BSR PDATA PRINT MSG -1223 FBCA AE 4A LDX 10,U -1224 FBCC 20 CF BRA JOUT4H -1225 * -1226 FBCE 8E FE DA PRTA LDX #MSG16 POINT TO MSG "A=" -1227 FBD1 8D BC BSR PDATA PRINT MSG -1228 FBD3 A6 41 LDA 1,U -1229 FBD5 20 D9 BRA JOUT2H OUTPUT HEX BYTE AS ASCII -1230 * -1231 FBD7 8E FE DF PRTB LDX #MSG17 POINT TO MSG "B=" -1232 FBDA 8D B3 BSR PDATA PRINT MSG -1233 FBDC A6 42 LDA 2,U -1234 FBDE 20 D0 BRA JOUT2H OUTPUT HEX BYTE AS ASCII -1235 * -1236 FBE0 8E FE E4 PRTCC LDX #MSG18 POINT TO MSG "CC:" -1237 FBE3 8D AA BSR PDATA PRINT MSG -1238 FBE5 A6 C4 LDA ,U -1239 FBE7 8E FE EB LDX #MSG19 POINT TO MSG "EFHINZVC" -1240 FBEA 16 00 90 LBRA BIASCI OUTPUT IN BINARY/ASCII FORMAT -1241 * -1242 * "R" DISPLAY REGISTERS -1243 * -1244 FBED 8E FE B2 REGSTR LDX #MSG5 POINT TO MSG " - " -1245 FBF0 17 FF 27 LBSR PSTRNG PRINT MSG -1246 FBF3 8D A1 BSR PRTSP $FCBF -1247 FBF5 8D A9 BSR PRTUS $FCCA -1248 FBF7 8D B0 BSR PRTDP $FCD5 -1249 FBF9 8D B8 BSR PRTIX $FCE0 -1250 FBFB 8D BF BSR PRTIY $FCEB -1251 FBFD 8E FE B2 LDX #MSG5 POINT TO MSG " - " -1252 FC00 17 FF 17 LBSR PSTRNG PRINT MSG -1253 FC03 8D C0 BSR PRTPC $FCF5 -1254 FC05 8D C7 BSR PRTA $FCFF -1255 FC07 8D CE BSR PRTB $FD09 -1256 FC09 20 D5 BRA PRTCC $FD13 -1257 * -1258 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE -1259 * OPERATOR TO INPUT TWO VALID HEX ADDRESSES. -1260 * THE FIRST ADDRESS INPUT IS RETURNED IN "IY". -1261 * THE SECOND IS RETURNED IN "IX". THE "V" BIT -1262 * IN THE C-CODE REG. IS SET IF AN INVALID HEX -1263 * ADDRESS IS INPUT. -1264 * -1265 FC0B 8D 09 IN2ADR BSR IN1ADR GET FIRST ADDRESS -1266 FC0D 29 4D BVS NOTHEX EXIT IF NOT VALID HEX -1267 FC0F 1F 12 TFR X,Y SAVE FIRST ADDR. IN "IY" -1268 FC11 86 2D LDA #'- -1269 FC13 17 00 B8 LBSR OUTCH PRINT " - " -1270 * -1271 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE -1272 * OPERATOR TO INPUT ONE VALID HEX ADDRESS. THE -1273 * ADDRESS IS RETURNED IN THE "X" REGISTER. -1274 * -1275 FC16 8D 0E IN1ADR BSR BYTE INPUT BYTE (2 HEX CHAR) -1276 FC18 29 42 BVS NOTHEX EXIT IF NOT VALID HEX -1277 FC1A 1F 01 TFR D,X -1278 FC1C 8D 08 BSR BYTE INPUT BYTE (2 HEX CHAR) -1279 FC1E 29 3C BVS NOTHEX -1280 FC20 34 10 PSHS X -1281 FC22 A7 61 STA 1,S -1282 FC24 35 90 PULS X,PC -1283 * -1284 ***** INPUT BYTE (2 HEX CHAR.) ***** -1285 * -1286 FC26 8D 11 BYTE BSR INHEX GET HEX LEFT -1287 FC28 29 32 BVS NOTHEX EXIT IF NOT VALID HEX -1288 FC2A 48 ASLA ; -1289 FC2B 48 ASLA ; -1290 FC2C 48 ASLA ; SHIFT INTO LEFT NIBBLE -1291 FC2D 48 ASLA ; -1292 FC2E 1F 89 TFR A,B PUT HEXL IN "B" -1293 FC30 8D 07 BSR INHEX GET HEX RIGHT -1294 FC32 29 28 BVS NOTHEX EXIT IF NOT VALID HEX -1295 FC34 34 04 PSHS B PUSH HEXL ON STACK -1296 FC36 AB E0 ADDA ,S+ ADD HEXL TO HEXR AND ADJ. STK -1297 FC38 39 RTS RETURN WITH HEX L&R IN "A" -1298 * -1299 * -1300 FC39 8D 5B INHEX BSR ECHON INPUT ASCII CHAR. -1301 FC3B 81 30 CMPA #'0 IS IT > OR = "0" ? -1302 FC3D 25 1D BCS NOTHEX IF LESS IT AIN'T HEX -1303 FC3F 81 39 CMPA #'9 IS IT < OR = "9" ? -1304 FC41 22 03 BHI INHEXA IF > MAYBE IT'S ALPHA -1305 FC43 80 30 SUBA #$30 ASCII ADJ. NUMERIC -1306 FC45 39 RTS ; -1307 * -1308 * -1309 FC46 81 41 INHEXA CMPA #'A IS IT > OR = "A" -1310 FC48 25 12 BCS NOTHEX IF LESS IT AIN'T HEX -1311 FC4A 81 46 CMPA #'F IS IT < OR = "F" ? -1312 FC4C 22 03 BHI INHEXL IF > IT AIN'T HEX -1313 FC4E 80 37 SUBA #$37 ASCII ADJ. ALPHA -1314 FC50 39 RTS ; -1315 * -1316 FC51 81 61 INHEXL CMPA #'a IS IT > OR = "a" -1317 FC53 25 07 BCS NOTHEX IF LESS IT AIN'T HEX -1318 FC55 81 66 CMPA #'f IS IT < "f" -1319 FC57 22 03 BHI NOTHEX IF > IT AIN'T HEX -1320 FC59 80 57 SUBA #$57 ADJUST TO LOWER CASE -1321 FC5B 39 RTS ; -1322 * -1323 * -1324 FC5C 1A 02 NOTHEX ORCC #2 SET (V) FLAG IN C-CODES REGISTER -1325 FC5E 39 RTS ; -1326 * +1186 FA5E BD FC E3 LOAD JSR ACINIZ +1187 FA61 86 11 LDA #$11 LOAD 'DC1' CASS. READ ON CODE +1188 FA63 17 02 68 LBSR OUTCH OUTPUT IT TO TERMINAL PORT +1189 FA66 7F DF E2 CLR ECHO TURN OFF ECHO FLAG +1190 FA69 17 02 2A LOAD1 LBSR ECHON INPUT 8 BIT BYTE WITH NO ECHO +1191 FA6C 81 53 LOAD2 CMPA #'S IS IT AN "S", START CHARACTER ? +1192 FA6E 26 F9 BNE LOAD1 IF NOT, DISCARD AND GET NEXT CHAR. +1193 FA70 17 02 23 LBSR ECHON +1194 FA73 81 39 CMPA #'9 IS IT A "9" , END OF FILE CHAR ? +1195 FA75 27 3D BEQ LOAD21 IF SO, EXIT LOAD +1196 FA77 81 31 CMPA #'1 IS IT A "1" , FILE LOAD CHAR ? +1197 FA79 26 F1 BNE LOAD2 IF NOT, LOOK FOR START CHAR. +1198 FA7B 17 01 A8 LBSR BYTE INPUT BYTE COUNT +1199 FA7E 34 02 PSHS A PUSH COUNT ON STACK +1200 FA80 29 26 BVS LODERR (V) C-CODE SET, ILLEGAL HEX +1201 FA82 17 01 91 LBSR IN1ADR INPUT LOAD ADDRESS +1202 FA85 29 21 BVS LODERR (V) C-CODE SET, ADDR NOT HEX +1203 FA87 34 10 PSHS X PUSH ADDR ON STACK +1204 FA89 E6 E0 LDB ,S+ LOAD MSB OF ADDR AS CHECKSUM BYTE +1205 FA8B EB E0 ADDB ,S+ ADD LSB OF ADDR TO CHECKSUM +1206 FA8D EB E4 ADDB ,S ADD BYTE COUNT BYTE TO CHECKSUM +1207 FA8F 6A E4 DEC ,S $FC37 DECREMENT BYTE COUNT 2 TO BYPASS +1208 FA91 6A E4 DEC ,S ADDRESS BYTES. +1209 FA93 34 04 LOAD10 PSHS B PUSH CHECKSUM ON STACK +1210 FA95 17 01 8E LBSR BYTE INPUT DATA BYTE (2 HEX CHAR) +1211 FA98 35 04 PULS B POP CHECKSUM FROM STACK +1212 FA9A 29 0C BVS LODERR (V) SET, DATA BYTE NOT HEX +1213 FA9C 34 02 PSHS A PUSH DATA BYTE ON STACK +1214 FA9E EB E0 ADDB ,S+ ADD DATA TO CHECKSUM, AUTO INC STACK +1215 FAA0 6A E4 DEC ,S DECREMENT BYTE COUNT 1 +1216 FAA2 27 05 BEQ LOAD16 IF BYTE COUNT ZERO, TEST CHECKSUM +1217 FAA4 A7 80 STA ,X+ SAVE DATA BYTE IN MEMORY +1218 FAA6 20 EB BRA LOAD10 GET NEXT DATA BYTE +1219 FAA8 5F LODERR CLRB ;ERROR CONDITION, ZERO CHECKSUM ; +1220 FAA9 35 02 LOAD16 PULS A ADJUST STACK (REMOVE BYTE COUNT) +1221 FAAB C1 FF CMPB #$FF CHECKSUM OK? +1222 FAAD 27 BA BEQ LOAD1 IF SO, LOAD NEXT LINE +1223 FAAF 86 3F LDA #'? LOAD (?) ERROR INDICATOR +1224 FAB1 17 02 1A LBSR OUTCH OUTPUT IT TO TERMINAL +1225 FAB4 73 DF E2 LOAD21 COM ECHO TURN ECHO ON +1226 FAB7 86 13 LDA #$13 $FC5F LOAD 'DC3' CASS. READ OFF CODE +1227 FAB9 16 02 12 LBRA OUTCH OUTPUT IT +1228 * +1229 ***** "P" PUNCH MIKBUG TAPE ***** +1230 * +1231 FABC 6F E2 PUNCH CLR ,-S CLEAR RESERVED BYTE ON STACK +1232 FABE 17 01 4A LBSR IN2ADR GET BEGIN AND END ADDRESS +1233 FAC1 34 30 PSHS X,Y SAVE ADDRESSES ON STACK +1234 FAC3 29 4D BVS PUNEXT (V) C-CODE SET, EXIT PUNCH +1235 FAC5 AC 62 CMPX 2,S COMPARE BEGIN TO END ADDR +1236 FAC7 25 49 BCS PUNEXT IF BEGIN GREATER THAN END, EXIT PUNCH +1237 FAC9 30 01 LEAX 1,X INCREMENT END ADDRESS +1238 FACB AF E4 STX ,S STORE END ADDR ON STACK +1239 FACD BD FC E3 JSR ACINIZ +1240 FAD0 86 12 LDA #$12 LOAD 'DC2' PUNCH ON CODE +1241 FAD2 17 01 F9 LBSR OUTCH OUTPUT IT TO TERMINAL +1242 FAD5 EC E4 PUNCH2 LDD ,S LOAD END ADDR IN D-ACC +1243 FAD7 A3 62 SUBD 2,S SUBTRACT BEGIN FROM END +1244 FAD9 27 06 BEQ PUNCH3 SAME, PUNCH 32 BYTES DEFAULT +1245 FADB 10 83 00 20 CMPD #$20 LESS THAN 32 BYTES? +1246 FADF 23 02 BLS PUNCH4 PUNCH THAT MANY BYTES +1247 FAE1 C6 20 PUNCH3 LDB #$20 LOAD BYTE COUNT OF 32. +1248 FAE3 E7 64 PUNCH4 STB 4,S STORE ON STACK AS BYTE COUNT +1249 FAE5 8E FE F3 LDX #MSG20 POINT TO MSG "S1" +1250 FAE8 17 00 2F LBSR PSTRNG PRINT MSG +1251 FAEB CB 03 ADDB #3 ADD 3 BYTES TO BYTE COUNT +1252 FAED 1F 98 TFR B,A GET BYTE COUNT IN A-ACC TO PUNCH +1253 FAEF 17 01 75 LBSR OUT2H OUTPUT BYTE COUNT +1254 FAF2 AE 62 LDX 2,S LOAD BEGIN ADDRESS +1255 FAF4 17 01 68 LBSR OUT4H PUNCH ADDRESS +1256 FAF7 EB 62 ADDB 2,S ADD ADDR MSB TO CHECKSUM +1257 FAF9 EB 63 ADDB 3,S ADD ADDR LSB TO CHECKSUM +1258 FAFB EB 84 PUNCHL ADDB ,X ADD DATA BYTE TO CHECKSUM +1259 FAFD A6 80 LDA ,X+ LOAD DATA BYTE TO PUNCH +1260 FAFF 17 01 65 LBSR OUT2H OUTPUT DATA BYTE +1261 FB02 6A 64 DEC 4,S DECREMENT BYTE COUNT +1262 FB04 26 F5 BNE PUNCHL NOT DONE, PUNCH NEXT BYTE +1263 FB06 53 COMB 1's COMPLIMENT CHECKSUM BYTE +1264 FB07 1F 98 TFR B,A GET IT IN A-ACC TO PUNCH +1265 FB09 17 01 5B LBSR OUT2H OUTPUT CHECKSUM BYTE +1266 FB0C AF 62 STX 2,S SAVE X-REG IN STACK AS NEW PUNCH ADDR +1267 FB0E AC E4 CMPX ,S COMPARE IT TO END ADDR +1268 FB10 26 C3 BNE PUNCH2 $FCB5 PUNCH NOT DONE, CONT. +1269 FB12 86 14 PUNEXT LDA #$14 LOAD 'DC4' PUNCH OFF CODE +1270 FB14 17 01 B7 LBSR OUTCH OUTPUT IT +1271 FB17 32 65 LEAS 5,S READJUST STACK POINTER +1272 FB19 39 RTS ; +1273 * +1274 * PRINT STRING PRECEEDED BY A CR & LF. +1275 * +1276 FB1A 8D 02 PSTRNG BSR PCRLF PRINT CR/LF +1277 FB1C 20 71 BRA PDATA PRINT STRING POINTED TO BY IX +1278 * +1279 * PCRLF +1280 * +1281 FB1E 34 10 PCRLF PSHS X SAVE IX +1282 FB20 8E FE A4 LDX #MSG2+1 POINT TO MSG CR/LF + 3 NULS +1283 FB23 17 00 69 LBSR PDATA PRINT MSG +1284 FB26 35 90 PULS X,PC RESTORE IX & RETURN +1285 * +1286 * LONG BRANCHES TO COMMON ROUTINES +1287 * +1288 FB28 16 01 A1 JOUT1S LBRA OUT1S +1289 FB2B 16 00 F8 JBYTE LBRA BYTE +1290 FB2E 16 00 E5 JIN1ADR LBRA IN1ADR +1291 * +1292 * ALTER "PC" PROGRAM COUNTER +1293 * +1294 FB31 17 00 91 ALTRPC LBSR PRTPC $FCF5 PRINT MSG " PC = " +1295 FB34 8D F2 ALTPC1 BSR JOUT1S OUTPUT SPACE +1296 FB36 8D F6 BSR JIN1ADR GET NEW CONTENTS FOR "PC" +1297 FB38 29 02 BVS ALTPCD EXIT IF INVALID HEX +1298 FB3A AF 4A STX 10,U POKE IN NEW CONTENTS +1299 FB3C 39 ALTPCD RTS ; +1300 * +1301 * ALTER "U" USER STACK POINTER +1302 * +1303 FB3D 8D 61 ALTRU BSR PRTUS $FCCA PRINT MSG " US = " +1304 FB3F 8D E7 BSR JOUT1S OUTPUT SPACE +1305 FB41 8D EB BSR JIN1ADR +1306 FB43 29 02 BVS ALTUD +1307 FB45 AF 48 STX 8,U +1308 FB47 39 ALTUD RTS ; +1309 * +1310 * ALTER "Y" INDEX REGISTER +1311 * +1312 FB48 8D 72 ALTRY BSR PRTIY PRINT MSG " IY = " +1313 FB4A 8D DC BSR JOUT1S OUTPUT SPACE +1314 FB4C 8D E0 BSR JIN1ADR +1315 FB4E 29 02 BVS ALTYD +1316 FB50 AF 46 STX 6,U $F8F0 +1317 FB52 39 ALTYD RTS ; +1318 * +1319 * ALTER "X" INDEX REGISTER +1320 * +1321 FB53 8D 5E ALTRX BSR PRTIX $FCE0 PRINT MSG " IX = " +1322 FB55 8D D1 BSR JOUT1S OUTPUT SPACE +1323 FB57 8D D5 BSR JIN1ADR +1324 FB59 29 02 BVS ALTXD +1325 FB5B AF 44 STX 4,U +1326 FB5D 39 ALTXD RTS ; 1327 * -1328 FC5F 34 10 OUT4H PSHS X PUSH X-REG. ON THE STACK -1329 FC61 35 02 PULS A POP MS BYTE OF X-REG INTO A-ACC. -1330 FC63 8D 02 BSR OUTHL OUTPUT HEX LEFT -1331 FC65 35 02 PULS A POP LS BYTE OF X-REG INTO A-ACC. -1332 FC67 OUTHL EQU * -1333 FC67 34 02 OUT2H PSHS A SAVE IT BACK ON STACK -1334 FC69 44 LSRA CONVERT UPPER HEX NIBBLE TO ASCII -1335 FC6A 44 LSRA ; -1336 FC6B 44 LSRA ; -1337 FC6C 44 LSRA ; -1338 FC6D 8D 04 BSR XASCII PRINT HEX NIBBLE AS ASCII -1339 FC6F 35 02 OUTHR PULS A CONVERT LOWER HEX NIBBLE TO ASCII -1340 FC71 84 0F ANDA #$0F STRIP LEFT NIBBLE -1341 FC73 8B 30 XASCII ADDA #$30 ASCII ADJ -1342 FC75 81 39 CMPA #$39 IS IT < OR = "9" ? -1343 FC77 2F 02 BLE OUTC IF LESS, OUTPUT IT -1344 FC79 8B 07 ADDA #7 IF > MAKE ASCII LETTER -1345 FC7B 20 51 OUTC BRA OUTCH OUTPUT CHAR -1346 * -1347 * BINARY / ASCII --- THIS ROUTINE -1348 * OUTPUTS A BYTE IN ENHANCED -1349 * BINARY FORMAT. THE ENHANCEMENT -1350 * IS DONE BY SUBSTITUTING ASCII -1351 * LETTERS FOR THE ONES IN THE BYTE. -1352 * THE ASCII ENHANCEMENT LETTERS -1353 * ARE OBTAINED FROM THE STRING -1354 * POINTED TO BY THE INDEX REG. "X". -1355 * -1356 FC7D 34 02 BIASCI PSHS A SAVE "A" ON STACK -1357 FC7F C6 08 LDB #8 PRESET LOOP# TO BITS PER BYTE -1358 FC81 A6 80 OUTBA LDA ,X+ GET LETTER FROM STRING -1359 FC83 68 E4 ASL ,S TEST BYTE FOR "1" IN B7 -1360 FC85 25 02 BCS PRTBA IF ONE PRINT LETTER -1361 FC87 86 2D LDA #'- IF ZERO PRINT "-" -1362 FC89 8D 43 PRTBA BSR OUTCH PRINT IT -1363 FC8B 8D 3F BSR OUT1S PRINT SPACE -1364 FC8D 5A DECB SUB 1 FROM #BITS YET TO PRINT -1365 FC8E 26 F1 BNE OUTBA -1366 FC90 35 82 PULS A,PC -1367 * -1368 * EXTENDED USER COMMANDS -1369 * -1370 FC92 6E 9F F0 00 EXTEND JMP [MONEXT+EXTCMD] -1371 * -1372 * -1373 FC96 7D DF E2 ECHON TST ECHO IS ECHO REQUIRED ? -1374 FC99 27 06 BEQ INCH ECHO NOT REQ. IF CLEAR -1375 * -1376 * INCHE -1377 * -1378 * ---GETS CHARACTER FROM TERMINAL AND -1379 * ECHOS SAME. THE CHARACTER IS RETURNED -1380 * IN THE "A" ACCUMULATOR WITH THE PARITY -1381 * BIT MASKED OFF. ALL OTHER REGISTERS -1382 * ARE PRESERVED. -1383 * -1384 FC9B 8D 04 INCHE BSR INCH GET CHAR FROM TERMINAL -1385 FC9D 84 7F ANDA #$7F STRIP PARITY FROM CHAR. -1386 FC9F 20 2D BRA OUTCH ECHO CHAR TO TERMINAL -1387 * -1388 * INCH -1389 * -1390 * GET CHARACTER FROM TERMINAL. RETURN -1391 * CHARACTER IN "A" ACCUMULATOR AND PRESERVE -1392 * ALL OTHER REGISTERS. THE INPUT CHARACTER -1393 * IS 8 BITS AND IS NOT ECHOED. -1394 * -1395 * -1396 FCA1 34 10 INCH PSHS X SAVE IX -1397 FCA3 BE DF E0 GETSTA LDX CPORT POINT TO TERMINAL PORT -1398 FCA6 A6 84 LDA ,X FETCH PORT STATUS -1399 FCA8 85 01 BITA #1 TEST READY BIT, RDRF ? -1400 IFD FPGAOPT -1401 FCAA 26 09 BNE GETST1 -1402 FCAC 8E E0 20 LDX #PS2KBD -1403 FCAF A6 84 LDA ,X -1404 FCB1 85 01 BITA #1 -1405 ENDIF FPGAOPT -1406 FCB3 27 EE BEQ GETSTA IF NOT RDY, THEN TRY AGAIN -1407 FCB5 A6 01 GETST1 LDA 1,X FETCH CHAR -1408 FCB7 35 90 PULS X,PC RESTORE IX -1409 * -1410 * INCHEK -1411 * -1412 * CHECK FOR A CHARACTER AVAILABLE FROM -1413 * THE TERMINAL. THE SERIAL PORT IS CHECKED -1414 * FOR READ READY. ALL REGISTERS ARE -1415 * PRESERVED, AND THE "Z" BIT WILL BE -1416 * CLEAR IF A CHARACTER CAN BE READ. -1417 * -1418 * -1419 FCB9 34 02 INCHEK PSHS A SAVE A ACCUM. -1420 FCBB A6 9F DF E0 LDA [CPORT] FETCH PORT STATUS -1421 FCBF 85 01 BITA #1 TEST READY BIT, RDRF ? -1422 IFD FPGAOPT -1423 FCC1 26 05 BNE INCHEK1 -1424 FCC3 B6 E0 20 LDA PS2KBD -1425 FCC6 85 01 BITA #1 TEST READY BIT< RDRF ? -1426 ENDIF FPGAOPT -1427 FCC8 35 82 INCHEK1 PULS A,PC RESTORE A ACCUM. -1428 * -1429 FCCA 8D 00 OUT2S BSR OUT1S OUTPUT 2 SPACES -1430 FCCC 86 20 OUT1S LDA #$20 OUTPUT 1 SPACE -1431 * -1432 * -1433 * OUTCH -1434 * -1435 * OUTPUT CHARACTER TO TERMINAL. -1436 * THE CHAR. TO BE OUTPUT IS -1437 * PASSED IN THE A REGISTER. -1438 * ALL REGISTERS ARE PRESERVED. -1439 * -1440 OUTCH IFD FPGAOPT -1441 FCCE 8D 45 BSR VOUTCH -1442 ENDIF FPGAOPT -1443 IFD ADSOPT -1444 BSR VOUTCH -1445 ENDIF ADSOPT -1445 ENDIF ADSOPT -1446 FCD0 34 12 AOUTCH PSHS A,X SAVE A ACCUM AND IX -1447 FCD2 BE DF E0 LDX CPORT GET ADDR. OF TERMINAL -1448 FCD5 A6 84 FETSTA LDA ,X FETCH PORT STATUS -1449 FCD7 85 02 BITA #2 TEST TDRE, OK TO XMIT ? -1450 FCD9 27 FA BEQ FETSTA IF NOT LOOP UNTIL RDY -1451 FCDB 35 02 PULS A GET CHAR. FOR XMIT -1452 FCDD A7 01 STA 1,X XMIT CHAR. -1453 FCDF 35 90 PULS X,PC RESTORE IX -1454 * -1455 * IO INITIALIZATION -1456 * -1457 FCE1 IOINIZ EQU * -1458 IFD FPGAOPT -1459 FCE1 8D 13 BSR VINIZ -1460 ENDIF FPGAOPT -1461 IFD ADSOPT -1462 BSR VINIZ -1463 ENDIF ADSOPT -1463 ENDIF ADSOPT -1464 FCE3 BE DF E0 ACINIZ LDX CPORT POINT TO CONTROL PORT ADDRESS -1465 FCE6 86 03 LDA #3 RESET ACIA PORT CODE -1466 FCE8 A7 84 STA ,X STORE IN CONTROL REGISTER -1467 FCEA 86 11 LDA #$11 SET 8 DATA, 2 STOP AN 0 PARITY -1468 FCEC A7 84 STA ,X STORE IN CONTROL REGISTER -1469 FCEE 6D 01 TST 1,X ANYTHING IN DATA REGISTER? -1470 FCF0 86 FF LDA #$FF TURN ON ECHO FLAG -1471 FCF2 B7 DF E2 STA ECHO -1472 FCF5 39 RTS -1473 * -1474 IFD FPGAOPT -1475 * -1476 *************************************************** -1477 * VDU8 ADM3A REGISTER-MAPPED EMULATOR * -1478 * * -1479 * 80 x 25 Characters -1480 * -1481 *************************************************** -1482 * -1483 *************************************************** -1484 * INITIALIZE EMULATOR * -1485 *************************************************** -1486 * -1487 FCF6 8E E0 30 VINIZ LDX #VDU -1488 FCF9 CC 00 00 LDD #0 -1489 FCFC FD DF FB STD COLADX AND ROWADX -1490 FCFF A7 02 STA VDUCOL,X -1491 FD01 E7 03 STB VDUROW,X -1492 FD03 E7 04 STB VDUOFF,X -1493 FD05 FD DF FD STD NEWROW AND ESCFLG -1494 FD08 C6 02 LDB #$02 -1495 FD0A E7 01 STB VDUATT,X -1496 FD0C 7F DF FE CLR ESCFLG -1497 FD0F 86 1B LDA #$1B SEND ESCAPE -1498 FD11 8D 02 BSR VOUTCH -1499 FD13 86 59 LDA #'Y CLEAR TO END OF SCREEN -1500 * -1501 ** VIDEO OUTPUT ROUTINE -1502 * -1503 FD15 34 16 VOUTCH PSHS A,B,X SAVE REGISTERS -1504 FD17 8E E0 30 LDX #VDU POINT TO VDU REGISTERS -1505 * -1506 ** CHECK FOR ESCAPE SEQUENCE -1507 * -1508 FD1A 7D DF FE TST ESCFLG ESCAPE ACTIVE? -1509 FD1D 27 04 BEQ SOROU1 BRANCH IF NOT -1510 FD1F 8D 74 BSR ESCAPE ELSE DO ESCAPE -1511 FD21 20 0D BRA RETURN AND RETURN -1512 * -1513 ** CHECK FOR CONTROL CHARACTERS -1514 * -1515 FD23 81 20 SOROU1 CMPA #$20 CONTROL CODES? -1516 FD25 24 04 BHS SOROU2 -1517 FD27 8D 09 BSR CONTRL BRANCH IF SO -1518 FD29 20 05 BRA RETURN -1519 * -1520 ** OUTPUT TEXT CHARACTER -1521 * -1522 FD2B A7 84 SOROU2 STAA VDUCHR,X DISPLAY CHARACTER -1523 FD2D 17 00 C5 LBSR NEWCOL UPDATE COLUMN -1524 * -1525 ** DISPLAY CURSOR AND RETURN -1526 * -1527 FD30 35 96 RETURN PULS A,B,X,PC RESTORE REGISTERS AND RETURN -1528 * -1529 *************************************************** -1530 * CONTROL CODE HANDLERS * -1531 *************************************************** -1532 * -1533 FD32 81 08 CONTRL CMPA #$08 CTRL H - BACKSPACE ? -1534 FD34 10 27 00 41 LBEQ BACKSP -1535 FD38 81 1B CMPA #$1B ESCAPE SEQUENCE? -1536 FD3A 10 27 00 6C LBEQ SETESC -1537 FD3E 81 1A CMPA #$1A CTRL Z - Clear Screen -1538 FD40 10 27 00 8E LBEQ CLRSCR -1539 FD44 81 16 CMPA #$16 CTRL ^ - Home -1540 FD46 10 27 00 45 LBEQ HOME -1541 FD4A 81 0D CMPA #$D CTRL M - RETURN? -1542 FD4C 10 27 00 99 LBEQ CRETN -1543 FD50 81 0C CMPA #$0C CTRL L - CHAR RIGHT -1544 FD52 10 27 00 2C LBEQ CHRIGHT -1545 FD56 81 0B CMPA #$0B CTRL K - MOVE UP ONE LINE -1546 FD58 10 27 00 11 LBEQ LINEUP -1547 FD5C 81 0A CMPA #$0A CTRL J - LINE FEED -1548 FD5E 26 51 BNE RETESC NONE OF THESE, RETURN -1549 * -1550 ***************************************** LINE FEED -1551 * -1552 FD60 FC DF FB LINEFD LDD COLADX GET CURRENT COLUMN AND ROW -1553 FD63 5C INCB BUMP ROW -1554 FD64 C1 19 CMPB #NUMLIN SCROLL TIME? -1555 FD66 10 26 00 83 LBNE NEWCUR POSITION CURSOR IF NOT -1556 FD6A 16 00 99 LBRA SCROLL ELSE SCROLL IT -1557 * -1558 ***************************************** LINE FEED -1559 * -1560 FD6D FC DF FB LINEUP LDD COLADX GET CURRENT COLUMN AND ROW -1561 FD70 5D TSTB AT TOP OF SCREEN ? -1562 FD71 10 27 00 3C LBEQ RETESC Yes, Ignore -1563 FD75 5A DECB No, Decrement ROW -1564 FD76 16 00 74 LBRA NEWCUR POSITION CURSOR -1565 * -1566 *********************************** BACK SPACE -1567 * -1568 FD79 B6 DF FB BACKSP LDA COLADX -1569 FD7C 27 33 BEQ RETESC RETURN -1570 FD7E 4A DECA -1571 FD7F 16 00 68 LBRA POSCOL POSITION CURSOR -1572 * -1573 *********************************** CURSOR RIGHT -1574 * -1575 FD82 B6 DF FB CHRIGHT LDA COLADX -1576 FD85 4C INCA -1577 FD86 81 50 CMPA #LINLEN -1578 FD88 10 27 00 25 LBEQ RETESC -1579 FD8C 16 00 5B LBRA POSCOL -1580 * -1581 *********************************** CURSOR RIGHT -1582 * -1583 FD8F CC 00 00 HOME LDD #0 HOME - POSITION TOP OF SCREEN -1584 FD92 16 00 58 LBRA NEWCUR -1585 * -1586 *************************************************** -1587 * ESCAPE HANDLERS * -1588 *************************************************** -1589 * -1590 FD95 F6 DF FE ESCAPE LDAB ESCFLG GET FLAG -1591 FD98 C1 3D CMPB #'= SETTING CURSOR? -1592 FD9A 27 16 BEQ ESCCUR BRANCH IF SO -1593 FD9C 81 59 CMPA #'Y CLEAR TO END OF SCREEN? -1594 FD9E 10 27 00 6E LBEQ ESCCLS -1595 FDA2 81 54 CMPA #'T CLEAR TO END OF LINE? -1596 FDA4 27 31 BEQ ESCCLL -1597 FDA6 81 3D CMPA #'= STARTING CURSOR SET? -1598 FDA8 26 04 BNE CLRESC BRANCH IF NOT -1599 * -1600 ***************************** START ESCAPE SEQUENCE -1601 * -1602 FDAA B7 DF FE SETESC STAA ESCFLG ELSE START CURSORING -1603 FDAD 39 RTS AND RETURN -1604 * -1605 FDAE 7F DF FE CLRESC CLR ESCFLG NO OTHERS SUPPORTED -1606 FDB1 39 RETESC RTS SO RETURN -1607 * -1608 ********************************* SET SCREEN CURSOR -1609 * -1610 FDB2 7D DF FD ESCCUR TST NEWROW ROW SET? -1611 FDB5 26 04 BNE ESCCU1 BRANCH IF SO -1612 FDB7 B7 DF FD STAA NEWROW ELSE SET NEW ROW -1613 FDBA 39 RTS AND RETURN -1614 * -1615 FDBB 7F DF FE ESCCU1 CLR ESCFLG -1616 FDBE 80 20 SUBA #$20 ADJUST COLUMN ADDRESS -1617 FDC0 81 4F CMPA #LINLEN-1 CHECK FOR ACCEPTABLE COLUM -1618 FDC2 22 ED BHI RETESC NOT OK, DO NOTHING -1619 * -1620 FDC4 F6 DF FD ESCCU2 LDAB NEWROW -1621 FDC7 7F DF FD CLR NEWROW -1622 FDCA C0 20 SUBB #$20 ADJUST TO ROW ADDRESS -1623 FDCC C1 18 CMPB #NUMLIN-1 CHECK FOR ACCEPTABLE ROW -1624 FDCE 22 E1 BHI RETESC ELSE RETURN DOING NOTHING -1625 FDD0 20 1B BRA NEWCUR GO SET NEW CURSOR IF SO -1626 * -1627 ****************** CLEAR FROM CURSOR TO END OF LINE -1628 FDD2 CC 00 00 CLRSCR LDD #0 CLEAR FROM TOP OF SCREEN -1629 FDD5 8D 16 BSR NEWCUR -1630 FDD7 B6 DF FB ESCCLL LDA COLADX -1631 FDDA C6 20 LDB #$20 AND CLEAR CHAR -1632 FDDC E7 84 ESCCL1 STB VDUCHR,X DISPLAY TEXT -1633 FDDE 4C INCA -1634 FDDF A7 02 STA VDUCOL,X -1635 FDE1 81 50 CMPA #LINLEN UNTIL END OF LINE -1636 FDE3 26 F7 BNE ESCCL1 -1637 FDE5 7F DF FE CLR ESCFLG -1638 FDE8 39 RTS -1639 * -1640 *********************************** CARRIAGE RETURN -1641 * -1642 FDE9 4F CRETN CLRA SET COLUMN ZERO -1643 FDEA F6 DF FC POSCOL LDB ROWADX GET CURRENT ROW -1644 * -1645 *********** GENERATE NEW CURSOR POSITION AND RETURN -1646 * -1647 FDED FD DF FB NEWCUR STD COLADX SAVE NEW ROW AND COLUMN -1648 FDF0 A7 02 STA VDUCOL,X SET NEW COLUMN -1649 FDF2 E7 03 STB VDUROW,X SET NEW ROW -1650 FDF4 39 RTS AND RETURN -1651 * -1652 ********************* UPDATE CURRENT COLUMN AND ROW -1653 * -1654 FDF5 FC DF FB NEWCOL LDD COLADX GET ROW AND COLUMN -1655 FDF8 4C INCA BUMP COLUMN -1656 FDF9 81 50 CMPA #LINLEN ROLL? -1657 FDFB 26 F0 BNE NEWCUR BRANCH IF NOT -1658 FDFD 4F CLRA ELSE RESET TO ZERO -1659 FDFE 5C INCB AND BUMP ROW -1660 FDFF C1 19 CMPB #NUMLIN -1661 FE01 26 EA BNE NEWCUR -1662 FE03 5A DECB BOTTOM ROW -1663 FE04 8D E7 BSR NEWCUR -1664 * -1665 ********************************* SCROLL THE SCREEN -1666 * -1667 FE06 E6 04 SCROLL LDB VDUOFF,X -1668 FE08 5C INCB -1669 FE09 C1 19 CMPB #NUMLIN -1670 FE0B 25 01 BLO SCROL1 -1671 FE0D 5F CLRB -1672 FE0E E7 04 SCROL1 STB VDUOFF,X -1673 * -1674 **************** CLEAR FROM CURSOR TO END OF SCREEN -1675 * -1676 FE10 F6 DF FB ESCCLS LDB COLADX GET CURSOR -1677 FE13 86 20 LDA #$20 GET A SPACE -1678 FE15 F7 DF FB ESCCLS1 STB COLADX -1679 FE18 E7 02 STB VDUCOL,X -1680 FE1A A7 84 STA VDUCHR,X -1681 FE1C 5C INCB -1682 FE1D C1 50 CMPB #LINLEN -1683 FE1F 26 F4 BNE ESCCLS1 +1328 * ALTER "DP" DIRECT PAGE REGISTER +1329 * +1330 FB5E 8D 49 ALTRDP BSR PRTDP $FCD5 PRINT MSG " DP = " +1331 FB60 8D C6 BSR JOUT1S OUTPUT SPACE +1332 FB62 8D C7 BSR JBYTE INPUT BYTE (2 HEX CHAR) +1333 FB64 29 02 BVS ALTDPD +1334 FB66 A7 43 STA 3,U +1335 FB68 39 ALTDPD RTS ; +1336 * +1337 * ALTER "B" ACCUMULATOR +1338 * +1339 FB69 8D 6C ALTRB BSR PRTB $FD09 PRINT MSG " B = " +1340 FB6B 8D BB BSR JOUT1S OUTPUT SPACE +1341 FB6D 8D BC BSR JBYTE INPUT BYTE (2 HEX CHAR) +1342 FB6F 29 02 BVS ALTBD +1343 FB71 A7 42 STA 2,U +1344 FB73 39 ALTBD RTS $F91C +1345 * +1346 * ALTER "A" ACCUMULATOR +1347 * +1348 FB74 8D 58 ALTRA BSR PRTA $FCFF RINT MSG " A = " +1349 FB76 8D B0 BSR JOUT1S OUTPUT SPACE +1350 FB78 8D B1 BSR JBYTE INPUT BYTE (2 HEX CHAR) +1351 FB7A 29 02 BVS ALTAD +1352 FB7C A7 41 STA 1,U +1353 FB7E 39 ALTAD RTS ; +1354 * +1355 * ALTER "CC" REGISTER +1356 * +1357 FB7F 8D 5F ALTRCC BSR PRTCC $FD13 PRINT MSG " CC: " +1358 FB81 8D A5 BSR JOUT1S OUTPUT SPACE +1359 FB83 8D A6 BSR JBYTE INPUT BYTE (2 HEX CHAR) +1360 FB85 29 04 BVS ALTCCD +1361 FB87 8A 80 ORA #$80 SETS "E" FLAG IN PRINT LIST +1362 FB89 A7 C4 STA ,U +1363 FB8B 39 ALTCCD RTS ; +1364 * +1365 * PDATA +1366 * +1367 FB8C 17 01 3F PRINT LBSR OUTCH +1368 FB8F A6 80 PDATA LDA ,X+ GET 1st CHAR. TO PRINT +1369 FB91 81 04 CMPA #4 IS IT EOT? +1370 FB93 26 F7 BNE PRINT IF NOT EOT PRINT IT +1371 FB95 39 RTS ; +1372 * +1373 * PRINT REGISTERS +1374 * +1375 FB96 8E FE B6 PRTSP LDX #MSG10 POINT TO MSG "SP=" +1376 FB99 8D F4 BSR PDATA PRINT MSG +1377 FB9B 1F 31 TFR U,X +1378 FB9D 16 00 BF JOUT4H LBRA OUT4H +1379 * +1380 FBA0 8E FE C2 PRTUS LDX #MSG12 POINT TO MSG "US=" +1381 FBA3 8D EA BSR PDATA PRINT MSG +1382 FBA5 AE 48 LDX 8,U +1383 FBA7 20 F4 BRA JOUT4H +1384 * +1385 FBA9 8E FE D4 PRTDP LDX #MSG15 POINT TO MSG "DP=" +1386 FBAC 8D E1 BSR PDATA PRINT MSG +1387 FBAE A6 43 LDA 3,U +1388 FBB0 16 00 B4 JOUT2H LBRA OUT2H OUTPUT HEX BYTE AS ASCII +1389 * +1390 FBB3 8E FE CE PRTIX LDX #MSG14 POINT TO MSG "IX=" +1391 FBB6 8D D7 BSR PDATA PRINT MSG +1392 FBB8 AE 44 LDX 4,U $FCE6 +1393 FBBA 20 E1 BRA JOUT4H +1394 * +1395 FBBC 8E FE C8 PRTIY LDX #MSG13 POINT TO MSG "IY=" +1396 FBBF 8D CE BSR PDATA PRINT MSG +1397 FBC1 AE 46 LDX 6,U +1398 FBC3 20 D8 BRA JOUT4H +1399 * +1400 FBC5 8E FE BC PRTPC LDX #MSG11 POINT TO MSG "PC=" +1401 FBC8 8D C5 BSR PDATA PRINT MSG +1402 FBCA AE 4A LDX 10,U +1403 FBCC 20 CF BRA JOUT4H +1404 * +1405 FBCE 8E FE DA PRTA LDX #MSG16 POINT TO MSG "A=" +1406 FBD1 8D BC BSR PDATA PRINT MSG +1407 FBD3 A6 41 LDA 1,U +1408 FBD5 20 D9 BRA JOUT2H OUTPUT HEX BYTE AS ASCII +1409 * +1410 FBD7 8E FE DF PRTB LDX #MSG17 POINT TO MSG "B=" +1411 FBDA 8D B3 BSR PDATA PRINT MSG +1412 FBDC A6 42 LDA 2,U +1413 FBDE 20 D0 BRA JOUT2H OUTPUT HEX BYTE AS ASCII +1414 * +1415 FBE0 8E FE E4 PRTCC LDX #MSG18 POINT TO MSG "CC:" +1416 FBE3 8D AA BSR PDATA PRINT MSG +1417 FBE5 A6 C4 LDA ,U +1418 FBE7 8E FE EB LDX #MSG19 POINT TO MSG "EFHINZVC" +1419 FBEA 16 00 90 LBRA BIASCI OUTPUT IN BINARY/ASCII FORMAT +1420 * +1421 * "R" DISPLAY REGISTERS +1422 * +1423 FBED 8E FE B2 REGSTR LDX #MSG5 POINT TO MSG " - " +1424 FBF0 17 FF 27 LBSR PSTRNG PRINT MSG +1425 FBF3 8D A1 BSR PRTSP $FCBF +1426 FBF5 8D A9 BSR PRTUS $FCCA +1427 FBF7 8D B0 BSR PRTDP $FCD5 +1428 FBF9 8D B8 BSR PRTIX $FCE0 +1429 FBFB 8D BF BSR PRTIY $FCEB +1430 FBFD 8E FE B2 LDX #MSG5 POINT TO MSG " - " +1431 FC00 17 FF 17 LBSR PSTRNG PRINT MSG +1432 FC03 8D C0 BSR PRTPC $FCF5 +1433 FC05 8D C7 BSR PRTA $FCFF +1434 FC07 8D CE BSR PRTB $FD09 +1435 FC09 20 D5 BRA PRTCC $FD13 +1436 * +1437 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE +1438 * OPERATOR TO INPUT TWO VALID HEX ADDRESSES. +1439 * THE FIRST ADDRESS INPUT IS RETURNED IN "IY". +1440 * THE SECOND IS RETURNED IN "IX". THE "V" BIT +1441 * IN THE C-CODE REG. IS SET IF AN INVALID HEX +1442 * ADDRESS IS INPUT. +1443 * +1444 FC0B 8D 09 IN2ADR BSR IN1ADR GET FIRST ADDRESS +1445 FC0D 29 4D BVS NOTHEX EXIT IF NOT VALID HEX +1446 FC0F 1F 12 TFR X,Y SAVE FIRST ADDR. IN "IY" +1447 FC11 86 2D LDA #'- +1448 FC13 17 00 B8 LBSR OUTCH PRINT " - " +1449 * +1450 * THE FOLLOWING ROUTINE LOOPS WAITING FOR THE +1451 * OPERATOR TO INPUT ONE VALID HEX ADDRESS. THE +1452 * ADDRESS IS RETURNED IN THE "X" REGISTER. +1453 * +1454 FC16 8D 0E IN1ADR BSR BYTE INPUT BYTE (2 HEX CHAR) +1455 FC18 29 42 BVS NOTHEX EXIT IF NOT VALID HEX +1456 FC1A 1F 01 TFR D,X +1457 FC1C 8D 08 BSR BYTE INPUT BYTE (2 HEX CHAR) +1458 FC1E 29 3C BVS NOTHEX +1459 FC20 34 10 PSHS X +1460 FC22 A7 61 STA 1,S +1461 FC24 35 90 PULS X,PC +1462 * +1463 ***** INPUT BYTE (2 HEX CHAR.) ***** +1464 * +1465 FC26 8D 11 BYTE BSR INHEX GET HEX LEFT +1466 FC28 29 32 BVS NOTHEX EXIT IF NOT VALID HEX +1467 FC2A 48 ASLA ; +1468 FC2B 48 ASLA ; +1469 FC2C 48 ASLA ; SHIFT INTO LEFT NIBBLE +1470 FC2D 48 ASLA ; +1471 FC2E 1F 89 TFR A,B PUT HEXL IN "B" +1472 FC30 8D 07 BSR INHEX GET HEX RIGHT +1473 FC32 29 28 BVS NOTHEX EXIT IF NOT VALID HEX +1474 FC34 34 04 PSHS B PUSH HEXL ON STACK +1475 FC36 AB E0 ADDA ,S+ ADD HEXL TO HEXR AND ADJ. STK +1476 FC38 39 RTS RETURN WITH HEX L&R IN "A" +1477 * +1478 * +1479 FC39 8D 5B INHEX BSR ECHON INPUT ASCII CHAR. +1480 FC3B 81 30 CMPA #'0 IS IT > OR = "0" ? +1481 FC3D 25 1D BCS NOTHEX IF LESS IT AIN'T HEX +1482 FC3F 81 39 CMPA #'9 IS IT < OR = "9" ? +1483 FC41 22 03 BHI INHEXA IF > MAYBE IT'S ALPHA +1484 FC43 80 30 SUBA #$30 ASCII ADJ. NUMERIC +1485 FC45 39 RTS ; +1486 * +1487 * +1488 FC46 81 41 INHEXA CMPA #'A IS IT > OR = "A" +1489 FC48 25 12 BCS NOTHEX IF LESS IT AIN'T HEX +1490 FC4A 81 46 CMPA #'F IS IT < OR = "F" ? +1491 FC4C 22 03 BHI INHEXL IF > IT AIN'T HEX +1492 FC4E 80 37 SUBA #$37 ASCII ADJ. ALPHA +1493 FC50 39 RTS ; +1494 * +1495 FC51 81 61 INHEXL CMPA #'a IS IT > OR = "a" +1496 FC53 25 07 BCS NOTHEX IF LESS IT AIN'T HEX +1497 FC55 81 66 CMPA #'f IS IT < "f" +1498 FC57 22 03 BHI NOTHEX IF > IT AIN'T HEX +1499 FC59 80 57 SUBA #$57 ADJUST TO LOWER CASE +1500 FC5B 39 RTS ; +1501 * +1502 * +1503 FC5C 1A 02 NOTHEX ORCC #2 SET (V) FLAG IN C-CODES REGISTER +1504 FC5E 39 RTS ; +1505 * +1506 * +1507 FC5F 34 10 OUT4H PSHS X PUSH X-REG. ON THE STACK +1508 FC61 35 02 PULS A POP MS BYTE OF X-REG INTO A-ACC. +1509 FC63 8D 02 BSR OUTHL OUTPUT HEX LEFT +1510 FC65 35 02 PULS A POP LS BYTE OF X-REG INTO A-ACC. +1511 FC67 OUTHL EQU * +1512 FC67 34 02 OUT2H PSHS A SAVE IT BACK ON STACK +1513 FC69 44 LSRA CONVERT UPPER HEX NIBBLE TO ASCII +1514 FC6A 44 LSRA ; +1515 FC6B 44 LSRA ; +1516 FC6C 44 LSRA ; +1517 FC6D 8D 04 BSR XASCII PRINT HEX NIBBLE AS ASCII +1518 FC6F 35 02 OUTHR PULS A CONVERT LOWER HEX NIBBLE TO ASCII +1519 FC71 84 0F ANDA #$0F STRIP LEFT NIBBLE +1520 FC73 8B 30 XASCII ADDA #$30 ASCII ADJ +1521 FC75 81 39 CMPA #$39 IS IT < OR = "9" ? +1522 FC77 2F 02 BLE OUTC IF LESS, OUTPUT IT +1523 FC79 8B 07 ADDA #7 IF > MAKE ASCII LETTER +1524 FC7B 20 51 OUTC BRA OUTCH OUTPUT CHAR +1525 * +1526 * BINARY / ASCII --- THIS ROUTINE +1527 * OUTPUTS A BYTE IN ENHANCED +1528 * BINARY FORMAT. THE ENHANCEMENT +1529 * IS DONE BY SUBSTITUTING ASCII +1530 * LETTERS FOR THE ONES IN THE BYTE. +1531 * THE ASCII ENHANCEMENT LETTERS +1532 * ARE OBTAINED FROM THE STRING +1533 * POINTED TO BY THE INDEX REG. "X". +1534 * +1535 FC7D 34 02 BIASCI PSHS A SAVE "A" ON STACK +1536 FC7F C6 08 LDB #8 PRESET LOOP# TO BITS PER BYTE +1537 FC81 A6 80 OUTBA LDA ,X+ GET LETTER FROM STRING +1538 FC83 68 E4 ASL ,S TEST BYTE FOR "1" IN B7 +1539 FC85 25 02 BCS PRTBA IF ONE PRINT LETTER +1540 FC87 86 2D LDA #'- IF ZERO PRINT "-" +1541 FC89 8D 43 PRTBA BSR OUTCH PRINT IT +1542 FC8B 8D 3F BSR OUT1S PRINT SPACE +1543 FC8D 5A DECB SUB 1 FROM #BITS YET TO PRINT +1544 FC8E 26 F1 BNE OUTBA +1545 FC90 35 82 PULS A,PC +1546 * +1547 * EXTENDED USER COMMANDS +1548 * +1549 FC92 6E 9F F0 00 EXTEND JMP [MONEXT+EXTCMD] +1550 * +1551 * +1552 FC96 7D DF E2 ECHON TST ECHO IS ECHO REQUIRED ? +1553 FC99 27 06 BEQ INCH ECHO NOT REQ. IF CLEAR +1554 * +1555 * INCHE +1556 * +1557 * ---GETS CHARACTER FROM TERMINAL AND +1558 * ECHOS SAME. THE CHARACTER IS RETURNED +1559 * IN THE "A" ACCUMULATOR WITH THE PARITY +1560 * BIT MASKED OFF. ALL OTHER REGISTERS +1561 * ARE PRESERVED. +1562 * +1563 FC9B 8D 04 INCHE BSR INCH GET CHAR FROM TERMINAL +1564 FC9D 84 7F ANDA #$7F STRIP PARITY FROM CHAR. +1565 FC9F 20 2D BRA OUTCH ECHO CHAR TO TERMINAL +1566 * +1567 * INCH +1568 * +1569 * GET CHARACTER FROM TERMINAL. RETURN +1570 * CHARACTER IN "A" ACCUMULATOR AND PRESERVE +1571 * ALL OTHER REGISTERS. THE INPUT CHARACTER +1572 * IS 8 BITS AND IS NOT ECHOED. +1573 * +1574 * +1575 FCA1 34 10 INCH PSHS X SAVE IX +1576 FCA3 BE DF E0 GETSTA LDX CPORT POINT TO TERMINAL PORT +1577 FCA6 A6 84 LDA ,X FETCH PORT STATUS +1578 FCA8 85 01 BITA #1 TEST READY BIT, RDRF ? +1579 IFD PS2OPT +1580 FCAA 26 09 BNE GETST1 +1581 FCAC 8E E0 20 LDX #PS2KBD +1582 FCAF A6 84 LDA ,X +1583 FCB1 85 01 BITA #1 +1584 ENDIF PS2OPT +1585 FCB3 27 EE BEQ GETSTA IF NOT RDY, THEN TRY AGAIN +1586 FCB5 A6 01 GETST1 LDA 1,X FETCH CHAR +1587 FCB7 35 90 PULS X,PC RESTORE IX +1588 * +1589 * INCHEK +1590 * +1591 * CHECK FOR A CHARACTER AVAILABLE FROM +1592 * THE TERMINAL. THE SERIAL PORT IS CHECKED +1593 * FOR READ READY. ALL REGISTERS ARE +1594 * PRESERVED, AND THE "Z" BIT WILL BE +1595 * CLEAR IF A CHARACTER CAN BE READ. +1596 * +1597 * +1598 FCB9 34 02 INCHEK PSHS A SAVE A ACCUM. +1599 FCBB A6 9F DF E0 LDA [CPORT] FETCH PORT STATUS +1600 FCBF 85 01 BITA #1 TEST READY BIT, RDRF ? +1601 IFD PS2OPT +1602 FCC1 26 05 BNE INCHEK1 +1603 FCC3 B6 E0 20 LDA PS2KBD +1604 FCC6 85 01 BITA #1 TEST READY BIT< RDRF ? +1605 ENDIF PS2OPT +1606 FCC8 35 82 INCHEK1 PULS A,PC RESTORE A ACCUM. +1607 * +1608 FCCA 8D 00 OUT2S BSR OUT1S OUTPUT 2 SPACES +1609 FCCC 86 20 OUT1S LDA #$20 OUTPUT 1 SPACE +1610 * +1611 * +1612 * OUTCH +1613 * +1614 * OUTPUT CHARACTER TO TERMINAL. +1615 * THE CHAR. TO BE OUTPUT IS +1616 * PASSED IN THE A REGISTER. +1617 * ALL REGISTERS ARE PRESERVED. +1618 * +1619 OUTCH IFD VDUOPT +1620 FCCE 8D 45 BSR VOUTCH +1621 ENDIF VDUOPT +1622 IFD DG640OPT +1623 BSR VOUTCH +1624 ENDIF DG640OPT +1624 ENDIF DG640OPT +1625 FCD0 34 12 AOUTCH PSHS A,X SAVE A ACCUM AND IX +1626 FCD2 BE DF E0 LDX CPORT GET ADDR. OF TERMINAL +1627 FCD5 A6 84 FETSTA LDA ,X FETCH PORT STATUS +1628 FCD7 85 02 BITA #2 TEST TDRE, OK TO XMIT ? +1629 FCD9 27 FA BEQ FETSTA IF NOT LOOP UNTIL RDY +1630 FCDB 35 02 PULS A GET CHAR. FOR XMIT +1631 FCDD A7 01 STA 1,X XMIT CHAR. +1632 FCDF 35 90 PULS X,PC RESTORE IX +1633 * +1634 * IO INITIALIZATION +1635 * +1636 FCE1 IOINIZ EQU * +1637 IFD VDUOPT +1638 FCE1 8D 13 BSR VINIZ +1639 ENDIF VDUOPT +1640 IFD DG640OPT +1641 BSR VINIZ +1642 ENDIF DG640OPT +1642 ENDIF DG640OPT +1643 FCE3 BE DF E0 ACINIZ LDX CPORT POINT TO CONTROL PORT ADDRESS +1644 FCE6 86 03 LDA #3 RESET ACIA PORT CODE +1645 FCE8 A7 84 STA ,X STORE IN CONTROL REGISTER +1646 FCEA 86 11 LDA #$11 SET 8 DATA, 2 STOP AN 0 PARITY +1647 FCEC A7 84 STA ,X STORE IN CONTROL REGISTER +1648 FCEE 6D 01 TST 1,X ANYTHING IN DATA REGISTER? +1649 FCF0 86 FF LDA #$FF TURN ON ECHO FLAG +1650 FCF2 B7 DF E2 STA ECHO +1651 FCF5 39 RTS +1652 * +1653 IFD VDUOPT +1654 * +1655 *************************************************** +1656 * VDU8 ADM3A REGISTER-MAPPED EMULATOR * +1657 * * +1658 * 80 x 25 Characters +1659 * +1660 *************************************************** +1661 * +1662 *************************************************** +1663 * INITIALIZE EMULATOR * +1664 *************************************************** +1665 * +1666 FCF6 8E E0 30 VINIZ LDX #VDU +1667 FCF9 CC 00 00 LDD #0 +1668 FCFC FD DF FB STD COLADX AND ROWADX +1669 FCFF A7 02 STA VDUCOL,X +1670 FD01 E7 03 STB VDUROW,X +1671 FD03 E7 04 STB VDUOFF,X +1672 FD05 FD DF FD STD NEWROW AND ESCFLG +1673 FD08 C6 02 LDB #$02 +1674 FD0A E7 01 STB VDUATT,X +1675 FD0C 7F DF FE CLR ESCFLG +1676 FD0F 86 1B LDA #$1B SEND ESCAPE +1677 FD11 8D 02 BSR VOUTCH +1678 FD13 86 59 LDA #'Y CLEAR TO END OF SCREEN +1679 * +1680 ** VIDEO OUTPUT ROUTINE +1681 * +1682 FD15 34 16 VOUTCH PSHS A,B,X SAVE REGISTERS +1683 FD17 8E E0 30 LDX #VDU POINT TO VDU REGISTERS 1684 * -1685 FE21 F6 DF FC LDB ROWADX -1686 FE24 5C INCB -1687 FE25 C1 19 CMPB #NUMLIN -1688 FE27 27 08 BEQ ESCCLS2 -1689 FE29 F7 DF FC STB ROWADX -1690 FE2C E7 03 STB VDUROW,X -1691 FE2E 5F CLRB -1692 FE2F 20 E4 BRA ESCCLS1 +1685 ** CHECK FOR ESCAPE SEQUENCE +1686 * +1687 FD1A 7D DF FE TST ESCFLG ESCAPE ACTIVE? +1688 FD1D 27 04 BEQ SOROU1 BRANCH IF NOT +1689 FD1F 8D 74 BSR ESCAPE ELSE DO ESCAPE +1690 FD21 20 0D BRA RETURN AND RETURN +1691 * +1692 ** CHECK FOR CONTROL CHARACTERS 1693 * -1694 FE31 5F ESCCLS2 CLRB -1695 FE32 F7 DF FB STB COLADX -1696 FE35 E7 02 STB VDUCOL,X -1697 FE37 F7 DF FE STB ESCFLG -1698 FE3A 39 RTS -1699 ENDIF FPGAOPT -1700 * -1701 IFD ADSOPT -1702 *************************************************** -1703 * TELEVIDEO-TYPE MEMORY-MAPPED EMULATOR * -1704 * * -1705 * FOR HARD-WIRED MEMORY-MAPPED DISPLAYS USING THE * -1706 * HIGH ORDER BIT OF EACH BYTE FOR REVERSE VIDEO * -1707 * CURSORING (SUCH AS THE THOMAS INSTRUMENTATION * -1708 * 16x64 BOARD). * -1709 *************************************************** -1710 -1711 *************************************************** -1712 * INITIALIZE EMULATOR * -1713 *************************************************** -1714 -1715 VINIZ LDX #0 -1716 STX COLADX AND ROWADX -1717 STX NEWROW AND ESCFLG -1718 LDX #SCREEN POINT TO SCREEN -1719 STX CURSOR SET PROGRAM CURSOR -1720 LDA #$1B SEND ESCAPE -1721 BSR VOUTCH -1722 LDA #'Y CLEAR TO END OF SCREEN -1723 * -1724 ** VIDEO OUTPUT ROUTINE -1725 * -1726 VOUTCH PSHS A,B,X SAVE REGISTERS -1727 * -1728 ** CLEAR CURSOR -1729 LDX CURSOR -1730 LDB 0,X -1731 ANDB #$7F -1732 STB 0,X -1733 * -1734 ** CHECK FOR ESCAPE SEQUENCE -1735 TST ESCFLG ESCAPE ACTIVE? -1736 BEQ SOROU1 BRANCH IF NOT -1737 BSR ESCAPE ELSE DO ESCAPE -1738 BRA RETURN AND RETURN -1739 * -1740 ** CHECK FOR CONTROL CHARACTERS -1741 SOROU1 CMPA #$20 CONTROL CODES? -1742 BHS SOROU2 -1743 BSR CONTRL BRANCH IF SO -1744 BRA RETURN -1745 * -1746 ** OUTPUT TEXT CHARACTER -1747 SOROU2 LDX CURSOR ELSE GET CURSOR -1748 STAA 0,X DISPLAY CHARACTER -1749 LBSR NEWCOL UPDATE COLUMN -1750 * -1751 ** DISPLAY CURSOR AND RETURN -1752 RETURN LDX CURSOR AND DISPLAY IT -1753 LDB ,X -1754 ORAB #$80 WITH REVID -1755 STB ,X -1756 PULS A,B,X,PC RESTORE REGISTERS AND RETURN -1757 -1758 *************************************************** -1759 * CONTROL CODE HANDLERS * -1760 *************************************************** -1761 -1762 CONTRL CMPA #$08 CTRL H - BACKSPACE ? -1763 LBEQ BACKSP -1764 CMPA #$1B ESCAPE SEQUENCE? -1765 LBEQ SETESC -1766 CMPA #$D CTRL M - RETURN? -1767 LBEQ CRETN -1768 CMPA #$0A CTRL J - LINE FEED -1769 BNE RETESC NONE OF THESE, RETURN -1770 -1771 ***************************************** LINE FEED -1772 -1773 LINEFD LDD COLADX GET CURRENT COLUMN AND ROW -1774 INCB BUMP ROW -1775 CMPB #NUMLIN SCROLL TIME? -1776 LBNE NEWCUR POSITION CURSOR IF NOT -1777 LBRA SCROLL ELSE SCROLL IT -1778 -1779 ***************************************** LINE FEED -1780 -1781 LINEUP LDD COLADX GET CURRENT COLUMN AND ROW -1782 TSTB AT TOP OF SCREEN ? -1783 BEQ RETESC Yes, Ignore -1784 DECB No, Decrement ROW -1785 LBRA NEWCUR POSITION CURSOR -1786 -1787 -1788 *********************************** BACK SPACE -1789 -1790 BACKSP LDA COLADX -1791 BEQ RETESC RETURN -1792 DECA -1793 LBRA POSCOL POSITION CURSOR -1794 -1795 *********************************** CURSOR RIGHT -1796 -1797 CHRIGHT LDA COLADX -1798 INCA -1799 CMPA #LINLEN -1800 BEQ RETESC -1801 LBRA POSCOL -1802 -1803 *************************************************** -1804 * ESCAPE HANDLERS * -1805 *************************************************** -1806 -1807 ESCAPE LDAB ESCFLG GET FLAG -1808 CMPB #'= SETTING CURSOR? -1809 BEQ ESCCUR BRANCH IF SO -1810 CMPA #'Y CLEAR TO END OF SCREEN? -1811 LBEQ ESCCLS -1812 CMPA #'T CLEAR TO END OF LINE? -1813 BEQ ESCCLL -1814 CMPA #'E INSERT LINE? -1815 BEQ ESCINL -1816 CMPA #'R DELETE LINE? -1817 BEQ ESCDLL -1818 CMPA #'= STARTING CURSOR SET? -1819 BNE CLRESC BRANCH IF NOT -1820 -1821 ***************************** START ESCAPE SEQUENCE -1822 -1823 SETESC STAA ESCFLG ELSE START CURSORING -1824 RTS AND RETURN -1825 -1826 CLRESC CLR ESCFLG NO OTHERS SUPPORTED -1827 RETESC RTS SO RETURN -1828 -1829 ********************************* SET SCREEN CURSOR -1830 -1831 ESCCUR TST NEWROW ROW SET? -1832 BNE ESCCU1 BRANCH IF SO -1833 STAA NEWROW ELSE SET NEW ROW -1834 RTS AND RETURN -1835 -1836 ESCCU1 CLR ESCFLG -1837 SUBA #$20 ADJUST COLUMN ADDRESS -1838 CMPA #LINLEN-1 CHECK FOR ACCEPTABLE COLUM -1839 BHI RETESC NOT OK, DO NOTHING -1840 -1841 ESCCU2 LDAB NEWROW -1842 CLR NEWROW -1843 SUBB #$20 ADJUST TO ROW ADDRESS -1844 CMPB #NUMLIN-1 CHECK FOR ACCEPTABLE ROW -1845 BHI RETESC ELSE RETURN DOING NOTHING -1846 BRA NEWCUR GO SET NEW CURSOR IF SO -1847 * -1848 *************************** DELETE LINE FROM SCREEN -1849 -1850 ESCDLL BSR CRETN GO COL. ZERO -1851 LDB ROWADX -1852 CMPB #NUMLIN-1 -1853 BEQ SCROL3 -1854 BRA SCROL1 AND DELETE THIS LINE -1855 -1856 *************************** INSERT LINE INTO SCREEN -1857 -1858 ESCINL BSR CRETN GO TO COL. ZERO -1859 LDAB ROWADX -1860 CMPB #NUMLIN-1 -1861 BEQ ESCCLL -1862 * -1863 ** SCROLL SCREEN DOWN FROM CURSOR -1864 * -1865 LDX #SCREEN+SCNLEN-LINLEN -1866 ESCIN0 LDAA 0,-X -1867 STAA LINLEN,X -1868 LDA SCNLEN,X -1869 STA SCNLEN+LINLEN,X -1870 CPX CURSOR -1871 BNE ESCIN0 -1872 -1873 ****************** CLEAR FROM CURSOR TO END OF LINE -1874 -1875 ESCCLL LDA COLADX GET CURRENT COLUMN -1876 LDX CURSOR GET CURSOR -1877 LDB #$20 AND CLEAR CHAR -1878 ESCLL1 STB SCNLEN,X CLEAR ATTRIBUTE -1879 STB ,X+ CLEAR TEXT -1880 INCA -1881 CMPA #LINLEN UNTIL END OF LINE -1882 BNE ESCLL1 -1883 CLR ESCFLG -1884 RTS -1885 -1886 *********************************** CARRIAGE RETURN -1887 -1888 CRETN CLRA SET COLUMN ZERO -1889 POSCOL LDB ROWADX GET CURRENT ROW -1890 -1891 *********** GENERATE NEW CURSOR POSITION AND RETURN -1892 -1893 NEWCUR STD COLADX SAVE NEW ROW AND COLUMN -1894 LDA #LINLEN ELSE ADD A LINE -1895 MUL LINLEN * ROWADX -1896 ADDB COLADX -1897 ADCA #0 -1898 ADDD #SCREEN ADD SCREEN BASE. -1899 STD CURSOR SAVE NEW CURSOR -1900 TFR D,X GET CURSOR IN X -1901 RTS AND RETURN -1902 -1903 ********************* UPDATE CURRENT COLUMN AND ROW -1904 -1905 NEWCOL LDD COLADX GET ROW AND COLUMN -1906 INCA BUMP COLUMN -1907 CMPA #LINLEN ROLL? -1908 BNE NEWCUR BRANCH IF NOT -1909 CLRA ELSE RESET TO ZERO -1910 INCB AND BUMP ROW -1911 CMPB #NUMLIN -1912 BNE NEWCUR -1913 DECB BOTTOM ROW -1914 BSR NEWCUR -1915 -1916 ********************************* SCROLL THE SCREEN -1917 -1918 SCROLL LDX #SCREEN POINT TO SCREEN -1919 SCROL1 LDA SCNLEN+LINLEN,X -1920 STA SCNLEN,X -1921 LDAA LINLEN,X MOVE TWO BYTES -1922 STAA 0,X+ UP ONE LINE -1923 CMPX #SCREEN+SCNLEN-LINLEN -1924 BNE SCROL1 LOOP UNTIL DONE -1925 BRA SCROL3 -1926 -1927 **************** CLEAR FROM CURSOR TO END OF SCREEN -1928 -1929 ESCCLS LDX CURSOR GET CURSOR -1930 SCROL3 LDAA #$20 GET A SPACE -1931 SCROL2 STA SCNLEN,X CLEAR ATTRIBUTES -1932 STA ,X+ AND TEXT -1933 CMPX #SCREEN+SCNLEN -1934 BNE SCROL2 UNTIL DONE -1935 CLR ESCFLG -1936 RTS -1937 ENDIF ADSOPT -1937 ENDIF ADSOPT -1938 * -1939 IFD PRTOPT -1940 ************************************* -1941 * -1942 ** PRINTER DRIVER ROUTINES -1943 * -1944 ************************************* -1945 * -1946 ** PINIZ - INITIATE PRINTER PORT -1947 * -1948 PINIZ PSHS B -1949 LDD #DIRMSK*256+$04 ACCA=DIRMSK ACCB=$04 -1950 STD PADATA SET DDR AND SELECT DATA -1951 * -1952 ** RESET PRINTER -1953 LDB #PRESET -1954 STAB PADATA -1955 RESTLP INCB DELAY FOR RESET -1956 BNE RESTLP -1957 STAA PADATA ACCA=DIRMSK -1958 * -1959 ** INITALIZE PORT B (DATA PORT) -1960 LDAA #$2A -1961 STAA PBCTRL -1962 LDD #$FF2E ACCA=$FF ACCB =%00101110 -1963 STD PBDATA PBDREG PBCTRL -1964 * -1965 ** SELECT 66 LINES/PAGE -1966 LDAA #$1B -1967 BSR POUTCH -1968 LDAA #'C -1969 BSR POUTCH -1970 LDAA #66 -1971 PULS B -1972 ************************************* -1973 * -1974 ** OUTPUT A CHARACTER TO THE PRINTER -1975 * -1976 ************************************* -1977 POUTCH PSHS B -1978 LDAB PBDATA CLEAR INTERRUPT BIT -1979 * -1980 ** WAIT TILL NOT BUSY -1981 BUSYLP LDAB PADATA -1982 BITB #PERROR -1983 BEQ PEXIT -1984 TSTB -1985 BMI BUSYLP -1986 * -1987 ** NOW OUTPUT CHARACTER -1988 STAA PBDATA -1989 PEXIT PULS B,PC -1990 ************************************* -1991 * -1992 ** PCHK TEST IFD PRINTER READY -1993 * -1994 ************************************* -1995 PCHK TST PBCTRL TEST STATE OF CRB7 -1996 RTS SET ON ACKNOWLEDGE -1997 ENDIF PRTOPT -1997 ENDIF PRTOPT -1998 ************************************* -1999 * -2000 * MONITOR KEYBOARD COMMAND JUMP TABLE -2001 * -2002 ************************************* -2003 * -2004 FE3B JMPTAB EQU * -2005 FE3B 01 FCB 1 " ^A " -2006 FE3C FB 74 FDB ALTRA -2007 FE3E 02 FCB 2 " ^B " -2008 FE3F FB 69 FDB ALTRB -2009 FE41 03 FCB 3 " ^C " -2010 FE42 FB 7F FDB ALTRCC -2011 FE44 04 FCB 4 " ^D " -2012 FE45 FB 5E FDB ALTRDP -2013 FE47 10 FCB $10 " ^P " -2014 FE48 FB 31 FDB ALTRPC -2015 FE4A 15 FCB $15 " ^U " -2016 FE4B FB 3D FDB ALTRU -2017 FE4D 18 FCB $18 " ^X " -2018 FE4E FB 53 FDB ALTRX -2019 FE50 19 FCB $19 " ^Y " -2020 FE51 FB 48 FDB ALTRY -2021 * -2022 FE53 42 FCC 'B' -2023 FE54 F9 5C FDB BRKPNT -2024 FE56 45 FCC 'E' -2025 FE57 F8 FD FDB MEMDUMP -2026 FE59 47 FCC 'G' -2027 FE5A F8 A5 FDB GO -2028 FE5C 4C FCC 'L' -2029 FE5D FA 5E FDB LOAD -2030 FE5F 50 FCC 'P' -2031 FE60 FA BC FDB PUNCH -2032 FE62 4D FCC 'M' -2033 FE63 F8 A8 FDB MEMCHG -2034 FE65 52 FCC 'R' -2035 FE66 FB ED FDB REGSTR -2036 FE68 53 FCC 'S' -2037 FE69 F8 F1 FDB DISSTK -2038 FE6B 58 FCC 'X' -2039 FE6C F9 88 FDB XBKPNT -2040 IFD MFDCOPT -2041 FCC 'D' *** SWTPC USES 'U' FOR MINIBOOT -2042 FDB MINBOOT -2043 ENDIF MFDCOPT -2043 ENDIF MFDCOPT -2044 IFD FPGAOPT -2045 FE6E 44 FCC 'D' *** FPGA USES 'D' FOR CFBOOT -2046 FE6F F9 D5 FDB CFBOOT -2047 ENDIF FPGAOPT -2048 IFD DMAFOPT -2049 FCC 'U' *** SWTPC USES 'D' FOR DMAF2 BOOT -2050 FDB DBOOT -2051 ELSE -2052 FE71 55 FCC 'U' *** IF NOT DMAF2, 'U' IS FOR USER -2053 FE72 FC 92 FDB EXTEND -2054 ENDIF DMAFOPT -2055 IFD RTCOPT -2056 FCC 'T' -2057 FDB TIMSET -2058 ENDIF RTCOPT -2058 ENDIF RTCOPT -2059 * -2060 FE74 TABEND EQU * -2061 * -2062 * ** 6809 VECTOR ADDRESSES ** -2063 * -2064 * FOLLOWING ARE THE ADDRESSES OF THE VECTOR ROUTINES -2065 * FOR THE 6809 PROCESSOR. DURING INITIALIZATION THEY -2066 * ARE RELOCATED TO RAM FROM $DFC0 TO $DFCF. THEY ARE -2067 * RELOCATED TO RAM SO THAT THE USER MAY REVECTOR TO -2068 * HIS OWN ROUTINES IF HE SO DESIRES. -2069 * -2070 * -2071 FE74 F9 94 RAMVEC FDB SWIE USER-V -2072 FE76 F8 A7 FDB RTI SWI3-V -2073 FE78 F8 A7 FDB RTI SWI2-V -2074 FE7A F8 A7 FDB RTI FIRQ-V -2075 FE7C F8 A7 FDB RTI IRQ-V -2076 FE7E F9 94 FDB SWIE SWI-V -2077 FE80 FF FF FDB $FFFF SVC-VO -2078 FE82 FF FF FDB $FFFF SVC-VL -2079 * -2080 * PRINTABLE MESSAGE STRINGS -2081 * -2082 FE84 0D 0A 00 00 00 MSG1 FCB $D,$A,$0,$0,$0 * 0, CR/LF, 0 -2083 FE89 53 59 53 30 39 42 FCC 'SYS09BUG 1.2 FOR ' - 55 47 20 31 2E 32 +1694 FD23 81 20 SOROU1 CMPA #$20 CONTROL CODES? +1695 FD25 24 04 BHS SOROU2 +1696 FD27 8D 09 BSR CONTRL BRANCH IF SO +1697 FD29 20 05 BRA RETURN +1698 * +1699 ** OUTPUT TEXT CHARACTER +1700 * +1701 FD2B A7 84 SOROU2 STAA VDUCHR,X DISPLAY CHARACTER +1702 FD2D 17 00 C5 LBSR NEWCOL UPDATE COLUMN +1703 * +1704 ** DISPLAY CURSOR AND RETURN +1705 * +1706 FD30 35 96 RETURN PULS A,B,X,PC RESTORE REGISTERS AND RETURN +1707 * +1708 *************************************************** +1709 * CONTROL CODE HANDLERS * +1710 *************************************************** +1711 * +1712 FD32 81 08 CONTRL CMPA #$08 CTRL H - BACKSPACE ? +1713 FD34 10 27 00 41 LBEQ BACKSP +1714 FD38 81 1B CMPA #$1B ESCAPE SEQUENCE? +1715 FD3A 10 27 00 6C LBEQ SETESC +1716 FD3E 81 1A CMPA #$1A CTRL Z - Clear Screen +1717 FD40 10 27 00 8E LBEQ CLRSCR +1718 FD44 81 16 CMPA #$16 CTRL ^ - Home +1719 FD46 10 27 00 45 LBEQ HOME +1720 FD4A 81 0D CMPA #$D CTRL M - RETURN? +1721 FD4C 10 27 00 99 LBEQ CRETN +1722 FD50 81 0C CMPA #$0C CTRL L - CHAR RIGHT +1723 FD52 10 27 00 2C LBEQ CHRIGHT +1724 FD56 81 0B CMPA #$0B CTRL K - MOVE UP ONE LINE +1725 FD58 10 27 00 11 LBEQ LINEUP +1726 FD5C 81 0A CMPA #$0A CTRL J - LINE FEED +1727 FD5E 26 51 BNE RETESC NONE OF THESE, RETURN +1728 * +1729 ***************************************** LINE FEED +1730 * +1731 FD60 FC DF FB LINEFD LDD COLADX GET CURRENT COLUMN AND ROW +1732 FD63 5C INCB BUMP ROW +1733 FD64 C1 19 CMPB #NUMLIN SCROLL TIME? +1734 FD66 10 26 00 83 LBNE NEWCUR POSITION CURSOR IF NOT +1735 FD6A 16 00 99 LBRA SCROLL ELSE SCROLL IT +1736 * +1737 ***************************************** LINE FEED +1738 * +1739 FD6D FC DF FB LINEUP LDD COLADX GET CURRENT COLUMN AND ROW +1740 FD70 5D TSTB AT TOP OF SCREEN ? +1741 FD71 10 27 00 3C LBEQ RETESC Yes, Ignore +1742 FD75 5A DECB No, Decrement ROW +1743 FD76 16 00 74 LBRA NEWCUR POSITION CURSOR +1744 * +1745 *********************************** BACK SPACE +1746 * +1747 FD79 B6 DF FB BACKSP LDA COLADX +1748 FD7C 27 33 BEQ RETESC RETURN +1749 FD7E 4A DECA +1750 FD7F 16 00 68 LBRA POSCOL POSITION CURSOR +1751 * +1752 *********************************** CURSOR RIGHT +1753 * +1754 FD82 B6 DF FB CHRIGHT LDA COLADX +1755 FD85 4C INCA +1756 FD86 81 50 CMPA #LINLEN +1757 FD88 10 27 00 25 LBEQ RETESC +1758 FD8C 16 00 5B LBRA POSCOL +1759 * +1760 *********************************** CURSOR RIGHT +1761 * +1762 FD8F CC 00 00 HOME LDD #0 HOME - POSITION TOP OF SCREEN +1763 FD92 16 00 58 LBRA NEWCUR +1764 * +1765 *************************************************** +1766 * ESCAPE HANDLERS * +1767 *************************************************** +1768 * +1769 FD95 F6 DF FE ESCAPE LDAB ESCFLG GET FLAG +1770 FD98 C1 3D CMPB #'= SETTING CURSOR? +1771 FD9A 27 16 BEQ ESCCUR BRANCH IF SO +1772 FD9C 81 59 CMPA #'Y CLEAR TO END OF SCREEN? +1773 FD9E 10 27 00 6E LBEQ ESCCLS +1774 FDA2 81 54 CMPA #'T CLEAR TO END OF LINE? +1775 FDA4 27 31 BEQ ESCCLL +1776 FDA6 81 3D CMPA #'= STARTING CURSOR SET? +1777 FDA8 26 04 BNE CLRESC BRANCH IF NOT +1778 * +1779 ***************************** START ESCAPE SEQUENCE +1780 * +1781 FDAA B7 DF FE SETESC STAA ESCFLG ELSE START CURSORING +1782 FDAD 39 RTS AND RETURN +1783 * +1784 FDAE 7F DF FE CLRESC CLR ESCFLG NO OTHERS SUPPORTED +1785 FDB1 39 RETESC RTS SO RETURN +1786 * +1787 ********************************* SET SCREEN CURSOR +1788 * +1789 FDB2 7D DF FD ESCCUR TST NEWROW ROW SET? +1790 FDB5 26 04 BNE ESCCU1 BRANCH IF SO +1791 FDB7 B7 DF FD STAA NEWROW ELSE SET NEW ROW +1792 FDBA 39 RTS AND RETURN +1793 * +1794 FDBB 7F DF FE ESCCU1 CLR ESCFLG +1795 FDBE 80 20 SUBA #$20 ADJUST COLUMN ADDRESS +1796 FDC0 81 4F CMPA #LINLEN-1 CHECK FOR ACCEPTABLE COLUM +1797 FDC2 22 ED BHI RETESC NOT OK, DO NOTHING +1798 * +1799 FDC4 F6 DF FD ESCCU2 LDAB NEWROW +1800 FDC7 7F DF FD CLR NEWROW +1801 FDCA C0 20 SUBB #$20 ADJUST TO ROW ADDRESS +1802 FDCC C1 18 CMPB #NUMLIN-1 CHECK FOR ACCEPTABLE ROW +1803 FDCE 22 E1 BHI RETESC ELSE RETURN DOING NOTHING +1804 FDD0 20 1B BRA NEWCUR GO SET NEW CURSOR IF SO +1805 * +1806 ****************** CLEAR FROM CURSOR TO END OF LINE +1807 FDD2 CC 00 00 CLRSCR LDD #0 CLEAR FROM TOP OF SCREEN +1808 FDD5 8D 16 BSR NEWCUR +1809 FDD7 B6 DF FB ESCCLL LDA COLADX +1810 FDDA C6 20 LDB #$20 AND CLEAR CHAR +1811 FDDC E7 84 ESCCL1 STB VDUCHR,X DISPLAY TEXT +1812 FDDE 4C INCA +1813 FDDF A7 02 STA VDUCOL,X +1814 FDE1 81 50 CMPA #LINLEN UNTIL END OF LINE +1815 FDE3 26 F7 BNE ESCCL1 +1816 FDE5 7F DF FE CLR ESCFLG +1817 FDE8 39 RTS +1818 * +1819 *********************************** CARRIAGE RETURN +1820 * +1821 FDE9 4F CRETN CLRA SET COLUMN ZERO +1822 FDEA F6 DF FC POSCOL LDB ROWADX GET CURRENT ROW +1823 * +1824 *********** GENERATE NEW CURSOR POSITION AND RETURN +1825 * +1826 FDED FD DF FB NEWCUR STD COLADX SAVE NEW ROW AND COLUMN +1827 FDF0 A7 02 STA VDUCOL,X SET NEW COLUMN +1828 FDF2 E7 03 STB VDUROW,X SET NEW ROW +1829 FDF4 39 RTS AND RETURN +1830 * +1831 ********************* UPDATE CURRENT COLUMN AND ROW +1832 * +1833 FDF5 FC DF FB NEWCOL LDD COLADX GET ROW AND COLUMN +1834 FDF8 4C INCA BUMP COLUMN +1835 FDF9 81 50 CMPA #LINLEN ROLL? +1836 FDFB 26 F0 BNE NEWCUR BRANCH IF NOT +1837 FDFD 4F CLRA ELSE RESET TO ZERO +1838 FDFE 5C INCB AND BUMP ROW +1839 FDFF C1 19 CMPB #NUMLIN +1840 FE01 26 EA BNE NEWCUR +1841 FE03 5A DECB BOTTOM ROW +1842 FE04 8D E7 BSR NEWCUR +1843 * +1844 ********************************* SCROLL THE SCREEN +1845 * +1846 FE06 E6 04 SCROLL LDB VDUOFF,X +1847 FE08 5C INCB +1848 FE09 C1 19 CMPB #NUMLIN +1849 FE0B 25 01 BLO SCROL1 +1850 FE0D 5F CLRB +1851 FE0E E7 04 SCROL1 STB VDUOFF,X +1852 * +1853 **************** CLEAR FROM CURSOR TO END OF SCREEN +1854 * +1855 FE10 F6 DF FB ESCCLS LDB COLADX GET CURSOR +1856 FE13 86 20 LDA #$20 GET A SPACE +1857 FE15 F7 DF FB ESCCLS1 STB COLADX +1858 FE18 E7 02 STB VDUCOL,X +1859 FE1A A7 84 STA VDUCHR,X +1860 FE1C 5C INCB +1861 FE1D C1 50 CMPB #LINLEN +1862 FE1F 26 F4 BNE ESCCLS1 +1863 * +1864 FE21 F6 DF FC LDB ROWADX +1865 FE24 5C INCB +1866 FE25 C1 19 CMPB #NUMLIN +1867 FE27 27 08 BEQ ESCCLS2 +1868 FE29 F7 DF FC STB ROWADX +1869 FE2C E7 03 STB VDUROW,X +1870 FE2E 5F CLRB +1871 FE2F 20 E4 BRA ESCCLS1 +1872 * +1873 FE31 5F ESCCLS2 CLRB +1874 FE32 F7 DF FB STB COLADX +1875 FE35 E7 02 STB VDUCOL,X +1876 FE37 F7 DF FE STB ESCFLG +1877 FE3A 39 RTS +1878 ENDIF VDUOPT +1879 * +1880 IFD DG640OPT +1881 *************************************************** +1882 * TELEVIDEO-TYPE MEMORY-MAPPED EMULATOR * +1883 * * +1884 * FOR HARD-WIRED MEMORY-MAPPED DISPLAYS USING THE * +1885 * HIGH ORDER BIT OF EACH BYTE FOR REVERSE VIDEO * +1886 * CURSORING (SUCH AS THE THOMAS INSTRUMENTATION * +1887 * 16x64 BOARD). * +1888 *************************************************** +1889 +1890 *************************************************** +1891 * INITIALIZE EMULATOR * +1892 *************************************************** +1893 +1894 VINIZ LDX #0 +1895 STX COLADX AND ROWADX +1896 STX NEWROW AND ESCFLG +1897 LDX #SCREEN POINT TO SCREEN +1898 STX CURSOR SET PROGRAM CURSOR +1899 LDA #$1B SEND ESCAPE +1900 BSR VOUTCH +1901 LDA #'Y CLEAR TO END OF SCREEN +1902 * +1903 ** VIDEO OUTPUT ROUTINE +1904 * +1905 VOUTCH PSHS A,B,X SAVE REGISTERS +1906 * +1907 ** CLEAR CURSOR +1908 LDX CURSOR +1909 LDB 0,X +1910 ANDB #$7F +1911 STB 0,X +1912 * +1913 ** CHECK FOR ESCAPE SEQUENCE +1914 TST ESCFLG ESCAPE ACTIVE? +1915 BEQ SOROU1 BRANCH IF NOT +1916 BSR ESCAPE ELSE DO ESCAPE +1917 BRA RETURN AND RETURN +1918 * +1919 ** CHECK FOR CONTROL CHARACTERS +1920 SOROU1 CMPA #$20 CONTROL CODES? +1921 BHS SOROU2 +1922 BSR CONTRL BRANCH IF SO +1923 BRA RETURN +1924 * +1925 ** OUTPUT TEXT CHARACTER +1926 SOROU2 LDX CURSOR ELSE GET CURSOR +1927 STAA 0,X DISPLAY CHARACTER +1928 LBSR NEWCOL UPDATE COLUMN +1929 * +1930 ** DISPLAY CURSOR AND RETURN +1931 RETURN LDX CURSOR AND DISPLAY IT +1932 LDB ,X +1933 ORAB #$80 WITH REVID +1934 STB ,X +1935 PULS A,B,X,PC RESTORE REGISTERS AND RETURN +1936 +1937 *************************************************** +1938 * CONTROL CODE HANDLERS * +1939 *************************************************** +1940 +1941 CONTRL CMPA #$08 CTRL H - BACKSPACE ? +1942 LBEQ BACKSP +1943 CMPA #$1B ESCAPE SEQUENCE? +1944 LBEQ SETESC +1945 CMPA #$D CTRL M - RETURN? +1946 LBEQ CRETN +1947 CMPA #$0A CTRL J - LINE FEED +1948 BNE RETESC NONE OF THESE, RETURN +1949 +1950 ***************************************** LINE FEED +1951 +1952 LINEFD LDD COLADX GET CURRENT COLUMN AND ROW +1953 INCB BUMP ROW +1954 CMPB #NUMLIN SCROLL TIME? +1955 LBNE NEWCUR POSITION CURSOR IF NOT +1956 LBRA SCROLL ELSE SCROLL IT +1957 +1958 ***************************************** LINE FEED +1959 +1960 LINEUP LDD COLADX GET CURRENT COLUMN AND ROW +1961 TSTB AT TOP OF SCREEN ? +1962 BEQ RETESC Yes, Ignore +1963 DECB No, Decrement ROW +1964 LBRA NEWCUR POSITION CURSOR +1965 +1966 +1967 *********************************** BACK SPACE +1968 +1969 BACKSP LDA COLADX +1970 BEQ RETESC RETURN +1971 DECA +1972 LBRA POSCOL POSITION CURSOR +1973 +1974 *********************************** CURSOR RIGHT +1975 +1976 CHRIGHT LDA COLADX +1977 INCA +1978 CMPA #LINLEN +1979 BEQ RETESC +1980 LBRA POSCOL +1981 +1982 *************************************************** +1983 * ESCAPE HANDLERS * +1984 *************************************************** +1985 +1986 ESCAPE LDAB ESCFLG GET FLAG +1987 CMPB #'= SETTING CURSOR? +1988 BEQ ESCCUR BRANCH IF SO +1989 CMPA #'Y CLEAR TO END OF SCREEN? +1990 LBEQ ESCCLS +1991 CMPA #'T CLEAR TO END OF LINE? +1992 BEQ ESCCLL +1993 CMPA #'E INSERT LINE? +1994 BEQ ESCINL +1995 CMPA #'R DELETE LINE? +1996 BEQ ESCDLL +1997 CMPA #'= STARTING CURSOR SET? +1998 BNE CLRESC BRANCH IF NOT +1999 +2000 ***************************** START ESCAPE SEQUENCE +2001 +2002 SETESC STAA ESCFLG ELSE START CURSORING +2003 RTS AND RETURN +2004 +2005 CLRESC CLR ESCFLG NO OTHERS SUPPORTED +2006 RETESC RTS SO RETURN +2007 +2008 ********************************* SET SCREEN CURSOR +2009 +2010 ESCCUR TST NEWROW ROW SET? +2011 BNE ESCCU1 BRANCH IF SO +2012 STAA NEWROW ELSE SET NEW ROW +2013 RTS AND RETURN +2014 +2015 ESCCU1 CLR ESCFLG +2016 SUBA #$20 ADJUST COLUMN ADDRESS +2017 CMPA #LINLEN-1 CHECK FOR ACCEPTABLE COLUM +2018 BHI RETESC NOT OK, DO NOTHING +2019 +2020 ESCCU2 LDAB NEWROW +2021 CLR NEWROW +2022 SUBB #$20 ADJUST TO ROW ADDRESS +2023 CMPB #NUMLIN-1 CHECK FOR ACCEPTABLE ROW +2024 BHI RETESC ELSE RETURN DOING NOTHING +2025 BRA NEWCUR GO SET NEW CURSOR IF SO +2026 * +2027 *************************** DELETE LINE FROM SCREEN +2028 +2029 ESCDLL BSR CRETN GO COL. ZERO +2030 LDB ROWADX +2031 CMPB #NUMLIN-1 +2032 BEQ SCROL3 +2033 BRA SCROL1 AND DELETE THIS LINE +2034 +2035 *************************** INSERT LINE INTO SCREEN +2036 +2037 ESCINL BSR CRETN GO TO COL. ZERO +2038 LDAB ROWADX +2039 CMPB #NUMLIN-1 +2040 BEQ ESCCLL +2041 * +2042 ** SCROLL SCREEN DOWN FROM CURSOR +2043 * +2044 LDX #SCREEN+SCNLEN-LINLEN +2045 ESCIN0 LDAA 0,-X +2046 STAA LINLEN,X +2047 LDA SCNLEN,X +2048 STA SCNLEN+LINLEN,X +2049 CPX CURSOR +2050 BNE ESCIN0 +2051 +2052 ****************** CLEAR FROM CURSOR TO END OF LINE +2053 +2054 ESCCLL LDA COLADX GET CURRENT COLUMN +2055 LDX CURSOR GET CURSOR +2056 LDB #$20 AND CLEAR CHAR +2057 ESCLL1 STB SCNLEN,X CLEAR ATTRIBUTE +2058 STB ,X+ CLEAR TEXT +2059 INCA +2060 CMPA #LINLEN UNTIL END OF LINE +2061 BNE ESCLL1 +2062 CLR ESCFLG +2063 RTS +2064 +2065 *********************************** CARRIAGE RETURN +2066 +2067 CRETN CLRA SET COLUMN ZERO +2068 POSCOL LDB ROWADX GET CURRENT ROW +2069 +2070 *********** GENERATE NEW CURSOR POSITION AND RETURN +2071 +2072 NEWCUR STD COLADX SAVE NEW ROW AND COLUMN +2073 LDA #LINLEN ELSE ADD A LINE +2074 MUL LINLEN * ROWADX +2075 ADDB COLADX +2076 ADCA #0 +2077 ADDD #SCREEN ADD SCREEN BASE. +2078 STD CURSOR SAVE NEW CURSOR +2079 TFR D,X GET CURSOR IN X +2080 RTS AND RETURN +2081 +2082 ********************* UPDATE CURRENT COLUMN AND ROW +2083 +2084 NEWCOL LDD COLADX GET ROW AND COLUMN +2085 INCA BUMP COLUMN +2086 CMPA #LINLEN ROLL? +2087 BNE NEWCUR BRANCH IF NOT +2088 CLRA ELSE RESET TO ZERO +2089 INCB AND BUMP ROW +2090 CMPB #NUMLIN +2091 BNE NEWCUR +2092 DECB BOTTOM ROW +2093 BSR NEWCUR +2094 +2095 ********************************* SCROLL THE SCREEN +2096 +2097 SCROLL LDX #SCREEN POINT TO SCREEN +2098 SCROL1 LDA SCNLEN+LINLEN,X +2099 STA SCNLEN,X +2100 LDAA LINLEN,X MOVE TWO BYTES +2101 STAA 0,X+ UP ONE LINE +2102 CMPX #SCREEN+SCNLEN-LINLEN +2103 BNE SCROL1 LOOP UNTIL DONE +2104 BRA SCROL3 +2105 +2106 **************** CLEAR FROM CURSOR TO END OF SCREEN +2107 +2108 ESCCLS LDX CURSOR GET CURSOR +2109 SCROL3 LDAA #$20 GET A SPACE +2110 SCROL2 STA SCNLEN,X CLEAR ATTRIBUTES +2111 STA ,X+ AND TEXT +2112 CMPX #SCREEN+SCNLEN +2113 BNE SCROL2 UNTIL DONE +2114 CLR ESCFLG +2115 RTS +2116 ENDIF DG640OPT +2116 ENDIF DG640OPT +2117 * +2118 IFD PRTOPT +2119 ************************************* +2120 * +2121 ** PRINTER DRIVER ROUTINES +2122 * +2123 ************************************* +2124 * +2125 ** PINIZ - INITIATE PRINTER PORT +2126 * +2127 PINIZ PSHS B +2128 LDD #DIRMSK*256+$04 ACCA=DIRMSK ACCB=$04 +2129 STD PADATA SET DDR AND SELECT DATA +2130 * +2131 ** RESET PRINTER +2132 LDB #PRESET +2133 STAB PADATA +2134 RESTLP INCB DELAY FOR RESET +2135 BNE RESTLP +2136 STAA PADATA ACCA=DIRMSK +2137 * +2138 ** INITALIZE PORT B (DATA PORT) +2139 LDAA #$2A +2140 STAA PBCTRL +2141 LDD #$FF2E ACCA=$FF ACCB =%00101110 +2142 STD PBDATA PBDREG PBCTRL +2143 * +2144 ** SELECT 66 LINES/PAGE +2145 LDAA #$1B +2146 BSR POUTCH +2147 LDAA #'C +2148 BSR POUTCH +2149 LDAA #66 +2150 PULS B +2151 ************************************* +2152 * +2153 ** OUTPUT A CHARACTER TO THE PRINTER +2154 * +2155 ************************************* +2156 POUTCH PSHS B +2157 LDAB PBDATA CLEAR INTERRUPT BIT +2158 * +2159 ** WAIT TILL NOT BUSY +2160 BUSYLP LDAB PADATA +2161 BITB #PERROR +2162 BEQ PEXIT +2163 TSTB +2164 BMI BUSYLP +2165 * +2166 ** NOW OUTPUT CHARACTER +2167 STAA PBDATA +2168 PEXIT PULS B,PC +2169 ************************************* +2170 * +2171 ** PCHK TEST IFD PRINTER READY +2172 * +2173 ************************************* +2174 PCHK TST PBCTRL TEST STATE OF CRB7 +2175 RTS SET ON ACKNOWLEDGE +2176 ENDIF PRTOPT +2176 ENDIF PRTOPT +2177 ************************************* +2178 * +2179 * MONITOR KEYBOARD COMMAND JUMP TABLE +2180 * +2181 ************************************* +2182 * +2183 FE3B JMPTAB EQU * +2184 FE3B 01 FCB 1 " ^A " +2185 FE3C FB 74 FDB ALTRA +2186 FE3E 02 FCB 2 " ^B " +2187 FE3F FB 69 FDB ALTRB +2188 FE41 03 FCB 3 " ^C " +2189 FE42 FB 7F FDB ALTRCC +2190 FE44 04 FCB 4 " ^D " +2191 FE45 FB 5E FDB ALTRDP +2192 FE47 10 FCB $10 " ^P " +2193 FE48 FB 31 FDB ALTRPC +2194 FE4A 15 FCB $15 " ^U " +2195 FE4B FB 3D FDB ALTRU +2196 FE4D 18 FCB $18 " ^X " +2197 FE4E FB 53 FDB ALTRX +2198 FE50 19 FCB $19 " ^Y " +2199 FE51 FB 48 FDB ALTRY +2200 * +2201 FE53 42 FCC 'B' +2202 FE54 F9 5C FDB BRKPNT +2203 FE56 45 FCC 'E' +2204 FE57 F8 FD FDB MEMDUMP +2205 FE59 47 FCC 'G' +2206 FE5A F8 A5 FDB GO +2207 FE5C 4C FCC 'L' +2208 FE5D FA 5E FDB LOAD +2209 FE5F 50 FCC 'P' +2210 FE60 FA BC FDB PUNCH +2211 FE62 4D FCC 'M' +2212 FE63 F8 A8 FDB MEMCHG +2213 FE65 52 FCC 'R' +2214 FE66 FB ED FDB REGSTR +2215 FE68 53 FCC 'S' +2216 FE69 F8 F1 FDB DISSTK +2217 FE6B 58 FCC 'X' +2218 FE6C F9 88 FDB XBKPNT +2219 IFD MFDCOPT +2220 FCC 'D' *** SWTPC USES 'U' FOR MINIBOOT +2221 FDB MINBOOT +2222 ENDIF MFDCOPT +2222 ENDIF MFDCOPT +2223 IFD CFOPT +2224 FE6E 44 FCC 'D' *** FPGA USES 'D' FOR CFBOOT +2225 FE6F F9 D5 FDB CFBOOT +2226 ENDIF CFOPT +2227 IFD DMAFOPT +2228 FCC 'U' *** SWTPC USES 'D' FOR DMAF2 BOOT +2229 FDB DBOOT +2230 ELSE +2231 FE71 55 FCC 'U' *** IF NOT DMAF2, 'U' IS FOR USER +2232 FE72 FC 92 FDB EXTEND +2233 ENDIF DMAFOPT +2234 IFD RTCOPT +2235 FCC 'T' +2236 FDB TIMSET +2237 ENDIF RTCOPT +2237 ENDIF RTCOPT +2238 IFD TRAOPT +2239 FCC "T" +2240 FDB TRACE +2241 ENDIF TRAOPT +2241 ENDIF TRAOPT +2242 * +2243 FE74 TABEND EQU * +2244 * +2245 * ** 6809 VECTOR ADDRESSES ** +2246 * +2247 * FOLLOWING ARE THE ADDRESSES OF THE VECTOR ROUTINES +2248 * FOR THE 6809 PROCESSOR. DURING INITIALIZATION THEY +2249 * ARE RELOCATED TO RAM FROM $DFC0 TO $DFCF. THEY ARE +2250 * RELOCATED TO RAM SO THAT THE USER MAY REVECTOR TO +2251 * HIS OWN ROUTINES IF HE SO DESIRES. +2252 * +2253 * +2254 FE74 F9 94 RAMVEC FDB SWIE USER-V +2255 FE76 F8 A7 FDB RTI SWI3-V +2256 FE78 F8 A7 FDB RTI SWI2-V +2257 FE7A F8 A7 FDB RTI FIRQ-V +2258 FE7C F8 A7 FDB RTI IRQ-V +2259 FE7E F9 94 FDB SWIE SWI-V +2260 FE80 FF FF FDB $FFFF SVC-VO +2261 FE82 FF FF FDB $FFFF SVC-VL +2262 * +2263 * PRINTABLE MESSAGE STRINGS +2264 * +2265 FE84 0D 0A 00 00 00 MSG1 FCB $D,$A,$0,$0,$0 * 0, CR/LF, 0 +2266 FE89 53 59 53 30 39 42 FCC 'SYS09BUG 1.3 FOR ' + 55 47 20 31 2E 33 20 46 4F 52 20 -2084 IFD FPGAOPT` -2085 FE9A 46 50 47 41 20 FCC 'FPGA ' -2086 ENDIF FPGAOPT -2087 IFD ADSOPT -2088 FCC 'ADS6809 ' -2089 ENDIF ADSOPT -2089 ENDIF ADSOPT -2090 IFD SWTPOPT` -2091 FCC 'SWTPC ' -2092 ENDIF SWTPOPT -2092 ENDIF SWTPOPT -2093 FE9F 20 2D 20 FCC ' - ' -2094 FEA2 04 FCB 4 -2095 FEA3 4B 0D 0A 00 00 00 MSG2 FCB 'K,$D,$A,$00,$00,$00,$04 K, * CR/LF + 3 NULS +2267 IFD S3EOPT +2268 FCC 'S3E ' +2269 ENDIF S3EOPT +2269 ENDIF S3EOPT +2270 IFD FPGAOPT +2271 FE9A 46 50 47 41 20 FCC 'FPGA ' +2272 ENDIF FPGAOPT +2273 IFD ADSOPT +2274 FCC 'ADS6809 ' +2275 ENDIF ADSOPT +2275 ENDIF ADSOPT +2276 IFD SWTPOPT` +2277 FCC 'SWTPC ' +2278 ENDIF SWTPOPT +2278 ENDIF SWTPOPT +2279 FE9F 20 2D 20 FCC ' - ' +2280 FEA2 04 FCB 4 +2281 FEA3 4B 0D 0A 00 00 00 MSG2 FCB 'K,$D,$A,$00,$00,$00,$04 K, * CR/LF + 3 NULS 04 -2096 FEAA 3E MSG3 FCC '>' -2097 FEAB 04 FCB 4 -2098 FEAC 57 48 41 54 3F MSG4 FCC 'WHAT?' -2099 FEB1 04 FCB 4 -2100 FEB2 20 2D 20 MSG5 FCC ' - ' -2101 FEB5 04 FCB 4' -2102 FEB6 20 20 53 50 3D MSG10 FCC ' SP=' -2103 FEBB 04 FCB 4 -2104 FEBC 20 20 50 43 3D MSG11 FCC ' PC=' -2105 FEC1 04 FCB 4 -2106 FEC2 20 20 55 53 3D MSG12 FCC ' US=' -2107 FEC7 04 FCB 4 -2108 FEC8 20 20 49 59 3D MSG13 FCC ' IY=' -2109 FECD 04 FCB 4 -2110 FECE 20 20 49 58 3D MSG14 FCC ' IX=' -2111 FED3 04 FCB 4 -2112 FED4 20 20 44 50 3D MSG15 FCC ' DP=' -2113 FED9 04 FCB 4 -2114 FEDA 20 20 41 3D MSG16 FCC ' A=' -2115 FEDE 04 FCB 4 -2116 FEDF 20 20 42 3D MSG17 FCC ' B=' -2117 FEE3 04 FCB 4 -2118 FEE4 20 20 43 43 3A 20 MSG18 FCC ' CC: ' -2119 FEEA 04 FCB 4 -2120 FEEB 45 46 48 49 4E 5A MSG19 FCC 'EFHINZVC' +2282 FEAA 3E MSG3 FCC '>' +2283 FEAB 04 FCB 4 +2284 FEAC 57 48 41 54 3F MSG4 FCC 'WHAT?' +2285 FEB1 04 FCB 4 +2286 FEB2 20 2D 20 MSG5 FCC ' - ' +2287 FEB5 04 FCB 4' +2288 FEB6 20 20 53 50 3D MSG10 FCC ' SP=' +2289 FEBB 04 FCB 4 +2290 FEBC 20 20 50 43 3D MSG11 FCC ' PC=' +2291 FEC1 04 FCB 4 +2292 FEC2 20 20 55 53 3D MSG12 FCC ' US=' +2293 FEC7 04 FCB 4 +2294 FEC8 20 20 49 59 3D MSG13 FCC ' IY=' +2295 FECD 04 FCB 4 +2296 FECE 20 20 49 58 3D MSG14 FCC ' IX=' +2297 FED3 04 FCB 4 +2298 FED4 20 20 44 50 3D MSG15 FCC ' DP=' +2299 FED9 04 FCB 4 +2300 FEDA 20 20 41 3D MSG16 FCC ' A=' +2301 FEDE 04 FCB 4 +2302 FEDF 20 20 42 3D MSG17 FCC ' B=' +2303 FEE3 04 FCB 4 +2304 FEE4 20 20 43 43 3A 20 MSG18 FCC ' CC: ' +2305 FEEA 04 FCB 4 +2306 FEEB 45 46 48 49 4E 5A MSG19 FCC 'EFHINZVC' 56 43 -2121 FEF3 53 31 MSG20 FCC 'S1' -2122 FEF5 04 FCB 4 -2123 IFD DATOPT -2124 * -2125 * POWER UP/ RESET/ NMI ENTRY POINT -2126 * -2127 FF00 ORG $FF00 -2128 * -2129 * -2130 FF00 8E FF F0 START LDX #IC11 POINT TO DAT RAM IC11 -2131 FF03 86 0F LDA #$F GET COMPLIMENT OF ZERO -2132 * -2133 * -2134 * INITIALIZE DAT RAM --- LOADS $F-$0 IN LOCATIONS $0-$F -2135 * OF DAT RAM, THUS STORING COMPLEMENT OF MSB OF ADDRESS -2136 * IN THE DAT RAM. THE COMPLEMENT IS REQUIRED BECAUSE THE -2137 * OUTPUT OF IC11, A 74S189, IS THE INVERSE OF THE DATA -2138 * STORED IN IT. -2139 * -2140 * -2141 FF05 A7 80 DATLP STA ,X+ STORE & POINT TO NEXT RAM LOCATION -2142 FF07 4A DECA GET COMP. VALUE FOR NEXT LOCATION -2143 FF08 26 FB BNE DATLP ALL 16 LOCATIONS INITIALIZED ? -2144 * -2145 * NOTE: IX NOW CONTAINS $0000, DAT RAM IS NO LONGER -2146 * ADDRESSED, AND LOGICAL ADDRESSES NOW EQUAL -2147 * PHYSICAL ADDRESSES. -2148 * -2149 FF0A 86 F0 LDA #$F0 -2150 FF0C A7 84 STA ,X STORE $F0 AT $FFFF -2151 FF0E 8E D0 A0 LDX #$D0A0 ASSUME RAM TO BE AT $D000-$DFFF -2152 FF11 10 8E 55 AA LDY #TSTPAT LOAD TEST DATA PATTERN INTO "Y" -2153 FF15 EE 84 TSTRAM LDU ,X SAVE DATA FROM TEST LOCATION -2154 FF17 10 AF 84 STY ,X STORE TEST PATTERN AT $D0A0 -2155 FF1A 10 AC 84 CMPY ,X IS THERE RAM AT THIS LOCATION ? -2156 FF1D 27 0B BEQ CNVADR IF MATCH THERE'S RAM, SO SKIP -2157 FF1F 30 89 F0 00 LEAX -$1000,X ELSE POINT 4K LOWER -2158 FF23 8C F0 A0 CMPX #$F0A0 DECREMENTED PAST ZER0 YET ? -2159 FF26 26 ED BNE TSTRAM IF NOT CONTINUE TESTING FOR RAM -2160 FF28 20 D6 BRA START ELSE START ALL OVER AGAIN -2161 * -2162 * -2163 * THE FOLLOWING CODE STORES THE COMPLEMENT OF -2164 * THE MS CHARACTER OF THE FOUR CHARACTER HEX -2165 * ADDRESS OF THE FIRST 4K BLOCK OF RAM LOCATED -2166 * BY THE ROUTINE "TSTRAM" INTO THE DAT RAM. IT -2167 * IS STORED IN RAM IN THE LOCATION THAT IS -2168 * ADDRESSED WHEN THE PROCESSOR ADDRESS IS $D---, -2169 * THUS IF THE FIRST 4K BLOCK OF RAM IS FOUND -2170 * WHEN TESTING LOCATION $70A0, MEANING THERE -2171 * IS NO RAM PHYSICALLY ADDRESSED IN THE RANGE -2172 * $8000-$DFFF, THEN THE COMPLEMENT OF THE -2173 * "7" IN THE $70A0 WILL BE STORED IN -2174 * THE DAT RAM. THUS WHEN THE PROCESSOR OUTPUTS -2175 * AN ADDRESS OF $D---, THE DAT RAM WILL RESPOND -2176 * BY RECOMPLEMENTING THE "7" AND OUTPUTTING THE -2177 * 7 ONTO THE A12-A15 ADDRESS LINES. THUS THE -2178 * RAM THAT IS PHYSICALLY ADDRESSED AT $7--- -2179 * WILL RESPOND AND APPEAR TO THE 6809 THAT IT -2180 * IS AT $D--- SINCE THAT IS THE ADDRESS THE -2181 * 6809 WILL BE OUTPUTING WHEN THAT 4K BLOCK -2182 * OF RAM RESPONDS. -2183 * -2184 * -2185 FF2A EF 84 CNVADR STU ,X RESTORE DATA AT TEST LOCATION -2186 FF2C 1F 10 TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D -2187 FF2E 43 COMA COMPLEMENT MSB OF THAT ADDRESS -2188 FF2F 44 LSRA PUT MS 4 BITS OF ADDRESS IN -2189 FF30 44 LSRA LOCATION D0-D3 TO ALLOW STORING -2190 FF31 44 LSRA IT IN THE DYNAMIC ADDRESS -2191 FF32 44 LSRA TRANSLATION RAM. -2192 FF33 B7 FF FD STA $FFFD STORE XLATION FACTOR IN DAT "D" -2193 * -2194 FF36 10 CE DF C0 LDS #STACK INITIALIZE STACK POINTER -2195 * -2196 * -2197 * THE FOLLOWING CHECKS TO FIND THE REAL PHYSICAL ADDRESSES -2198 * OF ALL 4K BLKS OF RAM IN THE SYSTEM. WHEN EACH 4K BLK -2199 * OF RAM IS LOCATED, THE COMPLEMENT OF IT'S REAL ADDRESS -2200 * IS THEN STORED IN A "LOGICAL" TO "REAL" ADDRESS XLATION -2201 * TABLE THAT IS BUILT FROM $DFD0 TO $DFDF. FOR EXAMPLE IF -2202 * THE SYSTEM HAS RAM THAT IS PHYSICALLY LOCATED (WIRED TO -2203 * RESPOND) AT THE HEX LOCATIONS $0--- THRU $F---.... -2204 * -2205 * 0 1 2 3 4 5 6 7 8 9 A B C D E F -2206 * 4K 4K 4K 4K 4K 4K 4K 4K -- 4K 4K 4K 4K -- -- -- -2207 * -2208 * ....FOR A TOTAL OF 48K OF RAM, THEN THE TRANSLATION TABLE -2209 * CREATED FROM $DFD0 TO $DFDF WILL CONSIST OF THE FOLLOWING.... -2210 * -2211 * 0 1 2 3 4 5 6 7 8 9 A B C D E F -2212 * 0F 0E 0D 0C 0B 0A 09 08 06 05 00 00 04 03 F1 F0 -2213 * -2214 * -2215 * HERE WE SEE THE LOGICAL ADDRESSES OF MEMORY FROM $0000-$7FFF -2216 * HAVE NOT BEEN SELECTED FOR RELOCATION SO THAT THEIR PHYSICAL -2217 * ADDRESS WILL = THEIR LOGICAL ADDRESS; HOWEVER, THE 4K BLOCK -2218 * PHYSICALLY AT $9000 WILL HAVE ITS ADDRESS TRANSLATED SO THAT -2219 * IT WILL LOGICALLY RESPOND AT $8000. LIKEWISE $A,$B, AND $C000 -2220 * WILL BE TRANSLATED TO RESPOND TO $9000,$C000, AND $D000 -2221 * RESPECTIVELY. THE USER SYSTEM WILL LOGICALLY APPEAR TO HAVE -2222 * MEMORY ADDRESSED AS FOLLOWS.... -2223 * -2224 * 0 1 2 3 4 5 6 7 8 9 A B C D E F -2225 * 4K 4K 4K 4K 4K 4K 4K 4K 4K 4K -- -- 4K 4K -- -- -2226 * -2227 * -2228 FF3A 10 8E DF D0 LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE -2229 FF3E A7 2D STA 13,Y STORE $D--- XLATION FACTOR AT $DFDD -2230 FF40 6F 2E CLR 14,Y CLEAR $DFDE -2231 FF42 86 F0 LDA #$F0 DESTINED FOR IC8 AN MEM EXPANSION ? -2232 FF44 A7 2F STA 15,Y STORE AT $DFDF -2233 FF46 86 0C LDA #$0C PRESET NUMBER OF BYTES TO CLEAR -2234 FF48 6F A6 CLRLRT CLR A,Y CLEAR $DFDC THRU $DFD0 -2235 FF4A 4A DECA SUB. 1 FROM BYTES LEFT TO CLEAR -2236 FF4B 2A FB BPL CLRLRT CONTINUE IF NOT DONE CLEARING -2237 FF4D 30 89 F0 00 FNDRAM LEAX -$1000,X POINT TO NEXT LOWER 4K OF RAM -2238 FF51 8C F0 A0 CMPX #$F0A0 TEST FOR DECREMENT PAST ZERO -2239 FF54 27 22 BEQ FINTAB SKIP IF FINISHED -2240 FF56 EE 84 LDU ,X SAVE DATA AT CURRENT TEST LOCATION -2241 FF58 10 8E 55 AA LDY #TSTPAT LOAD TEST DATA PATTERN INTO Y REG. -2242 FF5C 10 AF 84 STY ,X STORE TEST PATT. INTO RAM TEST LOC. -2243 FF5F 10 AC 84 CMPY ,X VERIFY RAM AT TEST LOCATION -2244 FF62 26 E9 BNE FNDRAM IF NO RAM GO LOOK 4K LOWER -2245 FF64 EF 84 STU ,X ELSE RESTORE DATA TO TEST LOCATION -2246 FF66 10 8E DF D0 LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE -2247 FF6A 1F 10 TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D -2248 FF6C 44 LSRA PUT MS 4 BITS OF ADDR. IN LOC. D0-D3 -2249 FF6D 44 LSRA TO ALLOW STORING IT IN THE DAT RAM. -2250 FF6E 44 LSRA -2251 FF6F 44 LSRA -2252 FF70 1F 89 TFR A,B SAVE OFFSET INTO LRARAM TABLE -2253 FF72 88 0F EORA #$0F INVERT MSB OF ADDR. OF CURRENT 4K BLK -2254 FF74 A7 A5 STA B,Y SAVE TRANSLATION FACTOR IN LRARAM TABLE -2255 FF76 20 D5 BRA FNDRAM GO TRANSLATE ADDR. OF NEXT 4K BLK -2256 FF78 86 F1 FINTAB LDA #$F1 DESTINED FOR IC8 AND MEM EXPANSION ? -2257 FF7A 10 8E DF D0 LDY #LRARAM POINT TO LRARAM TABLE -2258 FF7E A7 2E STA 14,Y STORE $F1 AT $DFCE -2259 * -2260 * THE FOLLOWING CHECKS TO SEE IF THERE IS A 4K BLK OF -2261 * RAM LOCATED AT $C000-$CFFF. IF NONE THERE IT LOCATES -2262 * THE NEXT LOWER 4K BLK AN XLATES ITS ADDR SO IT -2263 * LOGICALLY RESPONDS TO THE ADDRESS $C---. -2264 * -2265 * -2266 FF80 86 0C LDA #$0C PRESET NUMBER HEX "C" -2267 FF82 E6 A6 FINDC LDB A,Y GET ENTRY FROM LRARAM TABLE -2268 FF84 26 05 BNE FOUNDC BRANCH IF RAM THIS PHYSICAL ADDR. -2269 FF86 4A DECA ELSE POINT 4K LOWER -2270 FF87 2A F9 BPL FINDC GO TRY AGAIN -2271 FF89 20 14 BRA XFERTF -2272 FF8B 6F A6 FOUNDC CLR A,Y CLR XLATION FACTOR OF 4K BLOCK FOUND -2273 FF8D E7 2C STB $C,Y GIVE IT XLATION FACTOR MOVING IT TO $C--- -2274 * -2275 * THE FOLLOWING CODE ADJUSTS THE TRANSLATION -2276 * FACTORS SUCH THAT ALL REMAINING RAM WILL -2277 * RESPOND TO A CONTIGUOUS BLOCK OF LOGICAL -2278 * ADDRESSES FROM $0000 AND UP.... -2279 * -2280 FF8F 4F CLRA START AT ZERO -2281 FF90 1F 21 TFR Y,X START POINTER "X" START OF "LRARAM" TABLE. -2282 FF92 E6 A6 COMPRS LDB A,Y GET ENTRY FROM "LRARAM" TABLE -2283 FF94 27 04 BEQ PNTNXT IF IT'S ZER0 SKIP -2284 FF96 6F A6 CLR A,Y ELSE ERASE FROM TABLE -2285 FF98 E7 80 STB ,X+ AND ENTER ABOVE LAST ENTRY- BUMP -2286 FF9A 4C PNTNXT INCA GET OFFSET TO NEXT ENTRY -2287 FF9B 81 0C CMPA #$0C LAST ENTRY YET ? -2288 FF9D 2D F3 BLT COMPRS -2289 * -2290 * THE FOLLOWING CODE TRANSFER THE TRANSLATION -2291 * FACTORS FROM THE LRARAM TABLE TO IC11 ON -2292 * THE MP-09 CPU CARD. -2293 * -2294 FF9F 8E FF F0 XFERTF LDX #IC11 POINT TO DAT RAM IC11 -2295 FFA2 C6 10 LDB #$10 GET NO. OF BYTES TO MOVE -2296 FFA4 A6 A0 FETCH LDA ,Y+ GET BYTE AND POINT TO NEXT -2297 FFA6 A7 80 STA ,X+ POKE XLATION FACTOR IN IC11 -2298 FFA8 5A DECB SUB 1 FROM BYTES TO MOVE -2299 FFA9 26 F9 BNE FETCH CONTINUE UNTIL 16 MOVED -2300 * -2301 ELSE -2302 LRA RTS -2303 START LDS #STACK INITIALIZE STACK POINTER -2304 CLRB -2305 ENDIF DATOPT -2305 ENDIF DATOPT -2306 * -2307 FFAB 53 COMB SET "B" NON-ZERO -2308 FFAC F7 DF E2 STB ECHO TURN ON ECHO FLAG -2309 FFAF 16 F8 62 LBRA MONITOR INITIALIZATION IS COMPLETE +2307 FEF3 53 31 MSG20 FCC 'S1' +2308 FEF5 04 FCB 4 +2309 IFD DATOPT 2310 * -2311 ** INTERRUPT JUMP VECTORS -2312 * -2313 FFB2 6E 9F DF C0 V1 JMP [STACK] -2314 FFB6 6E 9F DF C4 V2 JMP [SWI2] -2315 FFBA 6E 9F DF C6 V3 JMP [FIRQ] -2316 FFBE 6E 9F DF C8 V4 JMP [IRQ] -2317 FFC2 6E 9F DF CA V5 JMP [SWI] +2311 * POWER UP/ RESET/ NMI ENTRY POINT +2312 * +2313 FF00 ORG $FF00 +2314 * +2315 * +2316 FF00 8E FF F0 START LDX #IC11 POINT TO DAT RAM IC11 +2317 FF03 86 0F LDA #$F GET COMPLIMENT OF ZERO 2318 * -2319 * SWI3 ENTRY POINT -2320 * -2321 FFC6 1F 43 SWI3E TFR S,U -2322 FFC8 AE 4A LDX 10,U *$FFC8 -2323 FFCA E6 80 LDB ,X+ -2324 FFCC AF 4A STX 10,U -2325 FFCE 4F CLRA -2326 FFCF 58 ASLB -2327 FFD0 49 ROLA -2328 FFD1 BE DF CC LDX SVCVO -2329 FFD4 8C FF FF CMPX #$FFFF -2330 FFD7 27 0F BEQ SWI3Z -2331 FFD9 30 8B LEAX D,X -2332 FFDB BC DF CE CMPX SVCVL -2333 FFDE 22 08 BHI SWI3Z -2334 FFE0 34 10 PSHS X -2335 FFE2 EC C4 LDD ,U -2336 FFE4 AE 44 LDX 4,U -2337 FFE6 6E F1 JMP [,S++] -2338 FFE8 37 1F SWI3Z PULU A,B,X,CC,DP -2339 FFEA EE 42 LDU 2,U -2340 FFEC 6E 9F DF C2 JMP [SWI3] -2341 * -2342 * 6809 VECTORS -2343 * -2344 FFF0 ORG $FFF0 -2345 FFF0 FF B2 FDB V1 USER-V -2346 FFF2 FF C6 FDB SWI3E SWI3-V -2347 FFF4 FF B6 FDB V2 SWI2-V -2348 FFF6 FF BA FDB V3 FIRQ-V -2349 FFF8 FF BE FDB V4 IRQ-V -2350 FFFA FF C2 FDB V5 SWI-V -2351 FFFC FF B2 FDB V1 NMI-V -2352 FFFE FF 00 FDB START RESTART-V -2353 END START +2319 * +2320 * INITIALIZE DAT RAM --- LOADS $F-$0 IN LOCATIONS $0-$F +2321 * OF DAT RAM, THUS STORING COMPLEMENT OF MSB OF ADDRESS +2322 * IN THE DAT RAM. THE COMPLEMENT IS REQUIRED BECAUSE THE +2323 * OUTPUT OF IC11, A 74S189, IS THE INVERSE OF THE DATA +2324 * STORED IN IT. +2325 * +2326 * +2327 FF05 A7 80 DATLP STA ,X+ STORE & POINT TO NEXT RAM LOCATION +2328 FF07 4A DECA GET COMP. VALUE FOR NEXT LOCATION +2329 FF08 26 FB BNE DATLP ALL 16 LOCATIONS INITIALIZED ? +2330 * +2331 * NOTE: IX NOW CONTAINS $0000, DAT RAM IS NO LONGER +2332 * ADDRESSED, AND LOGICAL ADDRESSES NOW EQUAL +2333 * PHYSICAL ADDRESSES. +2334 * +2335 FF0A 86 F0 LDA #$F0 +2336 FF0C A7 84 STA ,X STORE $F0 AT $FFFF +2337 FF0E 8E D0 A0 LDX #$D0A0 ASSUME RAM TO BE AT $D000-$DFFF +2338 FF11 10 8E 55 AA LDY #TSTPAT LOAD TEST DATA PATTERN INTO "Y" +2339 FF15 EE 84 TSTRAM LDU ,X SAVE DATA FROM TEST LOCATION +2340 FF17 10 AF 84 STY ,X STORE TEST PATTERN AT $D0A0 +2341 FF1A 10 AC 84 CMPY ,X IS THERE RAM AT THIS LOCATION ? +2342 FF1D 27 0B BEQ CNVADR IF MATCH THERE'S RAM, SO SKIP +2343 FF1F 30 89 F0 00 LEAX -$1000,X ELSE POINT 4K LOWER +2344 FF23 8C F0 A0 CMPX #$F0A0 DECREMENTED PAST ZER0 YET ? +2345 FF26 26 ED BNE TSTRAM IF NOT CONTINUE TESTING FOR RAM +2346 FF28 20 D6 BRA START ELSE START ALL OVER AGAIN +2347 * +2348 * +2349 * THE FOLLOWING CODE STORES THE COMPLEMENT OF +2350 * THE MS CHARACTER OF THE FOUR CHARACTER HEX +2351 * ADDRESS OF THE FIRST 4K BLOCK OF RAM LOCATED +2352 * BY THE ROUTINE "TSTRAM" INTO THE DAT RAM. IT +2353 * IS STORED IN RAM IN THE LOCATION THAT IS +2354 * ADDRESSED WHEN THE PROCESSOR ADDRESS IS $D---, +2355 * THUS IF THE FIRST 4K BLOCK OF RAM IS FOUND +2356 * WHEN TESTING LOCATION $70A0, MEANING THERE +2357 * IS NO RAM PHYSICALLY ADDRESSED IN THE RANGE +2358 * $8000-$DFFF, THEN THE COMPLEMENT OF THE +2359 * "7" IN THE $70A0 WILL BE STORED IN +2360 * THE DAT RAM. THUS WHEN THE PROCESSOR OUTPUTS +2361 * AN ADDRESS OF $D---, THE DAT RAM WILL RESPOND +2362 * BY RECOMPLEMENTING THE "7" AND OUTPUTTING THE +2363 * 7 ONTO THE A12-A15 ADDRESS LINES. THUS THE +2364 * RAM THAT IS PHYSICALLY ADDRESSED AT $7--- +2365 * WILL RESPOND AND APPEAR TO THE 6809 THAT IT +2366 * IS AT $D--- SINCE THAT IS THE ADDRESS THE +2367 * 6809 WILL BE OUTPUTING WHEN THAT 4K BLOCK +2368 * OF RAM RESPONDS. +2369 * +2370 * +2371 FF2A EF 84 CNVADR STU ,X RESTORE DATA AT TEST LOCATION +2372 FF2C 1F 10 TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D +2373 FF2E 43 COMA COMPLEMENT MSB OF THAT ADDRESS +2374 FF2F 44 LSRA PUT MS 4 BITS OF ADDRESS IN +2375 FF30 44 LSRA LOCATION D0-D3 TO ALLOW STORING +2376 FF31 44 LSRA IT IN THE DYNAMIC ADDRESS +2377 FF32 44 LSRA TRANSLATION RAM. +2378 FF33 B7 FF FD STA $FFFD STORE XLATION FACTOR IN DAT "D" +2379 * +2380 FF36 10 CE DF C0 LDS #STACK INITIALIZE STACK POINTER +2381 * +2382 * +2383 * THE FOLLOWING CHECKS TO FIND THE REAL PHYSICAL ADDRESSES +2384 * OF ALL 4K BLKS OF RAM IN THE SYSTEM. WHEN EACH 4K BLK +2385 * OF RAM IS LOCATED, THE COMPLEMENT OF IT'S REAL ADDRESS +2386 * IS THEN STORED IN A "LOGICAL" TO "REAL" ADDRESS XLATION +2387 * TABLE THAT IS BUILT FROM $DFD0 TO $DFDF. FOR EXAMPLE IF +2388 * THE SYSTEM HAS RAM THAT IS PHYSICALLY LOCATED (WIRED TO +2389 * RESPOND) AT THE HEX LOCATIONS $0--- THRU $F---.... +2390 * +2391 * 0 1 2 3 4 5 6 7 8 9 A B C D E F +2392 * 4K 4K 4K 4K 4K 4K 4K 4K -- 4K 4K 4K 4K -- -- -- +2393 * +2394 * ....FOR A TOTAL OF 48K OF RAM, THEN THE TRANSLATION TABLE +2395 * CREATED FROM $DFD0 TO $DFDF WILL CONSIST OF THE FOLLOWING.... +2396 * +2397 * 0 1 2 3 4 5 6 7 8 9 A B C D E F +2398 * 0F 0E 0D 0C 0B 0A 09 08 06 05 00 00 04 03 F1 F0 +2399 * +2400 * +2401 * HERE WE SEE THE LOGICAL ADDRESSES OF MEMORY FROM $0000-$7FFF +2402 * HAVE NOT BEEN SELECTED FOR RELOCATION SO THAT THEIR PHYSICAL +2403 * ADDRESS WILL = THEIR LOGICAL ADDRESS; HOWEVER, THE 4K BLOCK +2404 * PHYSICALLY AT $9000 WILL HAVE ITS ADDRESS TRANSLATED SO THAT +2405 * IT WILL LOGICALLY RESPOND AT $8000. LIKEWISE $A,$B, AND $C000 +2406 * WILL BE TRANSLATED TO RESPOND TO $9000,$C000, AND $D000 +2407 * RESPECTIVELY. THE USER SYSTEM WILL LOGICALLY APPEAR TO HAVE +2408 * MEMORY ADDRESSED AS FOLLOWS.... +2409 * +2410 * 0 1 2 3 4 5 6 7 8 9 A B C D E F +2411 * 4K 4K 4K 4K 4K 4K 4K 4K 4K 4K -- -- 4K 4K -- -- +2412 * +2413 * +2414 FF3A 10 8E DF D0 LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE +2415 FF3E A7 2D STA 13,Y STORE $D--- XLATION FACTOR AT $DFDD +2416 FF40 6F 2E CLR 14,Y CLEAR $DFDE +2417 FF42 86 F0 LDA #$F0 DESTINED FOR IC8 AN MEM EXPANSION ? +2418 FF44 A7 2F STA 15,Y STORE AT $DFDF +2419 FF46 86 0C LDA #$0C PRESET NUMBER OF BYTES TO CLEAR +2420 FF48 6F A6 CLRLRT CLR A,Y CLEAR $DFDC THRU $DFD0 +2421 FF4A 4A DECA SUB. 1 FROM BYTES LEFT TO CLEAR +2422 FF4B 2A FB BPL CLRLRT CONTINUE IF NOT DONE CLEARING +2423 FF4D 30 89 F0 00 FNDRAM LEAX -$1000,X POINT TO NEXT LOWER 4K OF RAM +2424 FF51 8C F0 A0 CMPX #$F0A0 TEST FOR DECREMENT PAST ZERO +2425 FF54 27 22 BEQ FINTAB SKIP IF FINISHED +2426 FF56 EE 84 LDU ,X SAVE DATA AT CURRENT TEST LOCATION +2427 FF58 10 8E 55 AA LDY #TSTPAT LOAD TEST DATA PATTERN INTO Y REG. +2428 FF5C 10 AF 84 STY ,X STORE TEST PATT. INTO RAM TEST LOC. +2429 FF5F 10 AC 84 CMPY ,X VERIFY RAM AT TEST LOCATION +2430 FF62 26 E9 BNE FNDRAM IF NO RAM GO LOOK 4K LOWER +2431 FF64 EF 84 STU ,X ELSE RESTORE DATA TO TEST LOCATION +2432 FF66 10 8E DF D0 LDY #LRARAM POINT TO LOGICAL/REAL ADDR. TABLE +2433 FF6A 1F 10 TFR X,D PUT ADDR. OF PRESENT 4K BLOCK IN D +2434 FF6C 44 LSRA PUT MS 4 BITS OF ADDR. IN LOC. D0-D3 +2435 FF6D 44 LSRA TO ALLOW STORING IT IN THE DAT RAM. +2436 FF6E 44 LSRA +2437 FF6F 44 LSRA +2438 FF70 1F 89 TFR A,B SAVE OFFSET INTO LRARAM TABLE +2439 FF72 88 0F EORA #$0F INVERT MSB OF ADDR. OF CURRENT 4K BLK +2440 FF74 A7 A5 STA B,Y SAVE TRANSLATION FACTOR IN LRARAM TABLE +2441 FF76 20 D5 BRA FNDRAM GO TRANSLATE ADDR. OF NEXT 4K BLK +2442 FF78 86 F1 FINTAB LDA #$F1 DESTINED FOR IC8 AND MEM EXPANSION ? +2443 FF7A 10 8E DF D0 LDY #LRARAM POINT TO LRARAM TABLE +2444 FF7E A7 2E STA 14,Y STORE $F1 AT $DFCE +2445 * +2446 * THE FOLLOWING CHECKS TO SEE IF THERE IS A 4K BLK OF +2447 * RAM LOCATED AT $C000-$CFFF. IF NONE THERE IT LOCATES +2448 * THE NEXT LOWER 4K BLK AN XLATES ITS ADDR SO IT +2449 * LOGICALLY RESPONDS TO THE ADDRESS $C---. +2450 * +2451 * +2452 FF80 86 0C LDA #$0C PRESET NUMBER HEX "C" +2453 FF82 E6 A6 FINDC LDB A,Y GET ENTRY FROM LRARAM TABLE +2454 FF84 26 05 BNE FOUNDC BRANCH IF RAM THIS PHYSICAL ADDR. +2455 FF86 4A DECA ELSE POINT 4K LOWER +2456 FF87 2A F9 BPL FINDC GO TRY AGAIN +2457 FF89 20 14 BRA XFERTF +2458 FF8B 6F A6 FOUNDC CLR A,Y CLR XLATION FACTOR OF 4K BLOCK FOUND +2459 FF8D E7 2C STB $C,Y GIVE IT XLATION FACTOR MOVING IT TO $C--- +2460 * +2461 * THE FOLLOWING CODE ADJUSTS THE TRANSLATION +2462 * FACTORS SUCH THAT ALL REMAINING RAM WILL +2463 * RESPOND TO A CONTIGUOUS BLOCK OF LOGICAL +2464 * ADDRESSES FROM $0000 AND UP.... +2465 * +2466 FF8F 4F CLRA START AT ZERO +2467 FF90 1F 21 TFR Y,X START POINTER "X" START OF "LRARAM" TABLE. +2468 FF92 E6 A6 COMPRS LDB A,Y GET ENTRY FROM "LRARAM" TABLE +2469 FF94 27 04 BEQ PNTNXT IF IT'S ZER0 SKIP +2470 FF96 6F A6 CLR A,Y ELSE ERASE FROM TABLE +2471 FF98 E7 80 STB ,X+ AND ENTER ABOVE LAST ENTRY- BUMP +2472 FF9A 4C PNTNXT INCA GET OFFSET TO NEXT ENTRY +2473 FF9B 81 0C CMPA #$0C LAST ENTRY YET ? +2474 FF9D 2D F3 BLT COMPRS +2475 * +2476 * THE FOLLOWING CODE TRANSFER THE TRANSLATION +2477 * FACTORS FROM THE LRARAM TABLE TO IC11 ON +2478 * THE MP-09 CPU CARD. +2479 * +2480 FF9F 8E FF F0 XFERTF LDX #IC11 POINT TO DAT RAM IC11 +2481 FFA2 C6 10 LDB #$10 GET NO. OF BYTES TO MOVE +2482 FFA4 A6 A0 FETCH LDA ,Y+ GET BYTE AND POINT TO NEXT +2483 FFA6 A7 80 STA ,X+ POKE XLATION FACTOR IN IC11 +2484 FFA8 5A DECB SUB 1 FROM BYTES TO MOVE +2485 FFA9 26 F9 BNE FETCH CONTINUE UNTIL 16 MOVED +2486 * +2487 ELSE +2488 LRA RTS +2489 START LDS #STACK INITIALIZE STACK POINTER +2490 CLRB +2491 ENDIF DATOPT +2491 ENDIF DATOPT +2492 * +2493 FFAB 53 COMB SET "B" NON-ZERO +2494 FFAC F7 DF E2 STB ECHO TURN ON ECHO FLAG +2495 FFAF 16 F8 62 LBRA MONITOR INITIALIZATION IS COMPLETE +2496 * +2497 ** INTERRUPT JUMP VECTORS +2498 * +2499 FFB2 6E 9F DF C0 V1 JMP [STACK] +2500 FFB6 6E 9F DF C4 V2 JMP [SWI2] +2501 FFBA 6E 9F DF C6 V3 JMP [FIRQ] +2502 FFBE 6E 9F DF C8 V4 JMP [IRQ] +2503 FFC2 6E 9F DF CA V5 JMP [SWI] +2504 * +2505 * SWI3 ENTRY POINT +2506 * +2507 FFC6 1F 43 SWI3E TFR S,U +2508 FFC8 AE 4A LDX 10,U *$FFC8 +2509 FFCA E6 80 LDB ,X+ +2510 FFCC AF 4A STX 10,U +2511 FFCE 4F CLRA +2512 FFCF 58 ASLB +2513 FFD0 49 ROLA +2514 FFD1 BE DF CC LDX SVCVO +2515 FFD4 8C FF FF CMPX #$FFFF +2516 FFD7 27 0F BEQ SWI3Z +2517 FFD9 30 8B LEAX D,X +2518 FFDB BC DF CE CMPX SVCVL +2519 FFDE 22 08 BHI SWI3Z +2520 FFE0 34 10 PSHS X +2521 FFE2 EC C4 LDD ,U +2522 FFE4 AE 44 LDX 4,U +2523 FFE6 6E F1 JMP [,S++] +2524 FFE8 37 1F SWI3Z PULU A,B,X,CC,DP +2525 FFEA EE 42 LDU 2,U +2526 FFEC 6E 9F DF C2 JMP [SWI3] +2527 * +2528 * 6809 VECTORS +2529 * +2530 FFF0 ORG $FFF0 +2531 FFF0 FF B2 FDB V1 USER-V +2532 FFF2 FF C6 FDB SWI3E SWI3-V +2533 FFF4 FF B6 FDB V2 SWI2-V +2534 FFF6 FF BA FDB V3 FIRQ-V +2535 FFF8 FF BE FDB V4 IRQ-V +2536 FFFA FF C2 FDB V5 SWI-V +2537 FFFC FF B2 FDB V1 NMI-V +2538 FFFE FF 00 FDB START RESTART-V +2539 END START Program + Init Data = 2038 bytes Error count = 0 Index: trunk/src/sys09bug/sys09bugvhd.aux =================================================================== --- trunk/src/sys09bug/sys09bugvhd.aux (revision 19) +++ trunk/src/sys09bug/sys09bugvhd.aux (revision 20) @@ -1,10 +1,10 @@ t m l sys09bug_fpga.s19 t h -s sys09bug_b16.vhd f800 ffff -s sys09bug_b4_0.vhd f800 f9ff -s sys09bug_b4_1.vhd fa00 fbff -s sys09bug_b4_2.vhd fc00 fdff -s sys09bug_b4_3.vhd fe00 ffff +s sys09bug_fpga_b16.vhd f800 ffff +s sys09bug_fpga_b4_0.vhd f800 f9ff +s sys09bug_fpga_b4_1.vhd fa00 fbff +s sys09bug_fpga_b4_2.vhd fc00 fdff +s sys09bug_fpga_b4_3.vhd fe00 ffff q

/trunk/src/sys09bug/sys09bug_s3e_b16.vhd

0,0 → 1,64