|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 19840 (0x4d80)
Names: »OVLMGR3.I86«
└─⟦d6ef3842c⟧ Bits:30002678 Pascal MT+ Version 3.3 Rel 1.2
└─ ⟦this⟧ »OVLMGR3.I86«
0x0000…0020 0d 0a 20 20 20 20 20 20 20 20 4e 41 4d 45 20 20 20 20 4f 56 45 52 4c 41 59 5f 4d 41 4e 41 47 45 ┆ NAME OVERLAY_MANAGE┆ 0x0020…0040 52 0d 0a 20 20 20 20 20 20 20 20 41 53 53 55 4d 45 20 20 43 53 3a 43 4f 44 45 2c 44 53 3a 44 41 ┆R ASSUME CS:CODE,DS:DA┆ 0x0040…0060 54 41 0d 0a 20 20 20 20 20 20 20 20 0d 0a 44 41 54 41 20 20 20 20 53 45 47 4d 45 4e 54 20 50 55 ┆TA DATA SEGMENT PU┆ 0x0060…0080 42 4c 49 43 0d 0a 44 4d 41 50 54 52 20 20 44 57 20 20 20 20 20 20 3f 20 20 20 20 20 20 20 20 20 ┆BLIC DMAPTR DW ? ┆ 0x0080…00a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 44 4d 41 20 41 44 44 52 45 53 53 20 46 4f 52 20 49 ┆ ;DMA ADDRESS FOR I┆ 0x00a0…00c0 4e 50 55 54 20 58 46 45 52 0d 0a 50 52 4f 43 4e 41 4d 45 20 44 42 20 20 20 20 20 38 20 44 55 50 ┆NPUT XFER PROCNAME DB 8 DUP┆ 0x00c0…00e0 28 3f 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 4e 41 4d 45 20 4f 46 20 50 52 4f 43 ┆(?) ;NAME OF PROC┆ 0x00e0…0100 45 44 55 52 45 20 57 48 49 43 48 20 57 45 20 41 52 45 20 43 41 4c 4c 49 0d 0a 4e 47 0d 0a 4f 56 ┆EDURE WHICH WE ARE CALLI NG OV┆ 0x0100…0120 4c 47 4e 55 4d 20 44 42 20 20 20 20 20 20 3f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LGNUM DB ? ┆ 0x0120…0140 20 20 20 20 20 20 3b 4f 56 45 52 4c 41 59 20 4e 55 4d 42 45 52 0d 0a 50 52 4f 43 41 44 52 20 44 ┆ ;OVERLAY NUMBER PROCADR D┆ 0x0140…0160 57 20 20 20 20 20 20 3f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆W ? ;┆ 0x0160…0180 50 52 4f 43 45 44 55 52 45 20 41 44 44 52 45 53 53 0d 0a 4d 59 46 43 42 20 20 20 44 42 20 20 20 ┆PROCEDURE ADDRESS MYFCB DB ┆ 0x0180…01a0 20 20 20 33 36 20 44 55 50 28 3f 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 46 43 42 20 ┆ 36 DUP(?) ;FCB ┆ 0x01a0…01c0 46 4f 52 20 46 49 4c 45 20 4f 50 45 4e 49 4e 47 0d 0a 3b 0d 0a 3b 20 20 20 20 20 20 20 55 53 52 ┆FOR FILE OPENING ; ; USR┆ 0x01c0…01e0 52 45 54 20 53 54 41 43 4b 20 43 4f 4e 54 41 49 4e 53 20 52 45 54 55 52 4e 20 41 44 44 52 45 53 ┆RET STACK CONTAINS RETURN ADDRES┆ 0x01e0…0200 53 20 41 4e 44 0d 0a 3b 20 20 20 20 20 20 20 53 41 56 45 44 20 4f 56 45 52 4c 41 59 20 41 52 45 ┆S AND ; SAVED OVERLAY ARE┆ 0x0200…0220 41 20 41 44 44 52 45 53 53 0d 0a 3b 20 20 20 20 20 20 20 41 4e 44 20 4f 56 45 52 4c 41 59 20 47 ┆A ADDRESS ; AND OVERLAY G┆ 0x0220…0240 52 4f 55 50 20 4e 55 4d 42 45 52 20 20 20 20 20 20 20 20 3b 28 4d 41 58 20 4e 45 53 54 49 4e 47 ┆ROUP NUMBER ;(MAX NESTING┆ 0x0240…0260 20 32 35 0d 0a 20 20 20 20 20 20 20 20 44 42 20 20 20 20 20 20 31 32 39 20 44 55 50 28 3f 29 20 ┆ 25 DB 129 DUP(?) ┆ 0x0260…0280 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 53 41 56 45 44 20 52 45 54 55 52 4e 20 41 44 44 52 45 ┆ ;SAVED RETURN ADDRE┆ 0x0280…02a0 53 53 45 53 0d 0a 55 53 52 52 45 54 3a 0d 0a 4f 56 4c 41 52 45 41 20 44 57 20 20 20 20 20 20 3f ┆SSES USRRET: OVLAREA DW ?┆ 0x02a0…02c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 4c 4f 43 20 4f 46 20 4d ┆ ;LOC OF M┆ 0x02c0…02e0 4f 53 54 20 52 45 43 45 4e 54 20 4f 56 4c 20 41 52 45 41 0d 0a 44 41 54 41 20 20 20 20 45 4e 44 ┆OST RECENT OVL AREA DATA END┆ 0x02e0…0300 53 0d 0a 0d 0a 43 4f 44 45 20 20 20 20 53 45 47 4d 45 4e 54 20 50 55 42 4c 49 43 0d 0a 0d 0a 4d ┆S CODE SEGMENT PUBLIC M┆ 0x0300…0320 20 20 20 20 20 20 20 45 51 55 20 20 20 20 20 42 79 74 65 20 50 74 72 20 30 5b 42 58 5d 0d 0a 3b ┆ EQU Byte Ptr 0ÆBXÅ ;┆ 0x0320…0340 20 20 20 56 45 52 53 49 4f 4e 20 30 30 31 38 20 41 55 54 4f 4d 41 54 49 43 41 4c 4c 59 20 55 50 ┆ VERSION 0018 AUTOMATICALLY UP┆ 0x0340…0360 44 41 54 45 44 20 42 59 20 4d 4f 44 49 46 49 45 44 20 57 4f 52 44 4d 41 53 54 45 52 0d 0a 3b 2d ┆DATED BY MODIFIED WORDMASTER ;-┆ 0x0360…0380 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x0380…03a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d ┆------------------------------; ┆ 0x03a0…03c0 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ┆ 0x03c0…03e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x03e0…0400 20 3b 0d 0a 3b 20 20 20 20 20 20 20 4f 76 65 72 6c 61 79 20 4d 61 6e 61 67 65 6d 65 6e 74 20 4d ┆ ; ; Overlay Management M┆ 0x0400…0420 6f 64 75 6c 65 20 66 6f 72 20 50 61 73 63 61 6c 2f 4d 54 2b 20 35 2e 32 35 2e 32 20 20 20 20 20 ┆odule for Pascal/MT+ 5.25.2 ┆ 0x0420…0440 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ; ┆ 0x0440…0460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x0460…0480 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 43 72 65 61 74 65 64 3a 20 20 20 20 20 20 ┆ ; ; Created: ┆ 0x0480…04a0 20 20 4d 61 72 63 68 20 31 38 2c 20 31 39 38 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ March 18, 1981 ┆ 0x04a0…04c0 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 55 70 64 61 74 65 64 3a 20 20 20 ┆ ; ; Updated: ┆ 0x04c0…04e0 20 20 20 20 20 4d 61 72 63 68 20 32 30 2c 20 31 39 38 31 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ March 20, 1981 ┆ 0x04e0…0500 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ; ┆ 0x0500…0520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x0520…0540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 4e 6f 74 65 3a ┆ ; ; Note:┆ 0x0540…0560 20 74 6f 20 70 72 6f 70 65 72 6c 79 20 6f 70 65 72 61 74 65 20 74 68 69 73 20 76 65 72 73 69 6f ┆ to properly operate this versio┆ 0x0560…0580 6e 20 6f 66 20 74 68 65 20 4f 56 4c 4d 47 52 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 6d 6f ┆n of the OVLMGR ; ; mo┆ 0x0580…05a0 64 75 6c 65 20 72 65 71 75 69 72 65 73 20 61 20 40 49 4e 49 20 72 6f 75 74 69 6e 65 20 6f 66 20 ┆dule requires a @INI routine of ┆ 0x05a0…05c0 52 65 6c 65 61 73 65 20 3e 3d 20 35 2e 32 35 2e 31 20 20 20 20 20 3b 0d 0a 3b 2d 2d 2d 2d 2d 2d ┆Release >= 5.25.1 ; ;------┆ 0x05c0…05e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x05e0…0600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 3b 2b 2b 2b ┆-------------------------; ;+++┆ 0x0600…0620 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b ┆++++++++++++++++++++++++++++++++┆ 0x0620…0640 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 3b 0d 0a 3b ┆++++++++++++++++++++++++++++; ;┆ 0x0640…0660 20 20 20 20 20 20 20 65 71 75 61 74 65 73 20 66 6f 72 20 70 65 72 74 69 6e 61 6e 74 20 69 6e 66 ┆ equates for pertinant inf┆ 0x0660…0680 6f 72 6d 61 74 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ormation ;┆ 0x0680…06a0 0d 0a 3b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b ┆ ;+++++++++++++++++++++++++++++┆ 0x06a0…06c0 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b ┆++++++++++++++++++++++++++++++++┆ 0x06c0…06e0 2b 2b 3b 0d 0a 3b 0d 0a 3b 20 20 20 20 20 20 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 54 48 ┆++; ; ; THE FOLLOWING TH┆ 0x06e0…0700 52 45 45 20 45 51 55 41 54 45 53 20 44 45 53 43 52 49 42 45 20 44 41 54 41 20 50 4c 41 43 45 44 ┆REE EQUATES DESCRIBE DATA PLACED┆ 0x0700…0720 20 41 54 20 54 48 45 0d 0a 3b 20 20 20 20 20 20 20 42 45 47 49 4e 4e 49 4e 47 20 4f 46 20 54 48 ┆ AT THE ; BEGINNING OF TH┆ 0x0720…0740 45 20 2e 43 4d 44 20 46 49 4c 45 20 42 59 20 4c 49 4e 4b 2f 4d 54 2b 38 36 20 41 46 54 45 52 20 ┆E .CMD FILE BY LINK/MT+86 AFTER ┆ 0x0740…0760 54 48 45 0d 0a 3b 20 20 20 20 20 20 20 53 54 41 43 4b 20 50 4f 49 4e 54 45 52 20 49 4e 49 54 49 ┆THE ; STACK POINTER INITI┆ 0x0760…0780 41 4c 49 5a 41 54 49 4f 4e 20 43 4f 44 45 2e 0d 0a 3b 20 20 20 20 20 20 20 54 48 45 59 20 4d 55 ┆ALIZATION CODE. ; THEY MU┆ 0x0780…07a0 53 54 20 42 45 20 52 45 46 45 52 45 4e 43 45 44 20 57 49 54 48 20 41 20 43 53 20 4f 56 45 52 52 ┆ST BE REFERENCED WITH A CS OVERR┆ 0x07a0…07c0 49 44 45 0d 0a 3b 0d 0a 4e 43 42 50 54 52 20 20 45 51 55 20 20 20 20 20 30 30 30 43 48 0d 0a 6f ┆IDE ; NCBPTR EQU 000CH o┆ 0x07c0…07e0 76 6c 62 61 73 65 20 45 51 55 20 20 20 20 20 30 30 30 31 68 20 20 20 20 20 20 20 20 20 20 20 20 ┆vlbase EQU 0001h ┆ 0x07e0…0800 20 20 20 20 20 20 20 3b 62 61 73 65 20 70 72 65 66 69 78 20 66 6f 72 20 66 69 6c 65 20 6e 61 6d ┆ ;base prefix for file nam┆ 0x0800…0820 65 0d 0a 6e 61 6d 65 6c 65 6e 20 45 51 55 20 20 20 20 20 30 30 30 30 68 20 20 20 20 20 20 20 20 ┆e namelen EQU 0000h ┆ 0x0820…0840 20 20 20 20 20 20 20 20 20 20 20 3b 6c 65 6e 67 74 68 20 6f 66 20 6e 61 6d 65 73 20 28 36 20 6f ┆ ;length of names (6 o┆ 0x0840…0860 72 20 37 20 63 68 61 72 61 63 74 65 72 73 29 0d 0a 40 58 58 58 58 31 20 20 45 51 55 20 20 20 20 ┆r 7 characters) @XXXX1 EQU ┆ 0x0860…0880 20 30 30 30 45 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 50 54 52 20 54 4f ┆ 000EH ;PTR TO┆ 0x0880…08a0 20 42 41 53 45 20 4f 46 20 4f 56 4c 5f 41 52 45 41 5f 54 41 42 0d 0a 0d 0a 54 52 55 45 20 20 20 ┆ BASE OF OVL_AREA_TAB TRUE ┆ 0x08a0…08c0 20 45 51 55 20 20 20 20 20 2d 31 0d 0a 46 41 4c 53 45 20 20 20 45 51 55 20 20 20 20 20 30 20 20 ┆ EQU -1 FALSE EQU 0 ┆ 0x08c0…08e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 46 4f 52 20 43 4f 4e 44 49 54 ┆ ;FOR CONDIT┆ 0x08e0…0900 49 4f 4e 41 4c 20 41 53 53 45 4d 42 4c 59 0d 0a 52 45 4c 4f 41 44 20 20 45 51 55 20 20 20 20 20 ┆IONAL ASSEMBLY RELOAD EQU ┆ 0x0900…0920 4f 46 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 4e 4f 4e 2d 52 45 43 ┆OFF ;NON-REC┆ 0x0920…0940 55 52 53 49 56 45 20 4f 56 45 52 4c 41 59 20 43 41 4c 4c 49 4e 47 0d 0a 0d 0a 3b 2b 2b 2b 2b 2b ┆URSIVE OVERLAY CALLING ;+++++┆ 0x0940…0960 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b ┆++++++++++++++++++++++++++++++++┆ 0x0960…0980 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 3b 0d 0a 3b 20 20 ┆++++++++++++++++++++++++++; ; ┆ 0x0980…09a0 20 20 20 20 20 50 55 42 4c 49 43 20 41 4e 44 20 45 58 54 52 4e 20 53 59 4d 42 4f 4c 53 20 20 20 ┆ PUBLIC AND EXTRN SYMBOLS ┆ 0x09a0…09c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a ┆ ; ┆ 0x09c0…09e0 3b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b ┆;+++++++++++++++++++++++++++++++┆ 0x09e0…0a00 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b ┆++++++++++++++++++++++++++++++++┆ 0x0a00…0a20 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 50 55 42 4c 49 43 20 20 40 4f 56 4c 20 20 20 20 20 20 20 ┆; PUBLIC @OVL ┆ 0x0a20…0a40 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 4f 56 45 52 4c 41 59 20 4c 4f 41 44 45 52 0d 0a 20 20 ┆ ;OVERLAY LOADER ┆ 0x0a40…0a60 20 20 20 20 20 20 50 55 42 4c 49 43 20 20 40 4f 56 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUBLIC @OVS ┆ 0x0a60…0a80 20 20 20 20 20 20 3b 4f 56 45 52 4c 41 59 20 44 49 53 4b 20 53 45 54 0d 0a 0d 0a 3b 23 23 23 23 ┆ ;OVERLAY DISK SET ;####┆ 0x0a80…0aa0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ┆################################┆ 0x0aa0…0ac0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 3b 0d 0a 3b 20 ┆###########################; ; ┆ 0x0ac0…0ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x0ae0…0b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d ┆ ; ┆ 0x0b00…0b20 0a 3b 20 20 20 20 20 20 20 4d 41 49 4e 20 52 4f 55 54 49 4e 45 20 2d 20 40 4f 56 4c 20 20 20 20 ┆ ; MAIN ROUTINE - @OVL ┆ 0x0b20…0b40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x0b40…0b60 20 3b 0d 0a 3b 20 20 20 20 20 20 20 50 55 52 50 4f 53 45 20 20 20 20 20 20 2d 20 4c 4f 41 44 20 ┆ ; ; PURPOSE - LOAD ┆ 0x0b60…0b80 4f 56 45 52 4c 41 59 20 41 4e 44 20 43 41 4c 4c 20 50 52 4f 43 45 44 55 52 45 20 20 20 20 20 20 ┆OVERLAY AND CALL PROCEDURE ┆ 0x0b80…0ba0 20 20 20 20 3b 0d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; ;------------------------┆ 0x0ba0…0bc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x0bc0…0be0 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 3b 20 20 20 20 20 20 20 4f 4e 20 45 4e 54 52 59 20 54 4f 20 40 4f ┆-------; ; ON ENTRY TO @O┆ 0x0be0…0c00 56 4c 2c 20 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 20 50 4f 49 4e 54 53 20 54 4f 20 4f 56 45 ┆VL, RETURN ADDRESS POINTS TO OVE┆ 0x0c00…0c20 52 4c 41 59 20 43 41 4c 4c 20 3b 0d 0a 3b 20 20 20 20 20 20 20 44 41 54 41 20 42 4c 4f 43 4b 3a ┆RLAY CALL ; ; DATA BLOCK:┆ 0x0c20…0c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x0c40…0c60 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ; ┆ 0x0c60…0c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x0c80…0ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 2b 30 20 3a 20 ┆ ; ; +0 : ┆ 0x0ca0…0cc0 4f 56 45 52 4c 41 59 20 47 52 4f 55 50 20 4e 55 4d 42 45 52 20 2d 2d 2d 20 31 20 42 59 54 45 20 ┆OVERLAY GROUP NUMBER --- 1 BYTE ┆ 0x0cc0…0ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 2b 31 ┆ ; ; +1┆ 0x0ce0…0d00 20 3a 20 4f 56 45 52 4c 41 59 20 50 52 4f 43 45 44 55 52 45 20 4e 41 4d 45 2d 2d 20 38 20 42 59 ┆ : OVERLAY PROCEDURE NAME-- 8 BY┆ 0x0d00…0d20 54 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆TES ; ; ┆ 0x0d20…0d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x0d40…0d60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 23 23 23 ┆ ; ;###┆ 0x0d60…0d80 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ┆################################┆ 0x0d80…0da0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 3b 0d 0a 40 ┆############################; @┆ 0x0da0…0dc0 4f 56 4c 20 20 20 20 50 52 4f 43 20 20 20 20 4e 45 41 52 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 ┆OVL PROC NEAR POP┆ 0x0dc0…0de0 20 20 20 20 20 42 58 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 4c 2c 43 53 3a 4d ┆ BX MOV AL,CS:M┆ 0x0de0…0e00 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 79 74 65 20 50 74 72 20 4f 56 4c 47 4e ┆ MOV Byte Ptr OVLGN┆ 0x0e00…0e20 55 4d 2c 41 4c 0d 0a 20 20 20 20 20 20 20 20 49 4e 43 20 20 20 20 20 42 58 0d 0a 20 20 20 20 20 ┆UM,AL INC BX ┆ 0x0e20…0e40 20 20 20 4d 4f 56 20 20 20 20 20 43 48 2c 38 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 ┆ MOV CH,8 MOV ┆ 0x0e40…0e60 20 44 58 2c 28 4f 66 66 73 65 74 20 50 52 4f 43 4e 41 4d 45 29 0d 0a 4f 56 4c 31 3a 0d 0a 20 20 ┆ DX,(Offset PROCNAME) OVL1: ┆ 0x0e60…0e80 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 4c 2c 43 53 3a 4d 0d 0a 20 20 20 20 20 20 20 20 49 ┆ MOV AL,CS:M I┆ 0x0e80…0ea0 4e 43 20 20 20 20 20 42 58 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 53 49 2c 44 58 ┆NC BX MOV SI,DX┆ 0x0ea0…0ec0 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 59 54 45 20 50 54 52 20 5b 53 49 5d 2c ┆ MOV BYTE PTR ÆSIÅ,┆ 0x0ec0…0ee0 41 4c 0d 0a 20 20 20 20 20 20 20 20 49 4e 43 20 20 20 20 20 44 58 0d 0a 20 20 20 20 20 20 20 20 ┆AL INC DX ┆ 0x0ee0…0f00 44 45 43 20 20 20 20 20 43 48 0d 0a 20 20 20 20 20 20 20 20 4a 4e 5a 20 20 20 20 20 4f 56 4c 31 ┆DEC CH JNZ OVL1┆ 0x0f00…0f20 0d 0a 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 50 53 48 55 53 52 52 45 54 20 20 20 ┆ CALL PSHUSRRET ┆ 0x0f20…0f40 20 20 20 20 20 20 20 20 20 20 3b 53 41 56 45 20 55 53 45 52 27 53 20 52 45 54 55 52 4e 20 41 44 ┆ ;SAVE USER'S RETURN AD┆ 0x0f40…0f60 44 52 45 53 53 45 53 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 4c 4f 41 44 4f 56 4c ┆DRESSES CALL LOADOVL┆ 0x0f60…0f80 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 47 4f 20 4c 4f 41 44 20 49 54 20 28 49 46 20 ┆Y ;GO LOAD IT (IF ┆ 0x0f80…0fa0 4e 45 43 45 53 53 41 52 59 29 0d 0a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 46 49 4e 44 ┆NECESSARY) CALL FIND┆ 0x0fa0…0fc0 50 52 4f 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 47 4f 20 53 45 41 52 43 48 20 46 4f ┆PROC ;GO SEARCH FO┆ 0x0fc0…0fe0 52 20 41 4e 44 20 46 49 4e 44 20 50 52 4f 43 4e 41 4d 45 0d 0a 3b 44 4f 45 53 20 4e 4f 54 20 52 ┆R AND FIND PROCNAME ;DOES NOT R┆ 0x0fe0…1000 45 54 55 52 4e 20 49 46 20 50 52 4f 43 20 4e 4f 54 20 46 4f 55 4e 44 0d 0a 20 20 20 20 20 20 20 ┆ETURN IF PROC NOT FOUND ┆ 0x1000…1020 20 4d 4f 56 20 20 20 20 20 42 58 2c 28 4f 66 66 73 65 74 20 4f 55 52 52 45 54 29 3b 50 55 53 48 ┆ MOV BX,(Offset OURRET);PUSH┆ 0x1020…1040 20 4f 55 52 20 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 20 4f 4e 20 54 48 45 20 53 54 41 43 4b ┆ OUR RETURN ADDRESS ON THE STACK┆ 0x1040…1060 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 58 0d 0a 20 20 20 20 20 20 20 20 4d 4f ┆ PUSH BX MO┆ 0x1060…1080 56 20 20 20 20 20 42 58 2c 57 6f 72 64 20 50 74 72 20 50 52 4f 43 41 44 52 20 20 3b 47 45 54 20 ┆V BX,Word Ptr PROCADR ;GET ┆ 0x1080…10a0 41 44 44 52 45 53 53 20 4f 46 20 50 52 4f 43 20 57 49 54 48 49 4e 20 4f 56 45 52 4c 41 59 20 41 ┆ADDRESS OF PROC WITHIN OVERLAY A┆ 0x10a0…10c0 52 45 41 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 42 58 20 20 20 20 20 20 20 20 20 ┆REA JMP BX ┆ 0x10c0…10e0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 41 4e 44 20 4f 46 46 20 54 4f 20 55 53 45 52 20 52 4f ┆ ;AND OFF TO USER RO┆ 0x10e0…1100 55 54 49 4e 45 0d 0a 4f 55 52 52 45 54 3a 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 ┆UTINE OURRET: PUSH ┆ 0x1100…1120 41 58 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 58 20 20 20 20 20 20 3b 53 41 56 ┆AX PUSH BX ;SAV┆ 0x1120…1140 45 20 50 4f 53 53 49 42 4c 45 20 52 45 54 55 52 4e 20 56 41 4c 55 45 53 0d 0a 20 20 20 20 20 20 ┆E POSSIBLE RETURN VALUES ┆ 0x1140…1160 20 20 43 41 4c 4c 20 20 20 20 50 4f 50 55 53 52 52 45 54 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL POPUSRRET ┆ 0x1160…1180 3b 4d 41 59 20 52 45 4c 4f 41 44 20 4f 4c 44 20 4f 56 45 52 4c 41 59 20 47 52 4f 55 50 0d 0a 20 ┆;MAY RELOAD OLD OVERLAY GROUP ┆ 0x1180…11a0 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 58 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 ┆ POP BX POP ┆ 0x11a0…11c0 20 20 20 41 58 20 20 20 20 20 20 3b 47 45 54 20 50 4f 53 53 49 42 4c 45 20 52 45 54 55 52 4e 20 ┆ AX ;GET POSSIBLE RETURN ┆ 0x11c0…11e0 56 41 4c 55 45 53 20 42 41 43 4b 20 41 47 41 49 4e 0d 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 ┆VALUES BACK AGAIN JMP ┆ 0x11e0…1200 20 20 20 43 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 41 4e 44 20 ┆ CX ;AND ┆ 0x1200…1220 42 41 43 4b 20 54 4f 20 54 48 45 20 55 53 45 52 20 28 53 49 4d 50 4c 45 20 43 41 53 45 29 0d 0a ┆BACK TO THE USER (SIMPLE CASE) ┆ 0x1220…1240 40 4f 56 4c 20 20 20 20 45 4e 44 50 0d 0a 0d 0a 3b 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ┆@OVL ENDP ;###############┆ 0x1240…1260 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ┆################################┆ 0x1260…1280 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 3b 0d 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆################; ; ┆ 0x1280…12a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x12a0…12c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 4d 41 ┆ ; ; MA┆ 0x12c0…12e0 49 4e 20 52 4f 55 54 49 4e 45 20 2d 20 40 4f 56 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IN ROUTINE - @OVS ┆ 0x12e0…1300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 ┆ ; ; ┆ 0x1300…1320 20 50 55 52 50 4f 53 45 20 20 20 20 20 20 2d 20 53 45 54 20 44 52 49 56 45 20 4e 55 4d 42 45 52 ┆ PURPOSE - SET DRIVE NUMBER┆ 0x1320…1340 20 46 4f 52 20 41 20 53 50 45 43 49 46 49 43 20 4f 56 45 52 4c 41 59 20 20 3b 0d 0a 3b 20 20 20 ┆ FOR A SPECIFIC OVERLAY ; ; ┆ 0x1340…1360 20 20 20 20 49 4e 50 55 54 20 20 20 20 20 20 20 20 2d 20 4f 4e 20 53 54 41 43 4b 20 3a 20 4f 56 ┆ INPUT - ON STACK : OV┆ 0x1360…1380 4c 4e 55 4d 2c 44 52 49 56 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b ┆LNUM,DRIVE ; ;┆ 0x1380…13a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 56 4c 4e 55 4d 20 3a 20 ┆ OVLNUM : ┆ 0x13a0…13c0 31 2e 2e 35 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆1..50 ;┆ 0x13c0…13e0 0d 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 52 49 56 45 20 ┆ ; DRIVE ┆ 0x13e0…1400 20 20 3a 20 27 40 27 2e 2e 27 4f 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : '@'..'O' ┆ 0x1400…1420 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ; ┆ 0x1420…1440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1440…1460 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 50 41 53 43 41 4c 20 44 45 46 49 4e 49 54 49 4f ┆ ; ; PASCAL DEFINITIO┆ 0x1460…1480 4e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N: ┆ 0x1480…14a0 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ; ┆ 0x14a0…14c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x14c0…14e0 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 45 58 54 45 52 4e 41 4c 20 50 ┆ ; ; EXTERNAL P┆ 0x14e0…1500 52 4f 43 45 44 55 52 45 20 40 4f 56 53 28 4f 56 4e 55 4d 3a 49 4e 54 45 47 45 52 3b 20 44 52 4e ┆ROCEDURE @OVS(OVNUM:INTEGER; DRN┆ 0x1500…1520 55 4d 3a 43 48 41 52 29 3b 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UM:CHAR); ; ; ┆ 0x1520…1540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x1540…1560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0d 0a 3b 23 23 23 23 23 23 23 23 23 23 23 ┆ ; ;###########┆ 0x1560…1580 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ┆################################┆ 0x1580…15a0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 3b 0d 0a 40 4f 56 53 20 20 20 20 50 ┆####################; @OVS P┆ 0x15a0…15c0 52 4f 43 20 20 20 20 4e 45 41 52 0d 0a 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 42 58 20 ┆ROC NEAR POP BX ┆ 0x15c0…15e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 52 45 54 20 41 44 52 0d 0a 20 ┆ ;RET ADR ┆ 0x15e0…1600 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 43 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ POP CX ┆ 0x1600…1620 20 20 20 20 20 20 20 3b 44 52 49 56 45 20 4e 55 4d 42 45 52 0d 0a 20 20 20 20 20 20 20 20 50 4f ┆ ;DRIVE NUMBER PO┆ 0x1620…1640 50 20 20 20 20 20 44 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 4f ┆P DX ;O┆ 0x1640…1660 56 45 52 4c 41 59 20 4e 55 4d 42 45 52 0d 0a 20 20 20 20 20 20 20 20 50 55 53 48 20 20 20 20 42 ┆VERLAY NUMBER PUSH B┆ 0x1660…1680 58 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 4c 2c 43 4c 0d 0a 20 20 20 20 20 20 ┆X MOV AL,CL ┆ 0x1680…16a0 20 20 53 55 42 20 20 20 20 20 41 4c 2c 27 40 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SUB AL,'@' ┆ 0x16a0…16c0 20 20 3b 4d 41 4b 45 20 30 2e 2e 31 39 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 ┆ ;MAKE 0..19 MOV B┆ 0x16c0…16e0 58 2c 28 4f 66 66 73 65 74 20 44 52 49 56 45 54 41 42 29 0d 0a 09 44 45 43 09 44 58 09 09 09 3b ┆X,(Offset DRIVETAB) DEC DX ;┆ 0x16e0…1700 4d 41 4b 45 20 4f 56 4c 4e 55 4d 20 43 4f 4d 50 41 54 41 42 4c 45 0d 0a 20 20 20 20 20 20 20 20 ┆MAKE OVLNUM COMPATABLE ┆ 0x1700…1720 41 44 44 20 20 20 20 20 42 58 2c 44 58 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 43 ┆ADD BX,DX MOV C┆ 0x1720…1740 53 3a 4d 2c 41 4c 0d 0a 20 20 20 20 20 20 20 20 52 45 54 0d 0a 40 4f 56 53 20 20 20 20 45 4e 44 ┆S:M,AL RET @OVS END┆ 0x1740…1760 50 0d 0a 0d 0a 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆P ;==========================┆ 0x1760…1780 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆ 0x1780…17a0 3d 3d 3d 3d 3d 3b 0d 0a 3b 20 20 20 20 20 20 20 53 55 42 52 4f 55 54 49 4e 45 3a 20 43 41 4c 43 ┆=====; ; SUBROUTINE: CALC┆ 0x17a0…17c0 41 44 44 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ADDR ┆ 0x17c0…17e0 20 20 20 20 20 20 20 3b 0d 0a 3b 20 20 20 20 20 20 20 50 55 52 50 4f 53 45 20 20 20 3a 20 43 41 ┆ ; ; PURPOSE : CA┆ 0x17e0…1800 4c 43 20 4f 56 45 52 4c 41 59 20 41 52 45 41 20 41 44 44 52 45 53 53 20 42 41 53 45 44 20 4f 4e ┆LC OVERLAY AREA ADDRESS BASED ON┆ 0x1800…1820 20 4f 56 4c 47 4e 55 4d 20 20 3b 0d 0a 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ OVLGNUM ; ;==================┆ 0x1820…1840 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆ 0x1840…1860 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3b 0d 0a 43 41 4c 43 41 44 44 52 20 50 52 4f 43 20 20 20 ┆=============; CALCADDR PROC ┆ 0x1860…1880 4e 45 41 52 0d 0a 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 4c 2c 42 79 74 65 20 ┆NEAR MOV AL,Byte ┆ 0x1880…18a0 50 74 72 20 4f 56 4c 47 4e 55 4d 20 20 20 20 20 3b 47 45 54 20 52 45 51 55 45 53 54 45 44 20 47 ┆Ptr OVLGNUM ;GET REQUESTED G┆ 0x18a0…18c0 52 4f 55 50 20 4e 55 4d 42 45 52 0d 0a 20 20 20 20 20 20 20 20 44 45 43 20 20 20 20 20 41 4c 0d ┆ROUP NUMBER DEC AL ┆ 0x18c0…18e0 0a 20 20 20 20 20 20 20 20 52 43 52 20 20 20 20 20 41 4c 2c 31 0d 0a 20 20 20 20 20 20 20 20 52 ┆ RCR AL,1 R┆ 0x18e0…1900 43 52 20 20 20 20 20 41 4c 2c 31 0d 0a 20 20 20 20 20 20 20 20 52 43 52 20 20 20 20 20 41 4c 2c ┆CR AL,1 RCR AL,┆ 0x1900…1920 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 44 49 56 49 44 45 20 42 59 20 ┆1 ;DIVIDE BY ┆ […truncated at 200 lines…]