|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC700 "Piccolo" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC700 "Piccolo" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 819200 (0xc8000)
Description: Bits:30003296 Diverse kildekode i assembler til RC700
Types: 5¼" Floppy Disk
Dumping the first 0x20 bytes of each record
0x00000…00200 (0, 0, 1) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x13…]
0x02800…02a00 (1, 0, 1) 54 46 4a 20 20 20 20 20 01 00 38 37 30 39 31 35 30 37 34 30 02 00 4f 00 e5 e5 e5 e5 e5 e5 e5 e5 ┆TFJ 8709150740 O ┆
0x02a00…02c00 (1, 0, 2) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
0x02c00…02e00 (1, 0, 3) 02 00 03 41 53 53 49 47 4e 20 20 43 4f 4d 02 00 02 00 03 00 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ASSIGN COM ┆
0x02e00…03000 (1, 0, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
0x03000…03200 (1, 0, 5) 02 00 03 52 45 53 54 4f 52 45 20 43 4f 4d 14 00 16 00 12 00 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ RESTORE COM ┆
0x03200…03400 (1, 0, 6) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
0x03400…03600 (1, 0, 7) 02 00 03 49 4e 54 4d 41 50 20 20 4d 41 43 2d 00 2d 00 09 00 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ INTMAP MAC- - ┆
0x03600…03800 (1, 0, 8) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
0x03800…03a00 (1, 0, 9) 02 00 03 57 53 44 20 20 20 20 20 43 4f 4d 4d 00 4e 00 2c 00 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ WSD COMM N , ┆
0x03a00…03c00 (1, 0, 10) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xa…]
0x05000…05200 (2, 0, 1) e1 22 21 02 31 63 02 21 80 00 34 5e 34 16 00 19 36 20 2a 01 00 11 34 00 19 22 19 02 7e 32 1b 02 ┆ "! 1c ! 4^4 6 * 4 " ü2 ┆
0x05200…05400 (2, 0, 2) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
0x05400…05600 (2, 0, 3) 00 52 4f 42 33 35 38 20 20 4d 41 43 00 00 00 80 04 00 06 00 07 00 08 00 09 00 0a 00 0b 00 0c 00 ┆ ROB358 MAC ┆
0x05600…05800 (2, 0, 4) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
0x05800…05a00 (2, 0, 5) 00 53 54 43 30 30 31 20 20 33 32 20 00 00 00 20 61 00 62 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ STC001 32 a b ┆
0x05a00…05c00 (2, 0, 6) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x7…]
0x06a00…06c00 (2, 1, 4) 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆;*******************************┆
0x06c00…06e00 (2, 1, 5) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
0x06e00…07000 (2, 1, 6) 09 45 51 55 09 4d 4f 56 41 44 52 2d 42 45 47 49 4e 0d 0a 52 4f 4d 32 09 45 51 55 09 32 30 30 30 ┆ EQU MOVADR-BEGIN ROM2 EQU 2000┆
0x07000…07200 (2, 1, 7) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
0x07200…07400 (2, 1, 8) 3b 53 54 41 43 4b 20 41 52 45 41 20 42 4f 54 54 4f 4d 20 41 44 44 52 45 53 53 0d 0a 3b 0d 0a 0d ┆;STACK AREA BOTTOM ADDRESS ; ┆
0x07400…07600 (2, 1, 9) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
0x07600…07800 (2, 1, 10) 0a 09 4c 44 20 42 43 2c 46 4d 4f 56 45 2d 46 4d 4f 56 53 3b 20 4e 55 4d 42 45 52 20 4f 46 20 42 ┆ LD BC,FMOVE-FMOVS; NUMBER OF B┆
0x07800…07a00 (3, 0, 1) c3 f7 02 52 43 38 35 35 24 52 43 37 30 30 24 20 20 41 75 74 6f 65 78 65 63 20 76 65 72 73 2e 20 ┆ RC855$RC700$ Autoexec vers. ┆
0x07a00…07c00 (3, 0, 2) 52 54 20 41 3a 20 55 53 45 44 20 46 4f 52 20 4b 45 59 42 4f 41 52 44 0d 0a 3b 20 20 50 4f 52 54 ┆RT A: USED FOR KEYBOARD ; PORT┆
0x07c00…07e00 (3, 0, 3) fe 01 28 03 11 09 01 cd d7 02 11 0f 01 cd d7 02 11 31 01 cd d7 02 11 eb 03 cd dc 02 21 ec 03 46 ┆ ( 1 ! F┆
0x07e00…08000 (3, 0, 4) 45 20 41 4d 39 35 31 37 20 44 4d 41 20 43 4f 4e 54 52 4f 4c 4c 45 52 0d 0a 3b 20 20 43 48 41 4e ┆E AM9517 DMA CONTROLLER ; CHAN┆
0x08000…08200 (3, 0, 5) ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ┆ ┆
0x08200…08400 (3, 0, 6) 45 51 55 09 30 32 30 48 09 3b 43 4f 4d 4d 41 4e 44 20 56 41 4c 55 45 20 0d 0a 4d 4f 44 45 30 09 ┆EQU 020H ;COMMAND VALUE MODE0 ┆
0x08400…08600 (3, 0, 7) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
0x08600…08800 (3, 0, 8) 4b 20 42 49 54 0d 0a 3b 0d 0a 09 4c 44 20 41 2c 43 4f 4d 56 09 3b 53 45 4c 45 43 54 20 43 4f 4d ┆K BIT ; LD A,COMV ;SELECT COM┆
0x08800…08a00 (3, 0, 9) 54 41 42 3a 09 44 57 20 44 55 4d 49 4e 54 09 3b 20 20 20 20 20 44 55 4d 4d 59 0d 0a 09 44 57 20 ┆TAB: DW DUMINT ; DUMMY DW ┆
0x08a00…08c00 (3, 0, 10) 54 52 4f 4c 4c 45 52 0d 0a 3b 0d 0a 43 54 43 43 48 30 09 45 51 55 09 30 43 48 09 3b 43 48 41 4e ┆TROLLER ; CTCCH0 EQU 0CH ;CHAN┆
0x08c00…08e00 (3, 1, 1) 09 4c 44 20 41 2c 43 54 43 4d 4f 44 09 3b 53 45 54 20 43 48 41 4e 4e 45 4c 32 20 4d 4f 44 45 20 ┆ LD A,CTCMOD ;SET CHANNEL2 MODE ┆
0x08e00…09000 (3, 1, 2) 4f 4f 54 20 46 4c 41 47 3a 3d 30 0d 0a 09 4c 44 20 28 54 5f 46 4c 47 29 2c 41 09 3b 54 45 53 54 ┆OOT FLAG:=0 LD (T_FLG),A ;TEST┆
0x09000…09200 (3, 1, 3) 49 4e 54 45 52 52 55 50 54 20 54 41 42 4c 45 20 45 4e 54 52 59 20 46 4f 52 20 57 44 31 30 30 30 ┆INTERRUPT TABLE ENTRY FOR WD1000┆
0x09200…09400 (3, 1, 4) 29 2c 41 09 3b 45 52 52 4f 52 46 4c 41 47 3a 3d 46 41 4c 53 45 0d 0a 09 4c 44 20 28 48 44 5f 46 ┆),A ;ERRORFLAG:=FALSE LD (HD_F┆
0x09400…09600 (3, 1, 5) 50 52 4f 4d 54 20 54 4f 20 20 20 20 20 20 20 20 20 20 20 20 09 20 20 20 09 20 20 20 20 20 09 0d ┆PROMT TO ┆
0x09600…09800 (3, 1, 6) 54 4f 20 46 4c 4f 50 50 59 0d 0a 09 4a 50 20 4e 5a 2c 46 4c 4f 50 50 59 09 3b 0d 0a 09 4c 44 20 ┆TO FLOPPY JP NZ,FLOPPY ; LD ┆
0x09800…09a00 (3, 1, 7) 52 41 4d 45 0d 0a 50 41 52 41 4d 33 09 45 51 55 09 37 41 48 09 3b 55 4e 44 45 52 4c 49 4e 45 20 ┆RAME PARAM3 EQU 7AH ;UNDERLINE ┆
0x09a00…09c00 (3, 1, 8) 55 54 20 28 52 41 4d 45 4e 29 2c 41 09 3b 48 41 52 44 44 49 53 4b 20 52 45 43 4f 47 4e 49 5a 45 ┆UT (RAMEN),A ;HARDDISK RECOGNIZE┆
0x09c00…09e00 (3, 1, 9) 43 55 52 53 4f 52 20 59 20 50 4f 53 3a 3d 30 0d 0a 09 4c 44 20 41 2c 50 52 45 43 43 09 3b 50 52 ┆CURSOR Y POS:=0 LD A,PRECC ;PR┆
0x09e00…0a000 (3, 1, 10) 4c 47 29 20 09 3b 57 48 49 4c 45 20 48 44 43 20 42 55 53 59 20 44 4f 20 57 41 49 54 0d 0a 09 4f ┆LG) ;WHILE HDC BUSY DO WAIT O┆
0x0a000…0a200 (4, 0, 1) 52 20 48 44 5f 46 4c 47 0d 0a 09 4c 44 20 28 45 52 46 4c 41 47 29 2c 41 09 3b 0d 0a 09 4c 44 20 ┆R HD_FLG LD (ERFLAG),A ; LD ┆
0x0a200…0a400 (4, 0, 2) 44 4d 41 0d 0a 09 4c 44 20 41 2c 53 45 54 31 09 3b 0d 0a 09 4c 44 20 48 4c 2c 28 54 52 42 59 54 ┆DMA LD A,SET1 ; LD HL,(TRBYT┆
0x0a400…0a600 (4, 0, 3) 5f 50 4f 49 4e 54 45 52 3a 3d 4d 45 4d 4f 52 59 5f 50 4f 49 4e 54 45 52 2b 35 31 32 0d 0a 09 41 ┆_POINTER:=MEMORY_POINTER+512 A┆
0x0a600…0a800 (4, 0, 4) 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 49 44 45 30 3d 20 31 36 20 53 45 43 54 4f 52 ┆* SIDE0= 16 SECTOR┆
0x0a800…0aa00 (4, 0, 5) 3b 0d 0a 46 4c 4f 50 50 59 3a 09 4c 44 20 41 2c 28 54 5f 46 4c 47 29 09 3b 49 46 20 46 4f 52 43 ┆; FLOPPY: LD A,(T_FLG) ;IF FORC┆
0x0aa00…0ac00 (4, 0, 6) 47 4e 49 46 49 43 41 4e 54 45 20 42 59 54 45 53 20 4f 4e 20 4f 4e 45 20 43 59 4c 49 4e 44 45 52 ┆GNIFICANTE BYTES ON ONE CYLINDER┆
0x0ac00…0ae00 (4, 0, 7) 59 20 49 4d 41 47 45 20 54 45 58 54 3d 27 20 52 43 37 30 30 27 20 54 48 45 4e 0d 0a 09 09 09 3b ┆Y IMAGE TEXT=' RC700' THEN ;┆
0x0ae00…0b000 (4, 0, 8) 41 47 45 20 54 48 41 54 20 4c 49 45 53 20 4f 55 54 20 4f 46 20 54 48 45 20 43 41 54 41 4c 4f 47 ┆AGE THAT LIES OUT OF THE CATALOG┆
0x0b000…0b200 (4, 0, 9) 29 2c 44 55 41 4c 43 09 3b 44 55 41 4c 20 44 45 4e 53 49 54 59 20 52 45 41 44 20 43 4f 4d 4d 41 ┆),DUALC ;DUAL DENSITY READ COMMA┆
0x0b200…0b400 (4, 0, 10) 4c 20 43 4f 4d 53 54 52 09 3b 0d 0a 09 4a 50 20 4e 5a 2c 44 49 52 45 52 52 09 3b 0d 0a 09 50 4f ┆L COMSTR ; JP NZ,DIRERR ; PO┆
0x0b400…0b600 (4, 1, 1) 0a 09 4c 44 20 48 4c 2c 30 30 09 3b 0d 0a 09 4c 44 20 28 4d 45 4d 41 44 52 29 2c 48 4c 09 3b 20 ┆ LD HL,00 ; LD (MEMADR),HL ; ┆
0x0b600…0b800 (4, 1, 2) 4e 0d 0a 09 4c 44 20 28 46 44 43 49 4e 49 2b 32 29 2c 41 09 3b 20 20 20 20 53 45 54 20 53 52 54 ┆N LD (FDCINI+2),A ; SET SRT┆
0x0b800…0ba00 (4, 1, 3) 20 20 20 53 45 54 20 44 52 49 56 45 20 30 20 48 45 41 44 20 31 0d 0a 09 43 41 4c 4c 20 52 45 41 ┆ SET DRIVE 0 HEAD 1 CALL REA┆
0x0ba00…0bc00 (4, 1, 4) 4c 41 47 0d 0a 09 43 41 4c 4c 20 46 4c 4f 34 09 3b 20 20 20 20 52 45 43 41 4c 49 42 52 41 54 45 ┆LAG CALL FLO4 ; RECALIBRATE┆
0x0bc00…0be00 (4, 1, 5) 41 44 44 20 48 4c 2c 44 45 09 3b 0d 0a 09 4c 44 20 28 4d 45 4d 41 44 52 29 2c 48 4c 09 3b 0d 0a ┆ADD HL,DE ; LD (MEMADR),HL ; ┆
0x0be00…0c000 (4, 1, 6) 3b 20 20 55 4e 54 49 4c 20 54 49 4d 45 53 3d 30 20 4f 52 20 4e 4f 54 20 45 52 52 4f 52 0d 0a 09 ┆; UNTIL TIMES=0 OR NOT ERROR ┆
0x0c000…0c200 (4, 1, 7) 41 4c 20 42 4f 4f 54 20 41 44 44 52 45 53 53 0d 0a 09 4a 50 20 28 48 4c 29 09 09 3b 20 41 4e 44 ┆AL BOOT ADDRESS JP (HL) ; AND┆
0x0c200…0c400 (4, 1, 8) 49 42 52 41 54 45 20 43 4f 4d 4d 41 4e 44 0d 0a 09 43 41 4c 4c 20 46 4c 4f 32 09 3b 20 20 57 41 ┆IBRATE COMMAND CALL FLO2 ; WA┆
0x0c400…0c600 (4, 1, 9) 09 3b 46 4c 4f 50 50 59 20 44 41 54 41 20 52 45 47 49 53 54 45 52 0d 0a 0d 0a 3b 0d 0a 3b 0d 0a ┆ ;FLOPPY DATA REGISTER ; ; ┆
0x0c600…0c800 (4, 1, 10) 41 43 4b 0d 0a 09 09 09 3b 22 4e 45 57 20 43 59 4c 49 4e 44 45 52 20 4e 55 4d 42 45 52 20 49 4e ┆ACK ;"NEW CYLINDER NUMBER IN┆
0x0c800…0ca00 (5, 0, 1) 52 52 4f 52 2a 29 0d 0a 09 4c 44 20 48 4c 2c 45 52 4d 45 53 30 09 3b 0d 0a 09 4a 50 20 45 52 52 ┆RROR*) LD HL,ERMES0 ; JP ERR┆
0x0ca00…0cc00 (5, 0, 2) 49 4e 47 4c 45 20 44 45 4e 53 49 54 59 29 0d 0a 09 44 42 20 30 30 48 09 09 3b 44 52 49 56 45 30 ┆INGLE DENSITY) DB 00H ;DRIVE0┆
0x0cc00…0ce00 (5, 0, 3) 52 49 54 49 43 41 4c 20 46 44 43 20 54 49 4d 49 4e 47 0d 0a 09 49 4e 20 41 2c 28 46 44 43 29 09 ┆RITICAL FDC TIMING IN A,(FDC) ┆
0x0ce00…0d000 (5, 0, 4) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0d000…0d200 (5, 0, 5) 47 49 4e 0d 0a 09 4c 44 20 41 2c 28 48 4c 29 09 3b 20 20 57 41 49 54 5f 52 45 41 44 59 5f 57 52 ┆GIN LD A,(HL) ; WAIT_READY_WR┆
0x0d200…0d400 (5, 0, 6) 4e 44 20 52 45 47 49 53 54 45 52 0d 0a 48 44 53 54 41 54 09 45 51 55 09 30 36 37 48 09 3b 53 54 ┆ND REGISTER HDSTAT EQU 067H ;ST┆
0x0d400…0d600 (5, 0, 7) 2c 28 52 53 54 41 42 2b 31 29 09 3b 0d 0a 09 41 4e 44 20 30 33 35 48 09 3b 0d 0a 09 52 45 54 20 ┆,(RSTAB+1) ; AND 035H ; RET ┆
0x0d600…0d800 (5, 0, 8) 09 09 09 3b 50 52 4f 43 45 44 55 52 45 20 53 45 54 5f 55 50 5f 54 41 53 4b 46 49 4c 45 0d 0a 09 ┆ ;PROCEDURE SET_UP_TASKFILE ┆
0x0d800…0da00 (5, 0, 9) 2a 31 32 38 29 2d 31 0d 0a 4d 49 42 59 54 31 09 45 51 55 09 34 30 39 35 09 3b 42 59 54 45 53 20 ┆*128)-1 MIBYT1 EQU 4095 ;BYTES ┆
0x0da00…0dc00 (5, 0, 10) 5f 55 50 5f 44 4d 41 0d 0a 09 09 09 3b 52 45 41 44 49 4e 47 20 46 4f 4d 52 20 44 49 53 4b 20 54 ┆_UP_DMA ;READING FOMR DISK T┆
0x0dc00…0de00 (5, 1, 1) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0de00…0e000 (5, 1, 2) 30 30 34 09 3b 42 4c 55 45 20 43 41 4e 4f 4e 0d 0a 52 45 44 09 45 51 55 09 30 30 38 09 3b 52 45 ┆004 ;BLUE CANON RED EQU 008 ;RE┆
0x0e000…0e200 (5, 1, 3) 0a 54 32 32 3a 09 43 50 20 27 54 27 09 09 3b 20 20 45 4c 53 45 20 49 46 20 46 4f 52 43 45 5f 54 ┆ T22: CP 'T' ; ELSE IF FORCE_T┆
0x0e200…0e400 (5, 1, 4) f3 31 ff ff 21 12 00 11 00 a0 01 ee 07 ed b0 c3 18 a0 cc a4 cf a4 cc a4 cc a4 ec a4 cc a4 cc a4 ┆ 1 ! ┆
0x0e400…0e600 (5, 1, 5) 46 4c 41 47 29 2c 41 09 3b 0d 0a 48 44 45 58 49 54 3a 09 45 58 20 41 46 2c 41 46 27 09 3b 0d 0a ┆FLAG),A ; HDEXIT: EX AF,AF' ; ┆
0x0e600…0e800 (5, 1, 6) 08 ff 3e 05 32 11 b0 af 32 4c a5 db 14 e6 80 28 05 11 ff 0f 18 03 11 ff 19 0e f2 3e 05 2a 96 a4 ┆ > 2 2L ( > * ┆
0x0e800…0ea00 (5, 1, 7) 2c 28 43 52 54 43 4f 4d 29 09 3b 52 45 4d 4f 56 45 20 49 4e 54 45 52 52 55 50 54 20 42 59 20 52 ┆,(CRTCOM) ;REMOVE INTERRUPT BY R┆
0x0ea00…0ec00 (5, 1, 8) 28 fa 3a 03 b0 e6 f0 fe 20 c8 21 4f a5 c3 2b a5 21 03 b0 16 03 cd 17 a4 c8 15 20 f9 16 04 21 8f ┆( : !O + ! ! ┆
0x0ec00…0ee00 (5, 1, 9) 47 0d 0a 46 4c 42 46 4c 47 3a 09 44 42 20 30 09 09 3b 46 4f 52 43 45 20 46 4c 4f 50 50 59 20 42 ┆G FLBFLG: DB 0 ;FORCE FLOPPY B┆
0x0ee00…0f000 (5, 1, 10) ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x0f000…0f200 (6, 0, 1) 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆;*******************************┆
0x0f200…0f400 (6, 0, 2) 49 4f 3a 20 4b 45 59 42 4f 41 52 44 09 22 4e 4f 54 45 20 4d 55 53 54 20 4e 4f 54 20 42 45 20 43 ┆IO: KEYBOARD "NOTE MUST NOT BE C┆
0x0f400…0f600 (6, 0, 3) 20 20 20 20 20 20 2a 0d 0a 3b 2a 20 41 4e 44 20 54 4f 20 4c 4f 41 44 20 43 48 41 52 41 43 54 45 ┆ * ;* AND TO LOAD CHARACTE┆
0x0f600…0f800 (6, 0, 4) 55 53 45 44 20 44 55 52 49 4e 47 20 42 4f 4f 54 53 54 52 41 50 0d 0a 3b 0d 0a 4b 45 59 43 4f 4e ┆USED DURING BOOTSTRAP ; KEYCON┆
0x0f800…0fa00 (6, 0, 5) 53 20 4f 46 20 54 45 53 54 20 50 52 4f 4d 20 0d 0a 52 41 4d 45 4e 09 45 51 55 09 30 31 39 48 09 ┆S OF TEST PROM RAMEN EQU 019H ┆
0x0fa00…0fc00 (6, 0, 6) 4d 4f 52 59 20 44 49 53 4b 0d 0a 3b 20 20 43 48 41 4e 4e 45 4c 31 3a 20 46 4c 4f 50 50 59 20 44 ┆MORY DISK ; CHANNEL1: FLOPPY D┆
0x0fc00…0fe00 (6, 0, 7) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0fe00…10000 (6, 0, 8) 41 4e 44 20 56 41 4c 55 45 20 0d 0a 4d 4f 44 45 30 09 45 51 55 09 30 34 34 48 09 3b 54 52 41 4e ┆AND VALUE MODE0 EQU 044H ;TRAN┆
0x10000…10200 (6, 0, 9) 4f 56 45 0d 0a 09 4c 44 49 52 09 09 3b 4d 4f 56 45 21 0d 0a 09 4a 50 20 41 55 54 4f 4c 09 3b 47 ┆OVE LDIR ;MOVE! JP AUTOL ;G┆
0x10200…10400 (6, 0, 10) 30 30 34 48 09 3b 53 45 54 20 43 48 30 20 4d 41 53 4b 20 42 49 54 0d 0a 53 45 54 31 09 45 51 55 ┆004H ;SET CH0 MASK BIT SET1 EQU┆
0x10400…10600 (6, 1, 1) 45 44 20 44 55 52 49 4e 47 20 42 4f 4f 54 53 54 52 41 50 0d 0a 3b 20 20 43 48 41 4e 4e 45 4c 32 ┆ED DURING BOOTSTRAP ; CHANNEL2┆
0x10600…10800 (6, 1, 2) 3b 0d 0a 09 4c 44 20 28 46 4c 42 46 4c 47 29 2c 41 09 3b 46 4c 4f 50 50 59 20 42 4f 4f 54 20 46 ┆; LD (FLBFLG),A ;FLOPPY BOOT F┆
0x10800…10a00 (6, 1, 3) 43 54 4f 52 0d 0a 09 4f 55 54 20 28 43 54 43 43 48 30 29 2c 41 09 3b 0d 0a 09 4c 44 20 41 2c 43 ┆CTOR OUT (CTCCH0),A ; LD A,C┆
0x10a00…10c00 (6, 1, 4) 54 4f 4c 4f 41 44 20 53 45 43 54 49 4f 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TOLOAD SECTION ┆
0x10c00…10e00 (6, 1, 5) 20 41 4e 44 20 54 48 45 20 27 20 52 43 37 30 30 27 20 50 52 4f 4d 54 20 54 4f 20 20 20 20 20 20 ┆ AND THE ' RC700' PROMT TO ┆
0x10e00…11000 (6, 1, 6) 20 4c 44 20 28 48 53 54 53 45 43 29 2c 41 20 20 20 3b 53 45 54 20 53 45 43 54 4f 52 3d 30 0d 0a ┆ LD (HSTSEC),A ;SET SECTOR=0 ┆
0x11000…11200 (6, 1, 7) 53 20 50 45 52 20 46 52 41 4d 45 0d 0a 50 41 52 41 4d 33 09 45 51 55 09 37 41 48 09 3b 55 4e 44 ┆S PER FRAME PARAM3 EQU 7AH ;UND┆
0x11200…11400 (6, 1, 8) 3b 54 48 45 4e 20 41 55 54 4f 4c 4f 41 44 20 46 52 4f 4d 20 46 4c 4f 50 50 59 0d 0a 0d 0a 50 41 ┆;THEN AUTOLOAD FROM FLOPPY PA┆
0x11400…11600 (6, 1, 9) 50 4f 53 3a 3d 32 36 0d 0a 09 4f 55 54 20 28 43 52 54 44 41 54 29 2c 41 09 3b 43 55 52 53 4f 52 ┆POS:=26 OUT (CRTDAT),A ;CURSOR┆
0x11600…11800 (6, 1, 10) 20 28 48 53 54 54 52 4b 29 2c 41 20 20 20 3b 0d 0a 20 20 20 20 20 20 20 20 4c 44 20 42 43 2c 42 ┆ (HSTTRK),A ; LD BC,B┆
0x11800…11a00 (7, 0, 1) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 2a 20 ┆*************************** ;* ┆
0x11a00…11c00 (7, 0, 2) 41 20 20 3b 0d 0a 20 20 20 20 20 20 20 20 4c 44 20 41 2c 42 20 20 20 20 20 20 20 20 20 20 3b 53 ┆A ; LD A,B ;S┆
0x11c00…11e00 (7, 0, 3) 20 09 3b 0d 0a 20 20 20 20 20 20 20 20 4c 44 20 28 48 4c 29 2c 30 45 35 48 20 20 20 20 3b 0d 0a ┆ ; LD (HL),0E5H ; ┆
0x11e00…12000 (7, 0, 4) 20 20 20 41 4e 44 20 30 31 48 20 20 20 20 20 20 20 20 20 3b 43 48 45 43 4b 20 50 41 52 49 54 59 ┆ AND 01H ;CHECK PARITY┆
0x12000…12200 (7, 0, 5) 3b 4d 4f 56 45 20 50 52 4f 4d 44 49 52 0d 0a 20 20 20 20 20 20 20 20 58 4f 52 20 41 20 20 20 20 ┆;MOVE PROMDIR XOR A ┆
0x12200…12400 (7, 0, 6) 4c 4e 20 20 20 45 51 55 20 20 20 20 20 30 44 32 48 20 20 20 20 3b 44 4f 54 20 4c 49 4e 45 0d 0a ┆LN EQU 0D2H ;DOT LINE ┆
0x12400…12600 (7, 0, 7) 41 20 20 20 3b 53 45 43 54 4f 52 3d 30 2c 20 54 52 41 43 4b 3d 30 0d 0a 20 20 20 20 20 20 20 20 ┆A ;SECTOR=0, TRACK=0 ┆
0x12600…12800 (7, 0, 8) 20 4e 45 58 54 20 43 48 41 52 0d 0a 20 20 20 20 20 20 20 20 4c 44 20 41 2c 43 20 20 20 20 20 20 ┆ NEXT CHAR LD A,C ┆
0x12800…12a00 (7, 0, 9) 20 20 4a 52 20 4d 44 43 4f 4d 20 20 20 20 20 20 20 20 3b 0d 0a 4d 44 52 44 3a 20 20 20 4c 44 20 ┆ JR MDCOM ; MDRD: LD ┆
0x12a00…12c00 (7, 0, 10) 20 20 20 20 20 20 20 09 09 09 09 09 09 09 20 20 20 20 20 2a 0d 0a 3b 2a 20 46 4c 4f 50 50 59 5f ┆ * ;* FLOPPY_┆
0x12c00…12e00 (7, 1, 1) 20 54 4f 20 54 48 45 20 49 4d 41 47 45 20 4c 4f 41 44 45 44 20 46 52 4f 4d 20 44 49 53 4b 0d 0a ┆ TO THE IMAGE LOADED FROM DISK ┆
0x12e00…13000 (7, 1, 2) 2d 46 49 4c 45 20 54 59 50 45 20 56 41 4c 55 45 0d 0a 4f 55 54 43 41 54 09 45 51 55 09 30 30 45 ┆-FILE TYPE VALUE OUTCAT EQU 00E┆
0x13000…13200 (7, 1, 3) 4d 41 4c 38 30 20 2d 20 43 50 2f 4d 20 41 55 54 4f 4c 4f 41 44 0d 0a 3b 0d 0a 43 50 43 4f 4d 42 ┆MAL80 - CP/M AUTOLOAD ; CPCOMB┆
0x13200…13400 (7, 1, 4) 49 4e 43 20 48 4c 09 09 3b 0d 0a 09 4c 44 20 44 45 2c 53 59 53 4d 2d 31 09 3b 49 46 20 45 4e 54 ┆INC HL ; LD DE,SYSM-1 ;IF ENT┆
0x13400…13600 (7, 1, 5) 2c 4d 58 42 59 54 31 09 3b 20 20 45 4c 53 45 20 42 59 54 45 53 20 54 4f 20 54 52 41 4e 53 46 45 ┆,MXBYT1 ; ELSE BYTES TO TRANSFE┆
0x13600…13800 (7, 1, 6) 3b 0d 0a 09 43 50 20 46 49 4c 54 59 09 3b 0d 0a 09 4a 50 20 4e 5a 2c 44 49 52 45 52 52 09 3b 0d ┆; CP FILTY ; JP NZ,DIRERR ; ┆
0x13800…13a00 (7, 1, 7) 09 09 09 09 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 20 20 4d 49 4e 49 20 44 52 49 ┆ * ;* MINI DRI┆
0x13a00…13c00 (7, 1, 8) 4d 45 4d 4f 52 59 5f 41 44 52 2b 31 36 2a 31 32 38 0d 0a 20 09 41 44 44 20 48 4c 2c 44 45 09 3b ┆MEMORY_ADR+16*128 ADD HL,DE ;┆
0x13c00…13e00 (7, 1, 9) 43 4b 20 46 44 43 20 43 4f 4d 4d 41 4e 44 0d 0a 4d 49 4e 53 31 09 45 51 55 09 31 32 38 30 09 3b ┆CK FDC COMMAND MINS1 EQU 1280 ;┆
0x13e00…14000 (7, 1, 10) 52 41 43 4b 28 54 52 41 43 4b 29 0d 0a 09 4c 44 20 48 4c 2c 28 4d 45 4d 41 44 52 29 09 3b 0d 0a ┆RACK(TRACK) LD HL,(MEMADR) ; ┆
0x14000…14200 (8, 0, 1) 28 4b 45 59 43 4f 4e 29 2c 41 09 3b 20 54 48 45 20 4b 45 59 42 4f 41 52 44 20 49 4e 54 45 52 52 ┆(KEYCON),A ; THE KEYBOARD INTERR┆
0x14200…14400 (8, 0, 2) 4f 46 20 53 43 52 45 45 4e 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4d 45 53 53 57 52 20 20 ┆OF SCREEN CALL MESSWR ┆
0x14400…14600 (8, 0, 3) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x14600…14800 (8, 0, 4) 29 2c 41 09 3b 20 20 52 45 43 41 4c 49 42 52 41 54 45 20 43 4f 4d 4d 41 4e 44 0d 0a 09 43 41 4c ┆),A ; RECALIBRATE COMMAND CAL┆
0x14800…14a00 (8, 0, 5) 54 49 41 4c 49 5a 45 20 46 4c 4f 50 50 59 0d 0a 09 41 4e 44 20 38 30 48 09 09 3b 42 45 47 49 4e ┆TIALIZE FLOPPY AND 80H ;BEGIN┆
0x14a00…14c00 (8, 0, 6) 20 20 20 4a 52 20 5a 2c 46 4c 4f 38 20 20 20 20 20 20 20 3b 4e 4f 20 57 41 49 54 0d 0a 20 20 20 ┆ JR Z,FLO8 ;NO WAIT ┆
0x14c00…14e00 (8, 0, 7) 4b 20 20 20 20 20 3b 20 57 41 49 54 20 46 4f 52 20 44 49 53 4b 20 49 4e 20 44 52 49 56 45 0d 0a ┆K ; WAIT FOR DISK IN DRIVE ┆
0x14e00…15000 (8, 0, 8) 0a 09 58 4f 52 20 41 09 09 3b 42 45 47 49 4e 0d 0a 09 4c 44 20 28 46 4c 5f 46 4c 47 29 2c 41 09 ┆ XOR A ;BEGIN LD (FL_FLG),A ┆
0x15000…15200 (8, 0, 9) 54 48 45 4e 20 57 52 49 54 45 28 50 4c 45 41 53 45 20 49 4e 53 45 52 54 20 44 49 53 4b 45 54 54 ┆THEN WRITE(PLEASE INSERT DISKETT┆
0x15200…15400 (8, 0, 10) 41 47 45 0d 0a 52 53 55 4c 54 3a 09 09 09 3b 50 52 4f 43 45 44 55 52 45 20 52 45 41 44 5f 52 45 ┆AGE RSULT: ;PROCEDURE READ_RE┆
0x15400…15600 (8, 1, 1) 3b 0d 0a 09 52 45 54 09 09 3b 0d 0a 50 41 47 45 0d 0a 09 0d 0a 46 44 53 54 41 52 3a 09 4c 44 20 ┆; RET ; PAGE FDSTAR: LD ┆
0x15600…15800 (8, 1, 2) 20 20 20 20 20 20 20 20 20 3b 50 52 4f 43 45 44 55 52 45 20 53 45 54 5f 55 50 5f 44 4d 41 0d 0a ┆ ;PROCEDURE SET_UP_DMA ┆
0x15800…15a00 (8, 1, 3) 20 48 4c 09 09 3b 0d 0a 09 44 45 43 20 42 09 09 3b 0d 0a 09 4a 52 20 4e 5a 2c 52 45 50 43 4f 4d ┆ HL ; DEC B ; JR NZ,REPCOM┆
0x15a00…15c00 (8, 1, 4) 48 20 41 44 44 52 45 53 53 0d 0a 20 20 20 20 20 20 20 20 49 4e 43 20 43 20 20 20 20 20 20 20 20 ┆H ADDRESS INC C ┆
0x15c00…15e00 (8, 1, 5) 09 41 4e 44 20 30 33 35 48 09 3b 0d 0a 09 52 45 54 20 5a 09 09 3b 20 49 46 20 4e 4f 54 20 52 45 ┆ AND 035H ; RET Z ; IF NOT RE┆
0x15e00…16000 (8, 1, 6) 59 5f 49 4e 54 45 52 52 55 50 54 0d 0a 09 52 45 54 49 09 09 3b 0d 0a 3b 0d 0a 3b 0d 0a 3b 0d 0a ┆Y_INTERRUPT RETI ; ; ; ; ┆
0x16000…16200 (8, 1, 7) 31 09 45 51 55 09 34 30 39 35 09 3b 42 59 54 45 53 20 54 52 41 43 4b 30 20 53 49 44 45 31 28 31 ┆1 EQU 4095 ;BYTES TRACK0 SIDE1(1┆
0x16200…16400 (8, 1, 8) 20 4e 5a 2c 54 49 4d 46 4c 49 09 3b 0d 0a 09 49 4e 20 41 2c 28 46 44 43 29 09 3b 0d 0a 09 41 4e ┆ NZ,TIMFLI ; IN A,(FDC) ; AN┆
0x16400…16600 (8, 1, 9) 0d 0a 09 44 42 20 30 30 48 09 09 3b 44 52 49 56 45 30 2f 48 45 41 44 30 0d 0a 43 55 52 49 44 3a ┆ DB 00H ;DRIVE0/HEAD0 CURID:┆
0x16600…16800 (8, 1, 10) 45 49 09 09 3b 0d 0a 09 52 45 54 49 09 09 3b 0d 0a 50 41 47 45 0d 0a 45 52 52 3a 09 09 09 3b 50 ┆EI ; RETI ; PAGE ERR: ;P┆
0x16800…16a00 (9, 0, 1) 31 30 30 20 20 20 20 20 20 20 20 3b 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 43 4f 4d 4d 4f ┆100 ; CALL COMMO┆
0x16a00…16c00 (9, 0, 2) 48 41 52 0d 0a 09 52 45 54 0d 0a 3b 0d 0a 3b 0d 0a 50 4e 49 42 3a 09 3b 50 52 49 4e 54 20 4e 49 ┆HAR RET ; ; PNIB: ;PRINT NI┆
0x16c00…16e00 (9, 0, 3) 43 20 48 4c 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 20 20 20 20 20 20 20 20 4a 52 20 4d 45 53 53 ┆C HL ; JR MESS┆
0x16e00…17000 (9, 0, 4) 0a 3b 09 52 45 41 44 20 41 4e 4f 54 48 45 52 20 42 55 46 46 45 52 0d 0a 3b 0d 0a 3b 0d 0a 09 43 ┆ ; READ ANOTHER BUFFER ; ; C┆
0x17000…17200 (9, 0, 5) 20 20 20 20 20 20 3b 54 49 4d 45 4f 55 54 20 54 49 43 4b 53 20 49 4e 20 53 59 53 54 45 4d 0d 0a ┆ ;TIMEOUT TICKS IN SYSTEM ┆
0x17200…17400 (9, 0, 6) 53 45 54 55 50 3a 09 3b 53 45 54 20 55 50 20 46 49 4c 45 20 0d 0a 3b 09 4f 50 45 4e 20 54 48 45 ┆SETUP: ;SET UP FILE ; OPEN THE┆
0x17400…17600 (9, 0, 7) 43 54 20 46 4f 52 47 52 4f 55 4e 44 0d 0a 42 4c 55 45 09 45 51 55 09 30 30 34 09 3b 42 4c 55 45 ┆CT FORGROUND BLUE EQU 004 ;BLUE┆
0x17600…17800 (9, 0, 8) 4f 54 45 20 4e 55 4d 42 45 52 20 4f 46 46 20 46 52 45 45 20 42 59 54 45 53 20 49 4e 20 50 52 4f ┆OTE NUMBER OFF FREE BYTES IN PRO┆
0x17800…17a00 (9, 0, 9) 54 48 41 54 20 41 20 4a 4d 50 20 54 4f 20 30 30 30 30 48 20 52 45 42 4f 4f 54 53 29 0d 0a 09 43 ┆THAT A JMP TO 0000H REBOOTS) C┆
0x17a00…17c00 (9, 0, 10) 30 30 34 48 09 3b 53 45 54 20 43 48 30 20 4d 41 53 4b 20 42 49 54 0d 0a 53 45 54 31 09 45 51 55 ┆004H ;SET CH0 MASK BIT SET1 EQU┆
0x17c00…17e00 (9, 1, 1) 45 44 20 44 55 52 49 4e 47 20 42 4f 4f 54 53 54 52 41 50 0d 0a 3b 20 20 43 48 41 4e 4e 45 4c 32 ┆ED DURING BOOTSTRAP ; CHANNEL2┆
0x17e00…18000 (9, 1, 2) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x18000…18200 (9, 1, 3) 43 54 4f 52 0d 0a 09 4f 55 54 20 28 43 54 43 43 48 30 29 2c 41 09 3b 0d 0a 09 4c 44 20 41 2c 43 ┆CTOR OUT (CTCCH0),A ; LD A,C┆
0x18200…18400 (9, 1, 4) 4f 56 45 0d 0a 09 4c 44 49 52 09 09 3b 4d 4f 56 45 21 0d 0a 09 4a 50 20 41 55 54 4f 4c 09 3b 47 ┆OVE LDIR ;MOVE! JP AUTOL ;G┆
0x18400…18600 (9, 1, 5) 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆;*******************************┆
0x18600…18800 (9, 1, 6) 49 4f 3a 20 4b 45 59 42 4f 41 52 44 09 22 4e 4f 54 45 20 4d 55 53 54 20 4e 4f 54 20 42 45 20 43 ┆IO: KEYBOARD "NOTE MUST NOT BE C┆
0x18800…18a00 (9, 1, 7) 20 20 20 20 20 20 2a 0d 0a 3b 2a 20 41 4e 44 20 54 4f 20 4c 4f 41 44 20 43 48 41 52 41 43 54 45 ┆ * ;* AND TO LOAD CHARACTE┆
0x18a00…18c00 (9, 1, 8) 55 53 45 44 20 44 55 52 49 4e 47 20 42 4f 4f 54 53 54 52 41 50 0d 0a 3b 0d 0a 4b 45 59 43 4f 4e ┆USED DURING BOOTSTRAP ; KEYCON┆
0x18c00…18e00 (9, 1, 9) 53 20 4f 46 20 54 45 53 54 20 50 52 4f 4d 20 0d 0a 52 41 4d 45 4e 09 45 51 55 09 30 31 39 48 09 ┆S OF TEST PROM RAMEN EQU 019H ┆
0x18e00…19000 (9, 1, 10) 4d 4f 52 59 20 44 49 53 4b 0d 0a 3b 20 20 43 48 41 4e 4e 45 4c 31 3a 20 46 4c 4f 50 50 59 20 44 ┆MORY DISK ; CHANNEL1: FLOPPY D┆
0x19000…19020 (10, 0, 1) 41 4e 44 20 56 41 4c 55 45 20 0d 0a 4d 4f 44 45 30 09 45 51 55 09 30 34 34 48 09 3b 54 52 41 4e ┆AND VALUE MODE0 EQU 044H ;TRAN┆
0x19020…19040 53 46 45 52 20 44 49 53 4b 20 54 4f 20 4d 45 4d 4f 52 59 20 43 48 30 0d 0a 4d 4f 44 45 31 09 45 ┆SFER DISK TO MEMORY CH0 MODE1 E┆
0x19040…19060 51 55 09 30 34 35 48 09 3b 54 52 41 4e 53 46 45 52 20 44 49 53 4b 20 54 4f 20 4d 45 4d 4f 52 59 ┆QU 045H ;TRANSFER DISK TO MEMORY┆
0x19060…19080 20 43 48 31 0d 0a 4d 4f 44 45 32 09 45 51 55 09 30 35 41 48 09 3b 54 52 41 4e 53 46 45 52 20 4d ┆ CH1 MODE2 EQU 05AH ;TRANSFER M┆
0x19080…190a0 45 4d 4f 52 59 20 54 4f 20 44 49 53 50 4c 41 59 20 43 48 32 28 41 55 54 4f 49 4e 49 54 49 41 4c ┆EMORY TO DISPLAY CH2(AUTOINITIAL┆
0x190a0…190c0 49 5a 45 29 0d 0a 4d 4f 44 45 33 20 20 20 45 51 55 20 20 20 20 20 30 34 42 48 20 20 20 20 3b 54 ┆IZE) MODE3 EQU 04BH ;T┆
0x190c0…190e0 52 41 4e 53 46 45 52 20 4d 45 4d 4f 52 59 20 54 4f 20 44 49 53 50 4c 41 59 20 28 4e 4f 54 20 55 ┆RANSFER MEMORY TO DISPLAY (NOT U┆
0x190e0…19100 53 45 44 29 0d 0a 43 4c 42 50 09 45 51 55 09 30 46 43 48 09 3b 43 4c 45 41 52 20 42 59 54 45 20 ┆SED) CLBP EQU 0FCH ;CLEAR BYTE ┆
0x19100…19120 43 4f 55 4e 54 45 52 20 52 45 47 49 53 54 45 52 0d 0a 44 4d 41 4d 53 4b 09 45 51 55 09 30 30 46 ┆COUNTER REGISTER DMAMSK EQU 00F┆
0x19120…19140 48 09 3b 53 45 54 20 41 4c 4c 20 44 4d 41 20 43 48 41 4e 4e 45 4c 53 20 4d 41 53 4b 42 49 54 53 ┆H ;SET ALL DMA CHANNELS MASKBITS┆
0x19140…19160 0d 0a 43 4c 52 30 09 45 51 55 09 30 30 30 48 09 3b 43 4c 45 41 52 20 43 48 30 20 4d 41 53 4b 20 ┆ CLR0 EQU 000H ;CLEAR CH0 MASK ┆
0x19160…19180 42 49 54 20 0d 0a 43 4c 52 31 09 45 51 55 09 30 30 31 48 09 3b 43 4c 45 41 52 20 43 48 31 20 4d ┆BIT CLR1 EQU 001H ;CLEAR CH1 M┆
0x19180…191a0 41 53 4b 20 42 49 54 20 0d 0a 43 4c 52 32 09 45 51 55 09 30 30 32 48 09 3b 43 4c 45 41 52 20 43 ┆ASK BIT CLR2 EQU 002H ;CLEAR C┆
0x191a0…191c0 48 32 20 4d 41 53 4b 20 42 49 54 0d 0a 46 55 4c 4d 53 4b 09 45 51 55 09 30 46 46 48 09 3b 46 55 ┆H2 MASK BIT FULMSK EQU 0FFH ;FU┆
0x191c0…191e0 4c 4c 20 4d 41 53 4b 20 52 45 47 49 53 54 45 52 0d 0a 53 4d 53 4b 09 45 51 55 09 30 46 41 48 09 ┆LL MASK REGISTER SMSK EQU 0FAH ┆
0x191e0…19200 3b 53 49 4e 47 4c 45 20 4d 41 53 4b 20 52 45 47 49 53 54 45 52 0d 0a 53 45 54 30 09 45 51 55 09 ┆;SINGLE MASK REGISTER SET0 EQU ┆
0x19200…19220 (10, 0, 2) 53 20 50 45 52 20 46 52 41 4d 45 0d 0a 50 41 52 41 4d 33 09 45 51 55 09 37 41 48 09 3b 55 4e 44 ┆S PER FRAME PARAM3 EQU 7AH ;UND┆
0x19220…19240 45 52 4c 49 4e 45 20 49 4e 20 50 4f 53 20 38 2d 31 30 20 50 4f 53 20 50 45 52 20 43 48 41 52 41 ┆ERLINE IN POS 8-10 POS PER CHARA┆
0x19240…19260 43 54 45 52 0d 0a 50 41 52 41 4d 34 09 45 51 55 09 34 44 48 09 3b 43 55 52 53 4f 52 20 46 4f 52 ┆CTER PARAM4 EQU 4DH ;CURSOR FOR┆
0x19260…19280 4d 41 54 20 42 4c 4f 43 4b 2c 20 42 4c 49 4e 4b 20 41 4e 44 20 52 45 56 45 52 53 45 20 56 49 44 ┆MAT BLOCK, BLINK AND REVERSE VID┆
0x19280…192a0 45 4f 0d 0a 3b 0d 0a 3b 0d 0a 09 4c 44 20 41 2c 43 52 54 52 45 53 09 3b 52 45 53 45 54 20 43 52 ┆EO ; ; LD A,CRTRES ;RESET CR┆
0x192a0…192c0 54 20 43 4f 4e 54 52 4f 4c 4c 45 52 20 20 20 0d 0a 09 4f 55 54 20 28 43 52 54 43 4f 4d 29 2c 41 ┆T CONTROLLER OUT (CRTCOM),A┆
0x192c0…192e0 09 3b 0d 0a 09 4c 44 20 41 2c 50 41 52 41 4d 31 09 3b 53 45 54 20 43 48 41 52 2f 52 4f 57 0d 0a ┆ ; LD A,PARAM1 ;SET CHAR/ROW ┆
0x192e0…19300 09 4f 55 54 20 28 43 52 54 44 41 54 29 2c 41 09 3b 0d 0a 20 20 09 4c 44 20 41 2c 50 41 52 41 4d ┆ OUT (CRTDAT),A ; LD A,PARAM┆
0x19300…19320 32 09 3b 53 45 54 20 52 4f 57 53 2f 46 52 41 4d 45 0d 0a 09 4f 55 54 20 28 43 52 54 44 41 54 29 ┆2 ;SET ROWS/FRAME OUT (CRTDAT)┆
0x19320…19340 2c 41 09 3b 0d 0a 09 4c 44 20 41 2c 50 41 52 41 4d 33 09 3b 0d 0a 09 4f 55 54 20 28 43 52 54 44 ┆,A ; LD A,PARAM3 ; OUT (CRTD┆
0x19340…19360 41 54 29 2c 41 09 3b 53 45 54 20 4c 49 4e 45 53 20 50 45 52 20 43 48 41 52 0d 0a 09 4c 44 20 41 ┆AT),A ;SET LINES PER CHAR LD A┆
0x19360…19380 2c 50 41 52 41 4d 34 09 3b 53 45 54 20 43 55 52 53 45 52 20 46 4f 52 4d 41 54 0d 0a 09 4f 55 54 ┆,PARAM4 ;SET CURSER FORMAT OUT┆
0x19380…193a0 20 28 43 52 54 44 41 54 29 2c 41 09 3b 0d 0a 09 4c 44 20 41 2c 4c 43 55 52 53 09 3b 4c 4f 41 44 ┆ (CRTDAT),A ; LD A,LCURS ;LOAD┆
0x193a0…193c0 20 43 55 52 53 4f 52 20 50 4f 53 49 54 49 4f 4e 0d 0a 09 4f 55 54 20 28 43 52 54 43 4f 4d 29 2c ┆ CURSOR POSITION OUT (CRTCOM),┆
0x193c0…193e0 41 09 3b 0d 0a 09 4c 44 20 41 2c 32 36 09 09 3b 41 3a 3d 32 36 20 3b 52 45 4d 4f 56 45 20 43 55 ┆A ; LD A,26 ;A:=26 ;REMOVE CU┆
0x193e0…19400 52 53 4f 52 0d 0a 09 4f 55 54 20 28 43 52 54 44 41 54 29 2c 41 09 3b 43 55 52 53 4f 52 20 58 20 ┆RSOR OUT (CRTDAT),A ;CURSOR X ┆
0x19400…19420 (10, 0, 3) 30 30 34 48 09 3b 53 45 54 20 43 48 30 20 4d 41 53 4b 20 42 49 54 0d 0a 53 45 54 31 09 45 51 55 ┆004H ;SET CH0 MASK BIT SET1 EQU┆
0x19420…19440 09 30 30 35 48 09 3b 53 45 54 20 43 48 31 20 4d 41 53 4b 20 42 49 54 0d 0a 3b 0d 0a 09 4c 44 20 ┆ 005H ;SET CH1 MASK BIT ; LD ┆
[…truncated at 200 lines…]