DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦890eeaec4⟧

    Length: 39936 (0x9c00)
    Names: »STARTUP.A86«

Derivation

└─⟦fa5b86546⟧ Bits:30002725 SW1609 Digital Research C - CCP/M - Oct 83
    └─ ⟦this⟧ »STARTUP.A86« 

Hex Dump

0x0000…0020 3b 20 54 68 69 73 20 73 74 61 72 74 75 70 20 66 69 6c 65 20 69 73 20 61 63 74 75 61 6c 6c 79 20   ┆; This startup file is actually ┆
0x0020…0040 73 65 76 65 72 61 6c 20 66 69 6c 65 73 20 65 64 69 74 65 64 20 74 6f 67 65 74 68 65 72 3a 0d 0a   ┆several files edited together:  ┆
0x0040…0060 3b 20 63 6c 65 61 72 2e 61 38 36 2c 20 73 74 61 72 74 75 70 2e 61 38 36 2c 20 6d 69 6e 69 74 73   ┆; clear.a86, startup.a86, minits┆
0x0060…0080 74 61 2e 61 38 36 2c 20 6d 69 6e 69 74 63 6d 64 2e 61 38 36 2c 20 6d 69 6e 69 74 72 65 6c 2e 61   ┆ta.a86, minitcmd.a86, minitrel.a┆
0x0080…00a0 38 36 2c 0d 0a 3b 20 6d 69 6e 69 74 68 65 61 2e 61 38 36 2c 20 6d 69 6e 69 74 65 72 72 2e 61 38   ┆86,  ; minithea.a86, miniterr.a8┆
0x00a0…00c0 36 2e 20 20 54 68 65 20 69 6e 63 6c 75 64 65 20 73 74 61 74 65 6d 65 6e 74 73 20 61 6e 64 20 70   ┆6.  The include statements and p┆
0x00c0…00e0 75 62 6c 69 63 2f 65 78 74 72 6e 0d 0a 3b 20 73 74 61 74 65 6d 65 6e 74 73 20 74 68 61 74 20 63   ┆ublic/extrn  ; statements that c┆
0x00e0…0100 6f 6e 6e 65 63 74 20 74 68 65 20 73 65 70 61 72 61 74 65 20 66 69 6c 65 73 20 68 61 76 65 20 62   ┆onnect the separate files have b┆
0x0100…0120 65 65 6e 20 63 6f 6d 6d 65 6e 74 65 64 20 6f 75 74 2e 0d 0a 3b 0d 0a 3b 20 54 68 65 20 66 69 72   ┆een commented out.  ;  ; The fir┆
0x0120…0140 73 74 20 66 69 6c 65 2c 20 63 6c 65 61 72 2e 61 38 36 2c 20 70 72 6f 76 69 64 65 73 20 74 68 65   ┆st file, clear.a86, provides the┆
0x0140…0160 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 74 68 61 74 20 6d 61 6b 65 20 6d 6f 64 65 6c 0d 0a 3b 20   ┆ definitions that make model  ; ┆
0x0160…0180 69 6e 64 65 70 65 6e 64 65 6e 74 20 63 6f 64 69 6e 67 20 70 6f 73 73 69 62 6c 65 2e 0d 0a 3b 0d   ┆independent coding possible.  ; ┆
0x0180…01a0 0a 43 33 32 09 65 71 75 09 30 09 3b 20 53 6d 61 6c 6c 20 63 6f 64 65 20 6d 6f 64 65 6c 20 28 75   ┆ C32 equ 0 ; Small code model (u┆
0x01a0…01c0 73 65 20 31 20 66 6f 72 20 62 69 67 20 6d 6f 64 65 6c 29 0d 0a 44 33 32 09 65 71 75 09 30 09 3b   ┆se 1 for big model)  D32 equ 0 ;┆
0x01c0…01e0 20 53 6d 61 6c 6c 20 64 61 74 61 20 6d 6f 64 65 6c 20 28 75 73 65 20 31 20 66 6f 72 20 62 69 67   ┆ Small data model (use 1 for big┆
0x01e0…0200 20 6d 6f 64 65 6c 29 0d 0a 09 6e 6f 6c 69 73 74 0d 0a 3b 0d 0a 3b 09 53 74 61 63 6b 20 46 72 61   ┆ model)   nolist  ;  ; Stack Fra┆
0x0200…0220 6d 65 20 4f 66 66 73 65 74 73 0d 0a 3b 0d 0a 20 20 20 20 20 69 66 09 43 33 32 09 3b 2d 2d 2d 2d   ┆me Offsets  ;       if C32 ;----┆
0x0220…0240 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   ┆--------------------------------┆
0x0240…0260 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 0d 0a 20 20 20 20   ┆--------------------------      ┆
0x0260…0280 20 69 66 09 44 33 32 09 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆ if D32 ;-----------------------┆
0x0280…02a0 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   ┆--------------------------------┆
0x02a0…02c0 2d 2d 2d 2d 2d 20 3b 0d 0a 41 52 47 31 09 65 71 75 09 38 09 3b 20 4f 66 66 73 65 74 20 66 72 6f   ┆----- ;  ARG1 equ 8 ; Offset fro┆
0x02c0…02e0 6d 20 5b 42 50 5d 20 6f 66 20 63 61 6c 6c 65 72 20 61 72 67 75 6d 65 6e 74 20 23 31 09 20 20 20   ┆m ÆBPÅ of caller argument #1    ┆
0x02e0…0300 20 3b 20 3b 0d 0a 52 41 73 65 67 09 65 71 75 09 36 09 3b 20 4f 66 66 73 65 74 20 66 72 6f 6d 20   ┆ ; ;  RAseg equ 6 ; Offset from ┆
0x0300…0320 5b 42 50 5d 20 6f 66 20 63 61 6c 6c 65 72 20 72 65 74 75 72 6e 20 61 64 64 72 65 73 73 20 73 65   ┆ÆBPÅ of caller return address se┆
0x0320…0340 67 6d 65 6e 74 20 3b 20 3b 0d 0a 52 41 6f 66 66 09 65 71 75 09 34 09 3b 20 4f 66 66 73 65 74 20   ┆gment ; ;  RAoff equ 4 ; Offset ┆
0x0340…0360 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 63 61 6c 6c 65 72 20 72 65 74 75 72 6e 20 61 64 64 72 65   ┆from ÆBPÅ of caller return addre┆
0x0360…0380 73 73 20 6f 66 66 73 65 74 20 20 3b 20 3b 0d 0a 53 41 56 45 44 53 09 65 71 75 09 32 09 3b 20 4f   ┆ss offset  ; ;  SAVEDS equ 2 ; O┆
0x0380…03a0 66 66 73 65 74 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 63 61 6c 6c 65 72 20 44 53 20 73 6c 6f   ┆ffset from ÆBPÅ of caller DS slo┆
0x03a0…03c0 74 09 09 20 20 20 20 3b 20 3b 0d 0a 20 20 20 65 6c 73 65 09 09 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆t      ; ;     else  ;----------┆
0x03c0…03e0 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   ┆--------------------------------┆
0x03e0…0400 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 20 3b 0d 0a 41 52 47 31 09 65 71 75 09 36   ┆-----------------; ;  ARG1 equ 6┆
0x0400…0420 09 3b 20 4f 66 66 73 65 74 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 63 61 6c 6c 65 72 20 61 72   ┆ ; Offset from ÆBPÅ of caller ar┆
0x0420…0440 67 75 6d 65 6e 74 20 23 31 09 20 20 20 20 3b 20 3b 0d 0a 52 41 73 65 67 09 65 71 75 09 34 09 3b   ┆gument #1     ; ;  RAseg equ 4 ;┆
0x0440…0460 20 4f 66 66 73 65 74 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 63 61 6c 6c 65 72 20 72 65 74 75   ┆ Offset from ÆBPÅ of caller retu┆
0x0460…0480 72 6e 20 61 64 64 72 65 73 73 20 73 65 67 6d 65 6e 74 20 3b 20 3b 0d 0a 52 41 6f 66 66 09 65 71   ┆rn address segment ; ;  RAoff eq┆
0x0480…04a0 75 09 32 09 3b 20 4f 66 66 73 65 74 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 63 61 6c 6c 65 72   ┆u 2 ; Offset from ÆBPÅ of caller┆
0x04a0…04c0 20 72 65 74 75 72 6e 20 61 64 64 72 65 73 73 20 6f 66 66 73 65 74 20 20 3b 20 3b 0d 0a 20 20 20   ┆ return address offset  ; ;     ┆
0x04c0…04e0 65 6e 64 69 66 09 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 2d   ┆endif ;-------------------------┆
0x04e0…0500 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   ┆--------------------------------┆
0x0500…0520 2d 2d 2d 20 3b 0d 0a 20 20 20 20 20 65 6c 73 65 09 3b 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d   ┆--- ;       else ; - - - - - - -┆
0x0520…0540 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d   ┆ - - - - - - - - - - - - - - - -┆
0x0540…0560 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 3b 0d 0a 20 20 20 20 20 69 66 09 44 33 32 09 3b 2d   ┆ - - - - - - - ;       if D32 ;-┆
0x0560…0580 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   ┆--------------------------------┆
0x0580…05a0 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 20 3b 0d 0a 41   ┆--------------------------- ;  A┆
0x05a0…05c0 52 47 31 09 65 71 75 09 36 09 3b 20 4f 66 66 73 65 74 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20   ┆RG1 equ 6 ; Offset from ÆBPÅ of ┆
0x05c0…05e0 63 61 6c 6c 65 72 20 61 72 67 75 6d 65 6e 74 20 23 31 09 20 20 20 20 3b 20 3b 0d 0a 52 41 6f 66   ┆caller argument #1     ; ;  RAof┆
0x05e0…0600 66 09 65 71 75 09 34 09 3b 20 4f 66 66 73 65 74 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 63 61   ┆f equ 4 ; Offset from ÆBPÅ of ca┆
0x0600…0620 6c 6c 65 72 20 72 65 74 75 72 6e 20 61 64 64 72 65 73 73 20 6f 66 66 73 65 74 20 20 3b 20 3b 0d   ┆ller return address offset  ; ; ┆
0x0620…0640 0a 53 41 56 45 44 53 09 65 71 75 09 32 09 3b 20 4f 66 66 73 65 74 20 66 72 6f 6d 20 5b 42 50 5d   ┆ SAVEDS equ 2 ; Offset from ÆBPÅ┆
0x0640…0660 20 6f 66 20 63 61 6c 6c 65 72 20 44 53 20 73 6c 6f 74 09 09 20 20 20 20 3b 20 3b 0d 0a 20 20 20   ┆ of caller DS slot      ; ;     ┆
0x0660…0680 20 20 65 6c 73 65 09 3b 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d   ┆  else ; - - - - - - - - - - - -┆
0x0680…06a0 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d   ┆ - - - - - - - - - - - - - - - -┆
0x06a0…06c0 20 2d 20 3b 20 3b 0d 0a 41 52 47 31 09 65 71 75 09 34 09 3b 20 4f 66 66 73 65 74 20 66 72 6f 6d   ┆ - ; ;  ARG1 equ 4 ; Offset from┆
0x06c0…06e0 20 5b 42 50 5d 20 6f 66 20 63 61 6c 6c 65 72 20 61 72 67 75 6d 65 6e 74 20 23 31 09 20 20 20 20   ┆ ÆBPÅ of caller argument #1     ┆
0x06e0…0700 3b 20 3b 0d 0a 52 41 6f 66 66 09 65 71 75 09 32 09 3b 20 4f 66 66 73 65 74 20 66 72 6f 6d 20 5b   ┆; ;  RAoff equ 2 ; Offset from Æ┆
0x0700…0720 42 50 5d 20 6f 66 20 63 61 6c 6c 65 72 20 72 65 74 75 72 6e 20 61 64 64 72 65 73 73 20 6f 66 66   ┆BPÅ of caller return address off┆
0x0720…0740 73 65 74 20 20 3b 20 3b 0d 0a 20 20 20 20 20 65 6e 64 69 66 09 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆set  ; ;       endif ;----------┆
0x0740…0760 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   ┆--------------------------------┆
0x0760…0780 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 20 3b 0d 0a 20 20 20 20 20 65 6e 64 69 66   ┆-----------------; ;       endif┆
0x0780…07a0 09 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 2d 2d 2d 2d 2d 2d   ┆ ;------------------------------┆
0x07a0…07c0 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   ┆--------------------------------┆
0x07c0…07e0 0d 0a 53 41 56 45 42 50 09 65 71 75 09 30 09 3b 20 4f 66 66 73 65 74 20 66 72 6f 6d 20 5b 42 50   ┆  SAVEBP equ 0 ; Offset from ÆBP┆
0x07e0…0800 5d 20 6f 66 20 63 61 6c 6c 65 72 20 42 50 20 73 6c 6f 74 0d 0a 53 41 56 45 53 50 09 65 71 75 09   ┆Å of caller BP slot  SAVESP equ ┆
0x0800…0820 2d 32 09 3b 20 4f 66 66 73 65 74 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 6d 79 20 6f 77 6e 20   ┆-2 ; Offset from ÆBPÅ of my own ┆
0x0820…0840 53 50 20 73 6c 6f 74 0d 0a 4f 56 52 41 73 65 67 09 65 71 75 09 2d 34 09 3b 20 4f 66 66 73 65 74   ┆SP slot  OVRAseg equ -4 ; Offset┆
0x0840…0860 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 6d 79 20 6f 77 6e 20 74 72 75 65 20 72 65 74 75 72 6e   ┆ from ÆBPÅ of my own true return┆
0x0860…0880 20 61 64 64 72 65 73 73 20 73 65 67 6d 65 6e 74 0d 0a 4f 56 52 41 6f 66 66 09 65 71 75 09 2d 36   ┆ address segment  OVRAoff equ -6┆
0x0880…08a0 09 3b 20 4f 66 66 73 65 74 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 6d 79 20 6f 77 6e 20 74 72   ┆ ; Offset from ÆBPÅ of my own tr┆
0x08a0…08c0 75 65 20 72 65 74 75 72 6e 20 61 64 64 72 65 73 73 20 6f 66 66 73 65 74 0d 0a 4f 56 49 44 6f 66   ┆ue return address offset  OVIDof┆
0x08c0…08e0 66 09 65 71 75 09 2d 38 09 3b 20 4f 66 66 73 65 74 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 6d   ┆f equ -8 ; Offset from ÆBPÅ of m┆
0x08e0…0900 79 20 6f 77 6e 20 6f 76 65 72 6c 61 79 20 69 6e 64 65 78 0d 0a 54 45 4d 50 38 09 65 71 75 09 2d   ┆y own overlay index  TEMP8 equ -┆
0x0900…0920 31 36 09 3b 20 4f 66 66 73 65 74 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 6d 79 20 38 20 62 79   ┆16 ; Offset from ÆBPÅ of my 8 by┆
0x0920…0940 74 65 20 74 65 6d 70 6f 72 61 72 79 0d 0a 44 49 53 50 4c 41 59 20 65 71 75 09 2d 31 38 09 3b 20   ┆te temporary  DISPLAY equ -18 ; ┆
0x0940…0960 4f 66 66 73 65 74 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 6d 79 20 6c 65 78 69 63 61 6c 20 66   ┆Offset from ÆBPÅ of my lexical f┆
0x0960…0980 61 74 68 65 72 20 66 72 61 6d 65 0d 0a 4f 4e 4c 49 4e 4b 09 65 71 75 09 2d 32 30 09 3b 20 4f 66   ┆ather frame  ONLINK equ -20 ; Of┆
0x0980…09a0 66 73 65 74 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 6f   ┆fset from ÆBPÅ of the previous o┆
0x09a0…09c0 6e 2d 66 72 61 6d 65 0d 0a 4f 4e 48 45 41 44 09 65 71 75 09 2d 32 32 09 3b 20 4f 66 66 73 65 74   ┆n-frame  ONHEAD equ -22 ; Offset┆
0x09c0…09e0 20 66 72 6f 6d 20 5b 42 50 5d 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 6f 6e 2d 75 6e 69 74 20   ┆ from ÆBPÅ of the first on-unit ┆
0x09e0…0a00 66 6f 72 20 74 68 69 73 20 66 72 61 6d 65 0d 0a 09 65 6a 65 63 74 0d 0a 3b 0d 0a 3b 20 2a 20 2a   ┆for this frame   eject  ;  ; * *┆
0x0a00…0a20 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a   ┆ * * * * * * * * * * * * * * * *┆
        […0x1…]
0x0a40…0a60 20 2a 20 2a 20 2a 20 2a 20 2a 0d 0a 3b 20 2a 09 09 09 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d   ┆ * * * * *  ; *               * ┆
0x0a60…0a80 0a 3b 20 2a 20 20 20 20 20 20 20 09 09 6d 20 6f 20 76 20 65 20 62 20 79 20 74 20 65 20 73 20 20   ┆ ; *         m o v e b y t e s  ┆
0x0a80…0aa0 20 2f 20 20 20 70 20 61 20 64 20 62 20 79 20 74 20 65 20 73 09 09 20 20 20 20 20 20 2a 0d 0a 3b   ┆ /   p a d b y t e s        *  ;┆
0x0aa0…0ac0 20 2a 09 09 09 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 3b 20 2a 20 2a 20 2a 20 2a 20 2a 20   ┆ *               *  ; * * * * * ┆
0x0ac0…0ae0 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20   ┆* * * * * * * * * * * * * * * * ┆
        […0x1…]
0x0b00…0b20 2a 20 2a 0d 0a 3b 0d 0a 63 6f 64 65 6d 61 63 72 6f 09 4d 4f 56 45 42 59 54 45 53 0d 0a 09 64 62   ┆* *  ;  codemacro MOVEBYTES   db┆
0x0b20…0b40 09 30 64 31 68 09 09 09 3b 09 73 68 72 09 63 78 2c 31 0d 0a 09 64 62 09 30 65 39 68 0d 0a 09 64   ┆ 0d1h   ; shr cx,1   db 0e9h   d┆
0x0b40…0b60 62 09 30 37 33 68 09 09 09 3b 09 6a 6e 63 09 65 76 65 6e 0d 0a 09 64 62 09 30 30 31 68 0d 0a 09   ┆b 073h   ; jnc even   db 001h   ┆
0x0b60…0b80 64 62 09 30 61 34 68 09 09 09 3b 09 6d 6f 76 73 62 0d 0a 09 64 62 09 30 66 33 68 09 09 09 3b 20   ┆db 0a4h   ; movsb   db 0f3h   ; ┆
0x0b80…0ba0 65 76 65 6e 3a 20 72 65 70 09 6d 6f 76 73 77 0d 0a 09 64 62 09 30 61 35 68 0d 0a 09 65 6e 64 6d   ┆even: rep movsw   db 0a5h   endm┆
0x0ba0…0bc0 0d 0a 3b 0d 0a 63 6f 64 65 6d 61 63 72 6f 09 50 41 44 42 59 54 45 53 0d 0a 09 64 62 09 30 64 31   ┆  ;  codemacro PADBYTES   db 0d1┆
0x0bc0…0be0 68 09 09 09 3b 09 73 68 72 09 63 78 2c 31 0d 0a 09 64 62 09 30 65 39 68 0d 0a 09 64 62 09 30 37   ┆h   ; shr cx,1   db 0e9h   db 07┆
0x0be0…0c00 33 68 09 09 09 3b 09 6a 6e 63 09 65 76 65 6e 0d 0a 09 64 62 09 30 30 31 68 0d 0a 09 64 62 09 30   ┆3h   ; jnc even   db 001h   db 0┆
0x0c00…0c20 61 61 68 09 09 09 3b 09 73 74 6f 73 62 0d 0a 09 64 62 09 30 66 33 68 09 09 09 3b 20 65 76 65 6e   ┆aah   ; stosb   db 0f3h   ; even┆
0x0c20…0c40 3a 09 72 65 70 09 73 74 6f 73 77 0d 0a 09 64 62 09 30 61 62 68 0d 0a 09 65 6e 64 6d 0d 0a 3b 0d   ┆: rep stosw   db 0abh   endm  ; ┆
0x0c40…0c60 0a 3b 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a   ┆ ; * * * * * * * * * * * * * * *┆
0x0c60…0c80 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a   ┆ * * * * * * * * * * * * * * * *┆
0x0c80…0ca0 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 0d 0a 3b 20 2a 09 09 09 09 09 09 09 09 09 20 20   ┆ * * * * * * * *  ; *           ┆
0x0ca0…0cc0 20 20 20 20 2a 0d 0a 3b 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 20   ┆    *  ; *                    p ┆
0x0cc0…0ce0 6f 20 70 20 72 20 65 20 67 20 73 20 20 20 2f 20 20 20 70 20 75 20 73 20 68 20 72 20 65 20 67 20   ┆o p r e g s   /   p u s h r e g ┆
0x0ce0…0d00 73 09 09 20 20 20 20 20 20 2a 0d 0a 3b 20 2a 09 09 09 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d   ┆s        *  ; *               * ┆
0x0d00…0d20 0a 3b 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a   ┆ ; * * * * * * * * * * * * * * *┆
0x0d20…0d40 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a   ┆ * * * * * * * * * * * * * * * *┆
0x0d40…0d60 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 0d 0a 3b 0d 0a 63 6f 64 65 6d 61 63 72 6f 09 50   ┆ * * * * * * * *  ;  codemacro P┆
0x0d60…0d80 4f 50 52 45 47 53 0d 0a 09 64 62 09 30 30 37 68 09 09 09 3b 09 70 6f 70 09 65 73 0d 0a 09 64 62   ┆OPREGS   db 007h   ; pop es   db┆
0x0d80…0da0 09 30 35 66 68 09 09 09 3b 09 70 6f 70 09 64 69 0d 0a 09 64 62 09 30 35 65 68 09 09 09 3b 09 70   ┆ 05fh   ; pop di   db 05eh   ; p┆
0x0da0…0dc0 6f 70 09 73 69 0d 0a 09 64 62 09 30 35 61 68 09 09 09 3b 09 70 6f 70 09 64 78 0d 0a 09 64 62 09   ┆op si   db 05ah   ; pop dx   db ┆
0x0dc0…0de0 30 35 39 68 09 09 09 3b 09 70 6f 70 09 63 78 0d 0a 09 64 62 09 30 35 62 68 09 09 09 3b 09 70 6f   ┆059h   ; pop cx   db 05bh   ; po┆
0x0de0…0e00 70 09 62 78 0d 0a 09 64 62 09 30 35 38 68 09 09 09 3b 09 70 6f 70 09 61 78 0d 0a 09 64 62 09 30   ┆p bx   db 058h   ; pop ax   db 0┆
0x0e00…0e20 35 64 68 09 09 09 3b 09 70 6f 70 09 62 70 0d 0a 09 64 62 09 30 31 66 68 09 09 09 3b 09 70 6f 70   ┆5dh   ; pop bp   db 01fh   ; pop┆
0x0e20…0e40 09 64 73 0d 0a 09 65 6e 64 6d 0d 0a 3b 0d 0a 63 6f 64 65 6d 61 63 72 6f 09 50 55 53 48 52 45 47   ┆ ds   endm  ;  codemacro PUSHREG┆
0x0e40…0e60 53 0d 0a 09 64 62 09 30 31 65 68 09 09 09 3b 09 70 75 73 68 09 64 73 0d 0a 09 64 62 09 30 35 35   ┆S   db 01eh   ; push ds   db 055┆
0x0e60…0e80 68 09 09 09 3b 09 70 75 73 68 09 62 70 0d 0a 09 64 62 09 30 38 62 68 09 09 09 3b 09 6d 6f 76 09   ┆h   ; push bp   db 08bh   ; mov ┆
0x0e80…0ea0 62 70 2c 73 70 0d 0a 09 64 62 09 30 65 63 68 0d 0a 09 64 62 09 30 35 30 68 09 09 09 3b 09 70 75   ┆bp,sp   db 0ech   db 050h   ; pu┆
0x0ea0…0ec0 73 68 09 61 78 0d 0a 09 64 62 09 30 35 33 68 09 09 09 3b 09 70 75 73 68 09 62 78 0d 0a 09 64 62   ┆sh ax   db 053h   ; push bx   db┆
0x0ec0…0ee0 09 30 35 31 68 09 09 09 3b 09 70 75 73 68 09 63 78 0d 0a 09 64 62 09 30 35 32 68 09 09 09 3b 09   ┆ 051h   ; push cx   db 052h   ; ┆
0x0ee0…0f00 70 75 73 68 09 64 78 0d 0a 09 64 62 09 30 35 36 68 09 09 09 3b 09 70 75 73 68 09 73 69 0d 0a 09   ┆push dx   db 056h   ; push si   ┆
0x0f00…0f20 64 62 09 30 35 37 68 09 09 09 3b 09 70 75 73 68 09 64 69 0d 0a 09 64 62 09 30 30 36 68 09 09 09   ┆db 057h   ; push di   db 006h   ┆
0x0f20…0f40 3b 09 70 75 73 68 09 65 73 0d 0a 09 65 6e 64 6d 0d 0a 09 65 6a 65 63 74 0d 0a 3b 0d 0a 3b 20 2a   ┆; push es   endm   eject  ;  ; *┆
0x0f40…0f60 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a   ┆ * * * * * * * * * * * * * * * *┆
        […0x1…]
0x0f80…0fa0 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 0d 0a 3b 20 2a 09 09 09 09 09 09 09 09 09 20 20 20 20 20 20   ┆ * * * * * *  ; *               ┆
0x0fa0…0fc0 2a 0d 0a 3b 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 20 6f 20 70 20 63   ┆*  ; *                   p o p c┆
0x0fc0…0fe0 20 20 20 2f 20 20 20 70 20 75 20 73 20 68 20 63 20 20 20 2f 20 20 20 72 20 65 20 74 20 63 09 09   ┆   /   p u s h c   /   r e t c  ┆
0x0fe0…1000 20 20 20 20 20 20 2a 0d 0a 3b 20 2a 09 09 09 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 3b 20   ┆      *  ; *               *  ; ┆
0x1000…1020 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20   ┆* * * * * * * * * * * * * * * * ┆
        […0x1…]
0x1040…1060 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 0d 0a 3b 0d 0a 20 20 20 20 20 69 66 09 43 33 32 09 3b 2d   ┆* * * * * * *  ;       if C32 ;-┆
0x1060…1080 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   ┆--------------------------------┆
0x1080…10a0 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 0d 0a 3b   ┆-----------------------------  ;┆
0x10a0…10c0 0d 0a 43 41 4c 4c 43 09 65 71 75 09 43 41 4c 4c 46 0d 0a 4a 4d 50 43 09 65 71 75 09 4a 4d 50 46   ┆  CALLC equ CALLF  JMPC equ JMPF┆
0x10c0…10e0 0d 0a 50 4f 50 43 09 65 71 75 09 50 4f 50 0d 0a 50 55 53 48 43 09 65 71 75 09 50 55 53 48 0d 0a   ┆  POPC equ POP  PUSHC equ PUSH  ┆
0x10e0…1100 52 45 54 43 09 65 71 75 09 52 45 54 46 0d 0a 3b 0d 0a 20 20 20 20 20 65 6c 73 65 0d 0a 3b 0d 0a   ┆RETC equ RETF  ;       else  ;  ┆
0x1100…1120 43 41 4c 4c 43 09 65 71 75 09 43 41 4c 4c 0d 0a 4a 4d 50 43 09 65 71 75 09 4a 4d 50 0d 0a 63 6f   ┆CALLC equ CALL  JMPC equ JMP  co┆
0x1120…1140 64 65 6d 61 63 72 6f 09 50 4f 50 43 09 64 73 74 3a 45 77 0d 0a 09 65 6e 64 6d 0d 0a 63 6f 64 65   ┆demacro POPC dst:Ew   endm  code┆
0x1140…1160 6d 61 63 72 6f 09 50 4f 50 43 09 64 73 74 3a 53 28 45 53 29 0d 0a 09 65 6e 64 6d 0d 0a 63 6f 64   ┆macro POPC dst:S(ES)   endm  cod┆
0x1160…1180 65 6d 61 63 72 6f 09 50 4f 50 43 09 64 73 74 3a 53 28 53 53 2c 44 53 29 0d 0a 09 65 6e 64 6d 0d   ┆emacro POPC dst:S(SS,DS)   endm ┆
0x1180…11a0 0a 63 6f 64 65 6d 61 63 72 6f 09 50 4f 50 43 09 64 73 74 3a 52 77 0d 0a 09 65 6e 64 6d 0d 0a 63   ┆ codemacro POPC dst:Rw   endm  c┆
0x11a0…11c0 6f 64 65 6d 61 63 72 6f 09 50 55 53 48 43 09 73 72 63 3a 45 77 0d 0a 09 65 6e 64 6d 0d 0a 63 6f   ┆odemacro PUSHC src:Ew   endm  co┆
0x11c0…11e0 64 65 6d 61 63 72 6f 09 50 55 53 48 43 09 73 72 63 3a 53 0d 0a 09 65 6e 64 6d 0d 0a 63 6f 64 65   ┆demacro PUSHC src:S   endm  code┆
0x11e0…1200 6d 61 63 72 6f 09 50 55 53 48 43 09 73 72 63 3a 52 77 0d 0a 09 65 6e 64 6d 0d 0a 52 45 54 43 09   ┆macro PUSHC src:Rw   endm  RETC ┆
0x1200…1220 65 71 75 09 52 45 54 0d 0a 3b 0d 0a 20 20 20 20 20 65 6e 64 69 66 09 3b 2d 2d 2d 2d 2d 2d 2d 2d   ┆equ RET  ;       endif ;--------┆
0x1220…1240 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   ┆--------------------------------┆
0x1240…1260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 3b 0d 0a 3b 20 2a 20 2a   ┆----------------------  ;  ; * *┆
0x1260…1280 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a   ┆ * * * * * * * * * * * * * * * *┆
        […0x1…]
0x12a0…12c0 20 2a 20 2a 20 2a 20 2a 20 2a 0d 0a 3b 20 2a 09 09 09 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d   ┆ * * * * *  ; *               * ┆
0x12c0…12e0 0a 3b 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 20 64 20 78 20 20 2f 20 20 6c   ┆ ; *                 l d x  /  l┆
0x12e0…1300 20 65 20 78 20 20 2f 20 20 70 20 6f 20 70 20 64 20 20 2f 20 20 70 20 75 20 73 20 68 20 64 09 09   ┆ e x  /  p o p d  /  p u s h d  ┆
0x1300…1320 20 20 20 20 20 20 2a 0d 0a 3b 20 2a 09 09 09 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 3b 20   ┆      *  ; *               *  ; ┆
0x1320…1340 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20   ┆* * * * * * * * * * * * * * * * ┆
        […0x1…]
0x1360…1380 2a 20 2a 20 2a 20 2a 20 2a 20 2a 20 2a 0d 0a 3b 0d 0a 20 20 20 20 20 69 66 09 44 33 32 09 3b 2d   ┆* * * * * * *  ;       if D32 ;-┆
0x1380…13a0 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   ┆--------------------------------┆
0x13a0…13c0 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 0d 0a 3b   ┆-----------------------------  ;┆
0x13c0…13e0 0d 0a 4c 44 58 09 65 71 75 09 4c 44 53 0d 0a 4c 45 58 09 65 71 75 09 4c 45 53 0d 0a 50 4f 50 44   ┆  LDX equ LDS  LEX equ LES  POPD┆
0x13e0…1400 09 65 71 75 09 50 4f 50 0d 0a 50 55 53 48 44 09 65 71 75 09 50 55 53 48 0d 0a 3b 0d 0a 20 20 20   ┆ equ POP  PUSHD equ PUSH  ;     ┆
0x1400…1420 20 20 65 6c 73 65 0d 0a 3b 0d 0a 4c 44 58 09 65 71 75 09 4d 4f 56 0d 0a 4c 45 58 09 65 71 75 09   ┆  else  ;  LDX equ MOV  LEX equ ┆
0x1420…1440 4d 4f 56 0d 0a 63 6f 64 65 6d 61 63 72 6f 09 50 4f 50 44 09 64 73 74 3a 45 77 0d 0a 09 65 6e 64   ┆MOV  codemacro POPD dst:Ew   end┆
0x1440…1460 6d 0d 0a 63 6f 64 65 6d 61 63 72 6f 09 50 4f 50 44 09 64 73 74 3a 53 28 45 53 29 0d 0a 09 65 6e   ┆m  codemacro POPD dst:S(ES)   en┆
0x1460…1480 64 6d 0d 0a 63 6f 64 65 6d 61 63 72 6f 09 50 4f 50 44 09 64 73 74 3a 53 28 53 53 2c 44 53 29 0d   ┆dm  codemacro POPD dst:S(SS,DS) ┆
0x1480…14a0 0a 09 65 6e 64 6d 0d 0a 63 6f 64 65 6d 61 63 72 6f 09 50 4f 50 44 09 64 73 74 3a 52 77 0d 0a 09   ┆  endm  codemacro POPD dst:Rw   ┆
0x14a0…14c0 65 6e 64 6d 0d 0a 63 6f 64 65 6d 61 63 72 6f 09 50 55 53 48 44 09 73 72 63 3a 45 77 0d 0a 09 65   ┆endm  codemacro PUSHD src:Ew   e┆
0x14c0…14e0 6e 64 6d 0d 0a 63 6f 64 65 6d 61 63 72 6f 09 50 55 53 48 44 09 73 72 63 3a 53 0d 0a 09 65 6e 64   ┆ndm  codemacro PUSHD src:S   end┆
0x14e0…1500 6d 0d 0a 63 6f 64 65 6d 61 63 72 6f 09 50 55 53 48 44 09 73 72 63 3a 52 77 0d 0a 09 65 6e 64 6d   ┆m  codemacro PUSHD src:Rw   endm┆
0x1500…1520 0d 0a 3b 0d 0a 20 20 20 20 20 65 6e 64 69 66 09 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆  ;       endif ;---------------┆
0x1520…1540 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   ┆--------------------------------┆
0x1540…1560 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 09 6c 69 73 74 0d 0a 09 4e 61 6d 65 09 09 09   ┆---------------   list   Name   ┆
0x1560…1580 27 53 54 41 52 54 55 50 27 0d 0a 09 54 69 74 6c 65 09 09 09 27 53 54 41 52 54 55 50 27 0d 0a 09   ┆'STARTUP'   Title   'STARTUP'   ┆
0x1580…15a0 50 61 67 65 73 69 7a 65 09 09 37 35 0d 0a 3b 0d 0a 3b 09 46 69 6c 65 20 6e 61 6d 65 3a 09 09 53   ┆Pagesize  75  ;  ; File name:  S┆
0x15a0…15c0 54 41 52 54 55 50 2e 41 38 36 0d 0a 3b 0d 0a 3b 09 4d 6f 64 75 6c 65 20 6e 61 6d 65 3a 09 09 53   ┆TARTUP.A86  ;  ; Module name:  S┆
0x15c0…15e0 54 41 52 54 55 50 0d 0a 3b 0d 0a 3b 09 45 6e 74 72 79 20 70 61 72 61 6d 65 74 65 72 73 3a 09 4e   ┆TARTUP  ;  ; Entry parameters: N┆
0x15e0…1600 6f 6e 65 2e 0d 0a 3b 0d 0a 3b 09 52 65 74 75 72 6e 20 76 61 6c 75 65 3a 09 09 4e 6f 6e 65 2e 0d   ┆one.  ;  ; Return value:  None. ┆
0x1600…1620 0a 3b 0d 0a 3b 09 45 6e 74 72 79 20 70 6f 69 6e 74 09 09 41 72 67 75 6d 65 6e 74 73 09 46 75 6e   ┆ ;  ; Entry point  Arguments Fun┆
0x1620…1640 63 74 69 6f 6e 0d 0a 3b 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 09 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 09   ┆ction  ; -----------  --------- ┆
0x1640…1660 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 3b 09 6d 2e 69 6e 69 74 09 09 09 4e 6f 6e 65 2e 09 09 49 6e 69 74   ┆--------  ; m.init   None.  Init┆
0x1660…1680 69 61 6c 69 7a 65 20 74 68 65 20 43 6f 6d 6d 6f 6e 20 4c 61 6e 67 75 61 67 65 0d 0a 3b 09 09 09   ┆ialize the Common Language  ;   ┆
0x1680…16a0 09 09 09 45 6e 76 69 72 6f 6e 6d 65 6e 74 20 61 6e 64 20 52 75 6e 74 69 6d 65 20 28 43 4c 45 41   ┆   Environment and Runtime (CLEA┆
0x16a0…16c0 52 29 2e 0d 0a 3b 0d 0a 3b 09 41 6c 67 6f 72 69 74 68 6d 3a 09 09 49 6e 69 74 69 61 6c 69 7a 65   ┆R).  ;  ; Algorithm:  Initialize┆
0x16c0…16e0 20 74 68 65 20 73 74 61 63 6b 2e 0d 0a 3b 09 09 09 09 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65   ┆ the stack.  ;    Initialize the┆
0x16e0…1700 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 2e 0d 0a 3b 09 09 09 09 52 65 6c 6f 63 61 74 65 20 74 68   ┆ command name.  ;    Relocate th┆
0x1700…1720 65 20 73 65 67 6d 65 6e 74 20 72 65 66 65 72 65 6e 63 65 73 20 69 66 20 4f 2f 53 20 68 61 73 20   ┆e segment references if O/S has ┆
0x1720…1740 6e 6f 74 2e 0d 0a 3b 09 09 09 09 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 68 65 61 70 2e 0d   ┆not.  ;    Initialize the heap. ┆
0x1740…1760 0a 3b 09 09 09 09 41 64 64 72 65 73 73 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 74 61 69 6c 20 61   ┆ ;    Address the command tail a┆
0x1760…1780 6e 64 20 63 61 6c 6c 20 5f 6d 61 69 6e 2e 0d 0a 3b 0d 0a 3b 09 53 6f 75 72 63 65 20 6c 61 6e 67   ┆nd call _main.  ;  ; Source lang┆
0x1780…17a0 75 61 67 65 3a 09 44 52 49 20 52 41 53 4d 2d 38 36 0d 0a 3b 0d 0a 3b 09 54 61 72 67 65 74 20 65   ┆uage: DRI RASM-86  ;  ; Target e┆
0x17a0…17c0 6e 76 69 72 6f 6e 6d 65 6e 74 3a 09 49 6e 74 65 6c 20 69 41 50 58 2d 38 36 20 70 72 6f 63 65 73   ┆nvironment: Intel iAPX-86 proces┆
0x17c0…17e0 73 6f 72 2e 0d 0a 3b 0d 0a 3b 09 41 75 74 68 6f 72 73 3a 09 09 4d 69 6b 65 20 4c 65 68 6d 61 6e   ┆sor.  ;  ; Authors:  Mike Lehman┆
0x17e0…1800 0d 0a 3b 09 09 09 09 48 65 72 62 65 72 74 20 59 75 65 6e 0d 0a 3b 09 09 09 09 42 69 6c 6c 20 48   ┆  ;    Herbert Yuen  ;    Bill H┆
0x1800…1820 61 79 67 6f 6f 64 0d 0a 3b 09 09 09 09 43 72 61 69 67 20 46 72 61 6e 6b 6c 69 6e 0d 0a 3b 0d 0a   ┆aygood  ;    Craig Franklin  ;  ┆
0x1820…1840 3b 09 44 61 74 65 3a 09 09 09 38 33 2d 41 70 72 2d 32 35 20 4d 6f 6e 64 61 79 0d 0a 3b 0d 0a 3b   ┆; Date:   83-Apr-25 Monday  ;  ;┆
0x1840…1860 09 52 65 76 69 73 69 6f 6e 20 68 69 73 74 6f 72 79 3a 0d 0a 3b 0d 0a 3b 09 57 68 65 6e 09 09 57   ┆ Revision history:  ;  ; When  W┆
0x1860…1880 68 6f 09 09 57 68 79 20 61 6e 64 20 77 68 61 74 0d 0a 3b 09 2d 2d 2d 2d 09 09 2d 2d 2d 09 09 2d   ┆ho  Why and what  ; ----  ---  -┆
0x1880…18a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 3b 09 38 33 2d 4a 75 6c 2d 32 30 09 48 61 79 67 6f 6f 64   ┆-----------  ; 83-Jul-20 Haygood┆
0x18a0…18c0 09 09 53 6d 61 6c 6c 20 6d 6f 64 65 6c 20 63 6f 6e 64 69 74 69 6f 6e 61 6c 20 61 73 73 65 6d 62   ┆  Small model conditional assemb┆
0x18c0…18e0 6c 79 20 63 6f 64 65 2e 0d 0a 3b 09 38 33 2d 4f 63 74 2d 30 39 09 43 72 61 69 67 20 46 72 61 6e   ┆ly code.  ; 83-Oct-09 Craig Fran┆
0x18e0…1900 6b 6c 69 6e 09 46 69 78 20 62 75 67 20 69 6e 20 6d 65 64 69 75 6d 20 6d 6f 64 65 6c 2e 0d 0a 3b   ┆klin Fix bug in medium model.  ;┆
0x1900…1920 09 38 33 2d 4f 63 74 2d 31 31 09 48 61 79 67 6f 6f 64 09 09 55 73 65 20 73 74 61 63 6b 2e 20 73   ┆ 83-Oct-11 Haygood  Use stack. s┆
[…truncated at 200 lines…]