SET_VARS OFF
LABEL 0001 BIOS_BOOTVECT
LABEL 0003 CONSTAT
LABEL 0005 BDOS_VECTOR
LABEL 0100 START
COMMENT 0103 Auto-select H19 terminal emulation
COMMENT 0105 (via special Z80MU interface)
LABEL 010A MAIN_LOOP
LABEL 0113 KEYPRESS
COMMENT 0113 \n\nGet the next keypress, and handle\n{PgUp}, {PgDn}, and {End}\n
LABEL 0116 KEYPRESS_AGAIN
COMMENT 0116 Try to read a key
COMMENT 0119 No keypress - wait on it
COMMENT 011C Is this an Escape character?
COMMENT 011E No - not a function key!
COMMENT 0121 Yes - get 2nd half of sequence
COMMENT 0124 None? Not a function key!
COMMENT 0127 {End} key pressed?
COMMENT 0129 Yes, exit to CP/M
COMMENT 012C {PgUp} key pressed?
COMMENT 012E Yes, handle it
COMMENT 0131 {PgDn} pressed?
COMMENT 0133 Yes, handle it
COMMENT 0136 No - get next keypress
LABEL 0139 KEYPRESS_PGUP
COMMENT 0139 Get current page
COMMENT 013C On page zero?
COMMENT 013E Yes - can't back up!
COMMENT 0141 Back up to prior page number
LABEL 0148 KEYPRESS_PGDN
COMMENT 0148 Get current page
COMMENT 014B On last page?
COMMENT 014D Yes - can't advance!
COMMENT 0150 Bump page number
LABEL 0157 KEYPRESS_ERROR
COMMENT 0157 \n\nSome error occurred. Beep the speaker...\n
LABEL 0161 KEYPRESS_EXIT
LABEL 0165 READ_KEYBOARD
COMMENT 0165 \n\nRead key to A-reg\n\nOn exit: CARRY = no key present right now\n
COMMENT 0167 Get BIOS "Warm Boot" address
COMMENT 016A Add offset to Console Status
COMMENT 016E Patch ourselves with it
COMMENT 0171 Add offset to Read Console
COMMENT 0172 Patch us again
LABEL 0175 PATCHED_STATUS
COMMENT 0175 Key present to be read?
COMMENT 017B No, exit CARRY SET
LABEL 017E PATCHED_READ
COMMENT 017E Read keypress
COMMENT 0181 Clear CARRY flag
LABEL 0183 READ_KEYPOARD_EXIT
LABEL 0186 DISPLAY_FULL_PAGE
COMMENT 0186 \n\nDisplay currently-selected page of text\n
COMMENT 0189 Clear the screen
COMMENT 018F Get current page #
COMMENT 0192 (into DE)
COMMENT 0195 Add offset into table
COMMENT 0198 (twice for 2-byte entries)
COMMENT 019A Get address of page data
COMMENT 019D (Into HL)
LABEL 019E DISPLAY_FULL_PAGE_LOOP
COMMENT 019E Is this the end of page's data?
COMMENT 01A1 Yes, we're done
COMMENT 01A4 No - display this line
COMMENT 01A7 Go do next line
LABEL 01AA DISPLAY_FULL_PAGE_EXIT
COMMENT 01AA Display our prompt
COMMENT 01B0 Restore regs and exit
LABEL 01B4 DISPLAY_STRING
COMMENT 01B4 \n\nDisplay line at [HL], advancing HL to terminating NUL\n
COMMENT 01B5 Bump HL past this character
COMMENT 01B6 Was this terminating NUL?
COMMENT 01B8 Yes, we're done
COMMENT 01B9 Save [HL] value
COMMENT 01BA Display char via BDOS
COMMENT 01C0 restore [HL] value
COMMENT 01C1 Keep going till done
FORMAT 01C4 ASCII
LABEL 01C4 PROMPT_STRING
COMMENT 01C4 \n\nThis is our bottom-of-screen prompt\n
FORMAT 01F3 ASCII
LABEL 01F3 CLEAR_SCREEN_CODE
COMMENT 01F3 \n\nThis sequence clears the screen\n
FORMAT 01F6 Table
LABEL 01F6 PAGE_POINTERS
COMMENT 01F6 \n\nTable pointing to the start of each page's data\n
LABEL 0200 PAGE_NUMBER
COMMENT 0200 \n\nNumber of page that we're displaying\n
FORMAT 0201 ASCII
LABEL 0201 PAGE_0_DATA
COMMENT 0201 \n\nPage 0's data\n
FORMAT 0225 ASCII
FORMAT 0228 ASCII
FORMAT 022B ASCII
FORMAT 0278 ASCII
FORMAT 027B ASCII
FORMAT 02CB ASCII
FORMAT 02CE ASCII
FORMAT 031B ASCII
FORMAT 031E ASCII
FORMAT 036B ASCII
FORMAT 036E ASCII
FORMAT 0384 ASCII
FORMAT 0387 ASCII
FORMAT 038A ASCII
FORMAT 03E0 ASCII
FORMAT 03E3 ASCII
FORMAT 042C ASCII
FORMAT 042F ASCII
FORMAT 0452 ASCII
FORMAT 0455 ASCII
FORMAT 0458 ASCII
FORMAT 04AD ASCII
FORMAT 04B0 ASCII
FORMAT 04FD ASCII
FORMAT 0500 ASCII
FORMAT 0525 ASCII
FORMAT 0528 ASCII
FORMAT 052B ASCII
FORMAT 057C ASCII
FORMAT 057F ASCII
FORMAT 05B0 ASCII
LABEL 05B4 PAGE_1_DATA
COMMENT 05B4 \n\nPage 1's data\n
FORMAT 05D7 ASCII
FORMAT 05DA ASCII
FORMAT 05DD ASCII
FORMAT 0629 ASCII
FORMAT 062C ASCII
FORMAT 0678 ASCII
FORMAT 067B ASCII
FORMAT 068F ASCII
FORMAT 0692 ASCII
FORMAT 0695 ASCII
FORMAT 06E2 ASCII
FORMAT 06E5 ASCII
FORMAT 070A ASCII
FORMAT 070D ASCII
FORMAT 0710 ASCII
FORMAT 0755 ASCII
FORMAT 0758 ASCII
FORMAT 0763 ASCII
FORMAT 0766 ASCII
FORMAT 0769 ASCII
FORMAT 07B6 ASCII
FORMAT 07B9 ASCII
FORMAT 0800 ASCII
FORMAT 0803 ASCII
FORMAT 0806 ASCII
FORMAT 0811 ASCII
FORMAT 0814 ASCII
FORMAT 081D ASCII
FORMAT 0820 ASCII
FORMAT 0832 ASCII
FORMAT 0835 ASCII
FORMAT 084B ASCII
FORMAT 084E ASCII
FORMAT 085D ASCII
LABEL 0861 PAGE_2_DATA
COMMENT 0861 \n\nPage 2's data\n
FORMAT 0895 ASCII
FORMAT 0898 ASCII
FORMAT 089B ASCII
FORMAT 08E3 ASCII
FORMAT 08E6 ASCII
FORMAT 0930 ASCII
FORMAT 0933 ASCII
FORMAT 097B ASCII
FORMAT 097E ASCII
FORMAT 0981 ASCII
FORMAT 09CE ASCII
FORMAT 09D1 ASCII
FORMAT 0A16 ASCII
FORMAT 0A19 ASCII
FORMAT 0A1C ASCII
FORMAT 0A65 ASCII
FORMAT 0A68 ASCII
FORMAT 0AB0 ASCII
FORMAT 0AB3 ASCII
FORMAT 0B02 ASCII
FORMAT 0B05 ASCII
FORMAT 0B51 ASCII
FORMAT 0B54 ASCII
FORMAT 0BA8 ASCII
FORMAT 0BAB ASCII
FORMAT 0BE0 ASCII
FORMAT 0BE3 ASCII
FORMAT 0BE6 ASCII
FORMAT 0C2E ASCII
FORMAT 0C31 ASCII
FORMAT 0C68 ASCII
LABEL 0C6C PAGE_3_DATA
COMMENT 0C6C \n\nPage 3's data\n
FORMAT 0C90 ASCII
FORMAT 0C93 ASCII
FORMAT 0C96 ASCII
FORMAT 0CDB ASCII
FORMAT 0CDE ASCII
FORMAT 0D12 ASCII
FORMAT 0D15 ASCII
FORMAT 0D5B ASCII
FORMAT 0D5E ASCII
FORMAT 0D7E ASCII
FORMAT 0D81 ASCII
FORMAT 0DA5 ASCII
FORMAT 0DA8 ASCII
FORMAT 0DC7 ASCII
FORMAT 0DCA ASCII
FORMAT 0DF5 ASCII
FORMAT 0DF8 ASCII
FORMAT 0DFB ASCII
FORMAT 0E18 ASCII
FORMAT 0E1B ASCII
FORMAT 0E1E ASCII
FORMAT 0E50 ASCII
FORMAT 0E53 ASCII
FORMAT 0E93 ASCII
FORMAT 0E96 ASCII
FORMAT 0E99 ASCII
FORMAT 0ED6 ASCII
FORMAT 0ED9 ASCII
FORMAT 0F03 ASCII
FORMAT 0F06 ASCII
FORMAT 0F22 ASCII
FORMAT 0F25 ASCII
FORMAT 0F65 ASCII
FORMAT 0F68 ASCII
FORMAT 0F9B ASCII
FORMAT 0F9E ASCII
FORMAT 0FDD ASCII
LABEL 0FE1 PAGE_4_DATA
COMMENT 0FE1 \n\nPage 4 data\n
FORMAT 1003 ASCII
FORMAT 1006 ASCII
FORMAT 1009 ASCII
FORMAT 1054 ASCII
FORMAT 1057 ASCII
FORMAT 10A1 ASCII
FORMAT 10A4 ASCII
FORMAT 10F4 ASCII
FORMAT 10F7 ASCII
FORMAT 110E ASCII
FORMAT 1111 ASCII
FORMAT 1114 ASCII
FORMAT 1168 ASCII
FORMAT 116B ASCII
FORMAT 1179 ASCII
FORMAT 117C ASCII
FORMAT 11A5 ASCII
FORMAT 11A8 ASCII
FORMAT 11D1 ASCII
FORMAT 11D4 ASCII
FORMAT 1200 ASCII
FORMAT 1203 ASCII
FORMAT 1206 ASCII
FORMAT 1207 Storage
FORMAT 1307 Words
LABEL 1307 TOP_OF_STACK
FORMAT 1309 Storage
FORMAT FFC0 Code
LABEL FFC0 SPECIAL_HOOK
FORMAT FFC2 Storage