|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3200 (0xc80)
Names: »CRDRV.BAK«
└─⟦811637d18⟧ Bits:30005383 Microsoft COBOL-80 v4.01
└─ ⟦this⟧ »CRDRV.BAK«
0x000…020 09 54 49 54 4c 45 09 43 44 56 49 44 35 20 2d 20 43 52 54 20 44 52 49 56 45 52 20 46 4f 52 20 56 ┆ TITLE CDVID5 - CRT DRIVER FOR V┆ 0x020…040 49 44 45 4f 20 35 20 54 45 52 4d 49 4e 41 4c 0d 0a 09 0d 0a 0d 0a 09 45 4e 54 52 59 09 24 43 52 ┆IDEO 5 TERMINAL ENTRY $CR┆ 0x040…060 57 49 44 2c 24 43 52 4c 45 4e 2c 24 43 55 52 4f 4e 2c 24 43 55 52 4f 46 2c 24 43 55 52 42 4b 0d ┆WID,$CRLEN,$CURON,$CUROF,$CURBK ┆ 0x060…080 0a 09 45 4e 54 52 59 09 24 53 45 54 43 52 2c 24 45 52 41 53 45 2c 24 41 4c 41 52 4d 0d 0a 09 45 ┆ ENTRY $SETCR,$ERASE,$ALARM E┆ 0x080…0a0 4e 54 52 59 09 24 45 4f 4c 0d 0a 20 20 20 20 20 20 20 20 45 4e 54 52 59 09 24 48 49 4c 49 54 2c ┆NTRY $EOL ENTRY $HILIT,┆ 0x0a0…0c0 24 4c 4f 4c 49 54 0d 0a 09 45 4e 54 52 59 09 24 43 4c 49 53 54 2c 24 54 4c 49 53 54 2c 24 46 4c ┆$LOLIT ENTRY $CLIST,$TLIST,$FL┆ 0x0c0…0e0 49 53 54 0d 0a 0d 0a 09 45 58 54 09 24 4f 55 54 43 48 0d 0a 20 20 20 20 20 20 20 20 45 58 54 20 ┆IST EXT $OUTCH EXT ┆ 0x0e0…100 20 20 20 20 24 43 4d 50 4c 2c 24 43 4d 50 52 2c 24 4d 55 4c 44 45 2c 24 52 4f 57 43 4c 0d 0a 3b ┆ $CMPL,$CMPR,$MULDE,$ROWCL ;┆ 0x100…120 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 ┆********************************┆ 0x120…140 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 20 4b 45 59 42 4f 41 52 44 ┆******************** ; KEYBOARD┆ 0x140…160 20 43 4f 44 45 20 44 45 46 49 4e 49 54 49 4f 4e 53 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ CODE DEFINITIONS ;************┆ 0x160…180 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 ┆********************************┆ 0x180…1a0 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 0d 0a 24 43 4c 49 53 54 3a 09 09 09 09 3b 45 44 49 54 49 ┆******** ; $CLIST: ;EDITI┆ 0x1a0…1c0 4e 47 20 4b 45 59 20 44 45 46 49 4e 49 54 49 4f 4e 53 0d 0a 09 44 42 09 30 42 48 09 09 3b 4c 49 ┆NG KEY DEFINITIONS DB 0BH ;LI┆ 0x1c0…1e0 4e 45 20 44 45 4c 45 54 45 20 28 43 54 52 4c 2d 55 29 0d 0a 09 44 42 09 31 36 48 09 09 3b 43 48 ┆NE DELETE (CTRL-U) DB 16H ;CH┆ 0x1e0…200 41 52 20 44 45 4c 45 54 45 20 28 44 45 4c 2c 52 55 42 29 0d 0a 09 44 42 09 31 44 48 09 09 3b 46 ┆AR DELETE (DEL,RUB) DB 1DH ;F┆ 0x200…220 4f 52 57 41 52 44 20 53 50 41 43 45 20 28 43 54 52 4c 2d 4c 29 09 0d 0a 09 44 42 09 31 43 48 09 ┆ORWARD SPACE (CTRL-L) DB 1CH ┆ 0x220…240 09 3b 42 41 43 4b 20 53 50 41 43 45 20 28 43 54 52 4c 2d 48 29 0d 0a 09 44 42 09 32 42 48 09 09 ┆ ;BACK SPACE (CTRL-H) DB 2BH ┆ 0x240…260 3b 50 4c 55 53 20 53 49 47 4e 0d 0a 09 44 42 09 32 44 48 09 09 3b 4d 49 4e 55 53 20 53 49 47 4e ┆;PLUS SIGN DB 2DH ;MINUS SIGN┆ 0x260…280 0d 0a 09 44 42 09 30 30 48 09 09 3b 45 4e 44 20 4f 46 20 4c 49 53 54 0d 0a 0d 0a 24 54 4c 49 53 ┆ DB 00H ;END OF LIST $TLIS┆ 0x280…2a0 54 3a 09 09 09 09 3b 54 45 52 4d 49 4e 41 54 4f 52 20 4b 45 59 20 44 45 46 49 4e 49 54 49 4f 4e ┆T: ;TERMINATOR KEY DEFINITION┆ 0x2a0…2c0 53 0d 0a 09 44 42 09 30 32 48 09 09 3b 42 41 43 4b 54 41 42 20 28 43 54 4c 2d 42 29 0d 0a 09 44 ┆S DB 02H ;BACKTAB (CTL-B) D┆ 0x2c0…2e0 42 09 31 42 48 09 09 3b 45 53 43 41 50 45 20 4b 45 59 20 28 45 53 43 29 0d 0a 09 44 42 09 30 39 ┆B 1BH ;ESCAPE KEY (ESC) DB 09┆ 0x2e0…300 48 09 09 3b 46 4f 52 57 41 52 44 20 54 41 42 20 28 43 54 4c 2d 49 29 0d 0a 09 44 c2 09 30 44 c8 ┆H ;FORWARD TAB (CTL-I) D 0D ┆ 0x300…320 09 09 3b 43 41 52 52 49 41 47 c5 20 52 45 54 55 52 4e 0d 0a 09 44 42 09 30 41 48 09 09 3b 4c 49 ┆ ;CARRIAG RETURN DB 0AH ;LI┆ 0x320…340 4e 45 20 46 45 45 44 0d 0a 09 44 42 09 30 30 48 09 09 3b 45 4e 44 20 4f 46 20 4c 49 53 54 0d 0a ┆NE FEED DB 00H ;END OF LIST ┆ 0x340…360 0d 0a 24 46 4c 49 53 54 3a 09 09 09 09 3b 46 55 4e 43 54 49 4f 4e 20 4b 45 59 20 44 45 46 49 4e ┆ $FLIST: ;FUNCTION KEY DEFIN┆ 0x360…380 49 54 49 4f 4e 53 0d 0a 09 44 42 09 30 31 48 09 09 3b 43 54 4c 2d 41 0d 0a 09 44 42 09 30 33 48 ┆ITIONS DB 01H ;CTL-A DB 03H┆ 0x380…3a0 09 09 3b 43 54 4c 2d 43 0d 0a 09 44 42 09 31 38 48 09 09 3b 43 54 4c 2d 58 0d 0a 09 44 42 09 30 ┆ ;CTL-C DB 18H ;CTL-X DB 0┆ 0x3a0…3c0 30 48 0d 0a 0d 0a 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 ┆0H ;*************************┆ 0x3c0…3e0 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 20 54 ┆*************************** ; T┆ 0x3e0…400 45 52 4d 49 4e 41 4c 20 53 43 52 45 45 4e 20 44 49 4d 45 4e 53 49 4f 4e 53 0d 0a 3b 2a 2a 2a 2a ┆ERMINAL SCREEN DIMENSIONS ;****┆ 0x400…420 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 ┆********************************┆ 0x420…440 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 24 43 52 4c 45 4e 3a 09 44 42 09 ┆**************** ; $CRLEN: DB ┆ 0x440…460 32 35 44 09 3b 32 34 20 4c 49 4e 45 53 0d 0a 24 43 52 57 49 44 3a 09 44 42 09 37 39 44 09 3b 38 ┆25D ;24 LINES $CRWID: DB 79D ;8┆ 0x460…480 30 20 43 4f 4c 55 4d 4e 53 0d 0a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0 COLUMNS ;******************┆ 0x480…4a0 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 ┆********************************┆ 0x4a0…4c0 2a 2a 0d 0a 3b 20 54 45 52 4d 49 4e 41 4c 20 4f 55 54 50 55 54 20 43 4f 44 45 53 0d 0a 3b 2a 2a ┆** ; TERMINAL OUTPUT CODES ;**┆ 0x4c0…4e0 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 ┆********************************┆ 0x4e0…500 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 45 53 43 41 50 45 09 45 51 ┆****************** ; ESCAPE EQ┆ 0x500…520 55 09 31 42 48 0d 0a 42 53 50 41 43 45 09 45 51 55 09 30 38 48 0d 0a 42 45 4c 4c 09 45 51 55 09 ┆U 1BH BSPACE EQU 08H BELL EQU ┆ 0x520…540 30 37 48 0d 0a 43 4c 45 41 52 20 20 20 45 51 55 20 20 20 20 20 31 41 48 0d 0a 0d 0a 3b 09 4f 20 ┆07H CLEAR EQU 1AH ; O ┆ 0x540…560 55 20 54 20 50 20 55 20 54 20 20 20 46 20 55 20 4e 20 43 20 54 20 49 20 4f 20 4e 20 53 0d 0a 3b ┆U T P U T F U N C T I O N S ;┆ 0x560…580 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 ┆********************************┆ 0x580…5a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 20 53 45 54 20 43 55 52 53 ┆******************** ; SET CURS┆ 0x5a0…5c0 4f 52 20 50 4f 53 49 54 49 4f 4e 0d 0a 3b 09 5b 48 5d 20 3d 20 4c 49 4e 45 20 4e 55 4d 42 45 52 ┆OR POSITION ; ÆHÅ = LINE NUMBER┆ 0x5c0…5e0 0d 0a 3b 09 5b 4c 5d 20 3d 20 43 4f 4c 55 4d 4e 20 4e 55 4d 42 45 52 0d 0a 3b 2a 2a 2a 2a 2a 2a ┆ ; ÆLÅ = COLUMN NUMBER ;******┆ 0x5e0…600 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 ┆********************************┆ 0x600…620 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 24 53 45 54 43 52 3a 09 4d 56 49 09 41 ┆************** ; $SETCR: MVI A┆ 0x620…640 2c 45 53 43 41 50 45 0d 0a 09 43 41 4c 4c 09 24 4f 55 54 43 48 09 09 3b 53 45 4e 44 20 45 53 43 ┆,ESCAPE CALL $OUTCH ;SEND ESC┆ 0x640…660 0d 0a 09 4d 56 49 09 41 2c 22 3d 22 0d 0a 09 43 41 4c 4c 09 24 4f 55 54 43 48 09 09 3b 53 45 4e ┆ MVI A,"=" CALL $OUTCH ;SEN┆ 0x660…680 44 20 3d 0d 0a 09 4d 4f 56 09 41 2c 48 0d 0a 09 41 44 49 09 32 30 48 09 09 3b 41 44 4a 55 53 54 ┆D = MOV A,H ADI 20H ;ADJUST┆ 0x680…6a0 20 52 4f 57 20 4e 55 4d 42 45 52 0d 0a 09 43 41 4c 4c 09 24 4f 55 54 43 48 09 09 3b 53 45 4e 44 ┆ ROW NUMBER CALL $OUTCH ;SEND┆ 0x6a0…6c0 20 52 4f 57 20 23 0d 0a 09 4d 4f 56 09 41 2c 4c 09 09 3b 41 44 4a 55 53 54 20 43 4f 4c 55 4d 4e ┆ ROW # MOV A,L ;ADJUST COLUMN┆ 0x6c0…6e0 20 4e 55 4d 42 45 52 0d 0a 20 20 20 20 20 20 20 20 41 44 49 09 32 30 48 09 09 3b 41 44 4a 55 53 ┆ NUMBER ADI 20H ;ADJUS┆ 0x6e0…700 54 20 43 4f 4c 2e 20 23 0d 0a 09 4a 4d 50 09 24 4f 55 54 43 48 09 09 3b 53 45 4e 44 20 43 4f 4c ┆T COL. # JMP $OUTCH ;SEND COL┆ 0x700…720 2e 20 23 20 41 4e 44 20 52 45 54 55 52 4e 0d 0a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆. # AND RETURN ;*************┆ 0x720…740 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 ┆********************************┆ 0x740…760 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 20 42 41 43 4b 53 50 41 43 45 20 43 55 52 53 4f 52 0d 0a 3b 2a 2a ┆******* ; BACKSPACE CURSOR ;**┆ 0x760…780 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 ┆********************************┆ 0x780…7a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 24 43 55 52 42 4b 3a 09 4d ┆****************** ; $CURBK: M┆ 0x7a0…7c0 56 49 09 41 2c 42 53 50 41 43 45 09 3b 42 41 43 4b 53 50 41 43 45 0d 0a 09 4a 4d 50 09 24 4f 55 ┆VI A,BSPACE ;BACKSPACE JMP $OU┆ 0x7c0…7e0 54 43 48 0d 0a 0d 0a 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 ┆TCH ;************************┆ 0x7e0…800 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 0d 0a 3b 20 ┆**************************** ; ┆ 0x800…820 48 49 47 48 4c 49 47 48 54 20 56 49 44 45 4f 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆HIGHLIGHT VIDEO ;**************┆ 0x820…840 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 ┆********************************┆ 0x840…860 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 24 48 49 4c 49 54 3a 09 4d 56 49 09 41 2c 45 53 43 41 50 45 0d ┆****** ; $HILIT: MVI A,ESCAPE ┆ 0x860…880 0a 09 43 41 4c 4c 09 24 4f 55 54 43 48 0d 0a 09 4d 56 49 09 41 2c 22 41 22 0d 0a 09 4a 4d 50 09 ┆ CALL $OUTCH MVI A,"A" JMP ┆ 0x880…8a0 24 4f 55 54 43 48 0d 0a 24 4c 4f 4c 49 54 3a 09 4d 56 49 09 41 2c 45 53 43 41 50 45 0d 0a 09 43 ┆$OUTCH $LOLIT: MVI A,ESCAPE C┆ 0x8a0…8c0 41 4c 4c 09 24 4f 55 54 43 48 0d 0a 09 4d 56 49 09 41 2c 22 4e 22 0d 0a 09 4a 4d 50 09 24 4f 55 ┆ALL $OUTCH MVI A,"N" JMP $OU┆ 0x8c0…8e0 54 43 48 0d 0a 0d 0a 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 ┆TCH ;************************┆ 0x8e0…900 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 0d 0a 3b 20 ┆**************************** ; ┆ 0x900…920 45 52 41 53 45 20 54 4f 20 45 4e 44 20 4f 46 20 53 43 52 45 45 4e 0d 0a 3b 09 5b 48 4c 5d 20 3d ┆ERASE TO END OF SCREEN ; ÆHLÅ =┆ 0x920…940 20 53 45 51 55 45 4e 54 49 41 4c 20 43 55 52 53 4f 52 20 50 4f 53 49 54 49 4f 4e 0d 0a 3b 2a 2a ┆ SEQUENTIAL CURSOR POSITION ;**┆ 0x940…960 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 ┆********************************┆ 0x960…980 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 24 45 52 41 53 45 3a 09 4d ┆****************** ; $ERASE: M┆ 0x980…9a0 56 49 09 41 2c 45 53 43 41 50 45 0d 0a 09 43 41 4c 4c 09 24 4f 55 54 43 48 0d 0a 09 4d 56 49 09 ┆VI A,ESCAPE CALL $OUTCH MVI ┆ 0x9a0…9c0 41 2c 27 25 27 0d 0a 09 4a 4d 50 09 24 4f 55 54 43 48 0d 0a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆A,'%' JMP $OUTCH ;*********┆ 0x9c0…9e0 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 ┆********************************┆ 0x9e0…a00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 20 45 52 41 53 45 20 54 4f 20 45 4e 44 20 4f 46 20 4c ┆*********** ; ERASE TO END OF L┆ 0xa00…a20 49 4e 45 0d 0a 3b 09 5b 48 5d 20 3d 20 43 55 52 52 45 4e 54 20 52 4f 57 20 4e 55 4d 42 45 52 0d ┆INE ; ÆHÅ = CURRENT ROW NUMBER ┆ 0xa20…a40 0a 3b 09 5b 4c 5d 20 3d 20 43 55 52 52 45 4e 54 20 43 4f 4c 55 4d 4e 20 4e 55 4d 42 45 52 0d 0a ┆ ; ÆLÅ = CURRENT COLUMN NUMBER ┆ 0xa40…a60 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 ┆;*******************************┆ 0xa60…a80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 24 45 4f 4c 3a 09 ┆********************* ; $EOL: ┆ 0xa80…aa0 4d 56 49 09 41 2c 45 53 43 41 50 45 0d 0a 09 43 41 4c 4c 09 24 4f 55 54 43 48 0d 0a 09 4d 56 49 ┆MVI A,ESCAPE CALL $OUTCH MVI┆ 0xaa0…ac0 09 41 2c 27 2a 27 0d 0a 09 4a 4d 50 09 24 4f 55 54 43 48 0d 0a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a ┆ A,'*' JMP $OUTCH ;********┆ 0xac0…ae0 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 ┆********************************┆ 0xae0…b00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 20 53 4f 55 4e 44 20 41 55 44 49 42 4c 45 20 54 4f ┆************ ; SOUND AUDIBLE TO┆ 0xb00…b20 4e 45 0d 0a 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 ┆NE ;***************************┆ 0xb20…b40 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 0d 0a 24 41 ┆************************* ; $A┆ 0xb40…b60 4c 41 52 4d 3a 09 4d 56 49 09 41 2c 42 45 4c 4c 0d 0a 09 4a 4d 50 09 24 4f 55 54 43 48 09 09 3b ┆LARM: MVI A,BELL JMP $OUTCH ;┆ 0xb60…b80 53 45 4e 44 20 42 45 4c 4c 20 43 4f 44 45 20 41 4e 44 20 52 45 54 55 52 4e 0d 0a 0d 0a 3b 2a 2a ┆SEND BELL CODE AND RETURN ;**┆ 0xb80…ba0 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 ┆********************************┆ 0xba0…bc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 20 43 55 52 53 4f 52 20 4f 4e 2f ┆****************** ; CURSOR ON/┆ 0xbc0…be0 4f 46 46 0d 0a 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 ┆OFF ;**************************┆ 0xbe0…c00 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 0d 0a 24 ┆************************** ; $┆ 0xc00…c20 43 55 52 4f 4e 3a 09 0d 0a 24 43 55 52 4f 46 3a 0d 0a 09 52 45 54 09 09 3b 4e 4f 54 20 41 56 41 ┆CURON: $CUROF: RET ;NOT AVA┆ 0xc20…c40 49 4c 41 42 4c 45 20 4f 4e 20 41 44 4d 33 41 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ILABLE ON ADM3A ;**************┆ 0xc40…c60 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 ┆********************************┆ 0xc60…c80 2a 2a 2a 2a 2a 2a 0d 0a 09 09 09 0d 0a 09 45 4e 44 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆****** END ┆