v1.25/source/ASM.ASM

   1 ; Seattle Computer Products 8086 Assembler  version 2.44
   2 ;   by Tim Paterson
   3 ; Runs on the 8086 under MS-DOS
   4
   5 ;* * * * * * REVISION HISTORY * * * * * *
   6 ;
   7 ; 12/29/80  2.01  General release with 86-DOS version 0.34
   8 ; 02/22/81  2.10  Increased buffer size from 128 bytes to 1024 bytes
   9 ; 03/18/81  2.11  General cleanup and more documentation
  10 ; 03/24/81  2.20  Modify ESC handling for full 8087 operation
  11 ; 04/01/81  2.21  Fix date in HEX and PRN files; modify buffer handling
  12 ; 04/03/81  2.22  Fix 2.21 buffer handling
  13 ; 04/13/81  2.23  Re-open source file for listing to allow assembling CON:
  14 ; 04/28/81  2.24  Allow nested IFs
  15 ; 07/30/81  2.25  Add Intel string mnemonics; clean up a little
  16 ; 08/02/81  2.30  Re-write pass 2:
  17 ;                       Always report errors to console
  18 ;                       Exact byte lengths for HEX and PRN files
  19 ; 11/08/81  2.40  Add 8087 mnemonics; print full error messages;
  20 ;                 allow expressions with *, /, and ()
  21 ; 07/04/82  2.41  Fix Intel's 8087 "reverse-bit" bug; don't copy date
  22 ; 08/18/82  2.42  Increase stack from 80 to 256 (Damn! Overflowed again!)
  23 ; 01/05/83  2.43  Correct over-zealous optimization in 2.42
  24 ; 05/09/83  2.44  Add memory usage report
  25 ;
  26 ;* * * * * * * * * * * * * * * * * * * * *
  27
  28 SYMWID: EQU     5       ;5 symbols per line in dump
  29 FCB:    EQU     5CH
  30 BUFSIZ: EQU     1024    ;Source code buffer
  31 LSTBUFSIZ:EQU   BUFSIZ  ;List file buffer
  32 HEXBUFSIZ:EQU   70      ;Hex file buffer (26*2 + 5*2 + 3 + EXTRA)
  33 EOL:    EQU     13      ;ASCII carriage return
  34 OBJECT: EQU     100H    ;DEFAULT "PUT" ADDRESS
  35
  36 ;System call function codes
  37 PRINTMES: EQU   9
  38 OPEN:   EQU     15
  39 CLOSE:  EQU     16
  40 READ:   EQU     20
  41 SETDMA: EQU     26
  42 MAKE:   EQU     22
  43 BLKWRT: EQU     40
  44
  45 ;The following equates define some token values returned by GETSYM
  46 UNDEFID:EQU     0       ;Undefined identifier (including no nearby RET)
  47 CONST:  EQU     1       ;Constant (including $)
  48 REG:    EQU     2       ;8-bit register
  49 XREG:   EQU     3       ;16-bit register (except segment registers)
  50 SREG:   EQU     4       ;Segment register
  51 FREG:   EQU     6       ;8087 floating point register
  52
  53 ;Bits to build 8087 opcode table entries
  54 ONEREG: EQU     40H     ;Single ST register OK as operand
  55 NEEDOP: EQU     80H     ;Must have an operand
  56 INTEGER:EQU     20H     ;For integer operations
  57 REAL:   EQU     28H     ;For real operations
  58 EXTENDED EQU    10H     ;For Long integers or Temporary real
  59 MEMORY: EQU     18H     ;For general memory operations
  60 STACKOP:EQU     10H     ;Two register arithmetic with pop
  61 ARITH:  EQU     8       ;Non-pop arithmetic operations
  62
  63         ORG     100H
  64         PUT     100H
  65
  66         JMPS    BEGIN
  67
  68 HEADER: DB      13,10,'Seattle Computer Products 8086 Assembler Version 2.44'
  69         DB      13,10,'Copyright 1979-1983 by Seattle Computer Products, Inc.'
  70         DB      13,10,13,10,'$'
  71
  72 BEGIN:
  73         MOV     SP,STACK
  74         MOV     DX,HEADER
  75         MOV     AH,PRINTMES
  76         INT     33
  77         MOV     AL,[FCB+17]
  78         MOV     [SYMFLG],AL     ;Save symbol table request flag
  79         MOV     SI,FCB+9        ;Point to file extension
  80         LODB                    ;Get source drive letter
  81         CALL    CHKDSK          ;Valid drive?
  82         OR      AL,AL
  83         JZ      DEFAULT         ;If no extension, use existing drive spec
  84         MOV     [FCB],AL
  85 DEFAULT:
  86         LODB                    ;Get HEX file drive letter
  87         CMP     AL,'Z'          ;Suppress HEX file?
  88         JZ      L0000
  89         CALL    CHKDSK
  90 L0000:
  91         MOV     [HEXFCB],AL
  92         LODB                    ;Get PRN file drive letter
  93         MOV     AH,0            ;Signal no PRN file
  94         CMP     AL,'Z'          ;Suppress PRN file?
  95         JZ      NOPRN
  96         CMP     AL,'Y'          ;Print errors only on console?
  97         JZ      NOPRN
  98         MOV     AH,2
  99         CMP     AL,'X'          ;PRN file to console?
 100         JZ      NOPRN
 101         MOV     AH,4
 102         CMP     AL,'P'          ;PRN file to printer?
 103         JZ      NOPRN
 104         CALL    CHKDSK
 105         MOV     AH,80H
 106 NOPRN:
 107         MOV     [LSTFCB],AL
 108         MOV     [LSTDEV],AH     ;Flag device for list ouput
 109         MOV     SI,EXTEND
 110         MOV     DI,FCB+9
 111         MOVW
 112         MOVB                    ;Set extension to ASM
 113         MOVW                    ;Zero extent field
 114         MOV     DX,FCB
 115         MOV     AH,OPEN
 116         INT     33
 117         MOV     BX,NOFILE
 118         OR      AL,AL
 119         JZ      $+5
 120         JMP     PRERR
 121         MOV     DX,HEXFCB
 122         CALL    MAKFIL
 123         MOV     DX,LSTFCB
 124         CALL    MAKFIL
 125         XOR     AX,AX
 126         MOV     [FCB+12],AX     ;Zero CURRENT BLOCK field
 127         MOV     [FCB+32],AL     ;Zero Next Record field
 128         MOV     [FCB+14],BUFSIZ ;Set record size
 129         MOV     [BUFPT],SRCBUF  ;Initialize buffer pointer
 130         MOV     [CODE],START+1  ;POINTER TO NEXT BYTE OF INTERMEDIATE CODE
 131         MOV     [IY],START      ;POINTER TO CURRENT RELOCATION BYTE
 132         XOR     AX,AX
 133         MOV     [PC],AX         ;DEFAULT PROGRAM COUNTER
 134         MOV     [BASE],AX       ;POINTER TO ROOT OF ID TREE=NIL
 135         MOV     [RETPT],AX      ;Pointer to last RET record
 136         MOV     [IFFLG],AL      ;NOT WITHIN IF/ENDIF
 137         MOV     [CHKLAB],AL     ;LOOKUP ALL LABELS
 138         DEC     AX
 139         MOV     [LSTRET],AX     ;Location of last RET
 140         MOV     AX,[6]          ;HL=END OF MEMORY
 141         MOV     [HEAP],AX       ;BACK END OF SYMBOL TABLE SPACE
 142         MOV     [BCOUNT],4      ;CODE BYTES PER RELOCATION BYTE
 143
 144 ;Assemble each line of code
 145
 146 LOOP:
 147         CALL    NEXTCHR         ;Get first character on line
 148         CMP     AL,1AH
 149         JZ      ENDJ
 150         MOV     AL,-1           ;Flag that no tokens have been read yet
 151         MOV     [SYM],AL
 152         CALL    ASMLIN          ;Assemble the line
 153         MOV     AL,[SYM]
 154         CMP     AL,-1           ;Any tokens found on line?
 155         JNZ     L0002
 156         CALL    GETSYM          ;If no tokens read yet, read first one
 157 L0002:
 158         CMP     AL,';'
 159         JZ      ENDLN
 160         CMP     AL,EOL
 161         JZ      ENDLN
 162         MOV     AL,14H          ;Garbage at end of line error
 163         JP      ENDLIN
 164 ENDJ:   JMP     END
 165
 166 ENDLN:
 167         XOR     AL,AL           ;Flag no errors on line
 168 ENDLIN:
 169 ;AL = error code for line. Stack depth unknown
 170         MOV     SP,STACK
 171         CALL    NEXLIN
 172         JP      LOOP
 173
 174 NEXLIN:
 175         MOV     CH,0C0H         ;Put end of line marker and error code (AL)
 176         CALL    PUTCD
 177         CALL    GEN1
 178         MOV     AL,[CHR]
 179 GETEOL:
 180         CMP     AL,10
 181         JZ      RET
 182         CMP     AL,1AH
 183         JZ      ENDJ
 184         CALL    NEXTCHR         ;Scan over comments for linefeed
 185         JP      GETEOL
 186
 187 ABORT:
 188         MOV     BX,NOMEM
 189 PRERR:
 190         MOV     DX,BX
 191         MOV     AH,PRINTMES
 192         INT     33
 193         INT     32
 194
 195 MAKFIL:
 196         MOV     SI,DX
 197         LODB                    ;Get drive select byte
 198         CMP     AL,20H          ;If not valid, don't make file
 199         JNC     RET
 200         MOV     CX,4
 201         MOV     DI,SI
 202         MOV     SI,FCB+1
 203         REP
 204         MOVW                    ;Copy source file name
 205         MOV     AH,MAKE
 206         INT     33
 207         MOV     [DI-9+14],1     ;Set record length to 1 byte
 208         MOV     BX,NOSPAC
 209         OR      AL,AL           ;Success?
 210         JNZ     PRERR
 211         RET
 212
 213 CHKDSK:
 214         SUB     AL,' '          ;If not present, set zero flag
 215         JZ      RET
 216         SUB     AL,20H
 217         JZ      DSKERR          ;Must be in range A-O
 218         CMP     AL,'P'-'@'
 219         JC      RET
 220 DSKERR:
 221         MOV     BX,BADDSK
 222         JP      PRERR
 223
 224 ERROR:
 225         MOV     AL,CL
 226         JMP     ENDLIN
 227
 228 NEXTCHR:
 229         MOV     SI,[BUFPT]
 230         CMP     SI,SRCBUF
 231         JNZ     GETCH
 232 ;Buffer empty so refill it
 233         PUSH    DX
 234         PUSH    AX              ;AH must be saved
 235         MOV     DX,SI
 236         MOV     AH,SETDMA
 237         INT     33
 238         MOV     DX,FCB
 239         MOV     AH,READ
 240         INT     33
 241         XCHG    AX,DX           ;Put error code in DL
 242         POP     AX              ;Restore AH
 243         MOV     AL,DL           ;Error code back in AL
 244         POP     DX
 245         CMP     AL,1
 246         MOV     AL,1AH          ;Possibly signal End of File
 247         JZ      NOMOD           ;If nothing read
 248 GETCH:
 249         LODB
 250         CMP     SI,SRCBUF+BUFSIZ
 251         JNZ     NOMOD
 252         MOV     SI,SRCBUF
 253 NOMOD:
 254         MOV     [BUFPT],SI
 255         MOV     [CHR],AL
 256         RET
 257
 258
 259 MROPS:
 260
 261 ; Get two operands and check for certain types, according to flag byte
 262 ; in CL. OP code in CH. Returns only if immediate operation.
 263
 264         PUSH    CX              ;Save type flags
 265         CALL    GETOP
 266         PUSH    DX              ;Save first operand
 267         CALL    GETOP2
 268         POP     BX              ;First op in BX, second op in DX
 269         MOV     AL,SREG         ;Check for a segment register
 270         CMP     AL,BH
 271         JZ      SEGCHK
 272         CMP     AL,DH
 273         JZ      SEGCHK
 274         MOV     AL,CONST        ;Check if the first operand is immediate
 275         MOV     CL,26
 276         CMP     AL,BH
 277         JZ      ERROR           ;Error if so
 278         POP     CX              ;Restore type flags
 279         CMP     AL,DH           ;If second operand is immediate, then done
 280         JZ      RET
 281         MOV     AL,UNDEFID      ;Check for memory reference
 282         CMP     AL,BH
 283         JZ      STORE           ;Is destination memory?
 284         CMP     AL,DH
 285         JZ      LOAD            ;Is source memory?
 286         TEST    CL,1            ;Check if register-to-register operation OK
 287         MOV     CL,27
 288         JZ      ERROR
 289         MOV     AL,DH
 290         CMP     AL,BH           ;Registers must be of same length
 291 RR:
 292         MOV     CL,22
 293         JNZ     ERROR
 294 RR1:
 295         AND     AL,1            ;Get register length (1=16 bits)
 296         OR      AL,CH           ;Or in to OP code
 297         CALL    PUT             ;And write it
 298         POP     CX              ;Dump return address
 299         MOV     AL,BL
 300         ADD     AL,AL           ;Rotate register number into middle position
 301         ADD     AL,AL
 302         ADD     AL,AL
 303         OR      AL,0C0H         ;Set register-to-register mode
 304         OR      AL,DL           ;Combine with other register number
 305         JMP     PUT
 306
 307 SEGCHK:
 308 ;Come here if at least one operand is a segment register
 309         POP     CX              ;Restore flags
 310         TEST    CL,8            ;Check if segment register OK
 311         MOV     CL,22
 312         JZ      ERR1
 313         MOV     CX,8E03H        ;Segment register move OP code
 314         MOV     AL,UNDEFID
 315         CMP     AL,DH           ;Check if source is memory
 316         JZ      LOAD
 317         CMP     AL,BH           ;Check if destination is memory
 318         JZ      STORE
 319         MOV     AL,XREG
 320         SUB     AL,DH           ;Check if source is 16-bit register
 321         JZ      RR              ;If so, AL must be zero
 322         MOV     CH,8CH          ;Change direction
 323         XCHG    DX,BX           ;Flip which operand is first and second
 324         MOV     AL,XREG
 325         SUB     AL,DH           ;Let RR perform finish the test
 326         JP      RR
 327
 328 STORE:
 329         TEST    CL,004H         ;Check if storing is OK
 330         JNZ     STERR
 331         XCHG    DX,BX           ;If so, flip operands
 332         AND     CH,0FDH         ;   and zero direction bit
 333 LOAD:
 334         MOV     DH,25
 335         CMP     AL,BH           ;Check if memory-to-memory
 336         JZ      MRERR
 337         MOV     AL,BH
 338         CMP     AL,REG          ;Check if 8-bit operation
 339         JNZ     XRG
 340         MOV     DH,22
 341         TEST    CL,1            ;See if 8-bit operation is OK
 342         JZ      MRERR
 343 XRG:
 344         MOV     AL,DL
 345         SUB     AL,6            ;Check for R/M mode 6 and register 0
 346         OR      AL,BL           ;   meaning direct load/store of accumulator
 347         JNZ     NOTAC
 348         TEST    CL,8            ;See if direct load/store of accumulator
 349         JZ      NOTAC           ;   means anything in this case
 350 ; Process direct load/store of accumulator
 351         MOV     AL,CH
 352         AND     AL,2            ;Preserve direction bit only
 353         XOR     AL,2            ;   but flip it
 354         OR      AL,0A0H         ;Combine with OP code
 355         MOV     CH,AL
 356         MOV     AL,BH           ;Check byte/word operation
 357         AND     AL,1
 358         OR      AL,CH
 359         POP     CX              ;Dump return address
 360         JMP     PUTADD          ;Write the address
 361
 362 NOTAC:
 363         MOV     AL,BH
 364         AND     AL,1            ;Get byte/word bit
 365         AND     AL,CL           ;But don't use it in word-only operations
 366         OR      AL,CH           ;Combine with OP code
 367         CALL    PUT
 368         MOV     AL,BL
 369         ADD     AL,AL           ;Rotate to middle position
 370         ADD     AL,AL
 371         ADD     AL,AL
 372         OR      AL,DL           ;Combine register field
 373         POP     CX              ;Dump return address
 374         JMP     PUTADD          ;Write the address
 375
 376 STERR:
 377         MOV     DH,29
 378 MRERR:
 379         MOV     CL,DH
 380
 381 ERR1:   JMP     ERROR
 382
 383 GETOP2:
 384 ;Get the second operand: look for a comma and drop into GETOP
 385         MOV     AL,[SYM]
 386         CMP     AL,','
 387         MOV     CL,21
 388         JNZ     ERR1
 389
 390
 391 GETOP:
 392
 393 ; Get one operand. Operand may be a memory reference in brackets, a register,
 394 ; or a constant. If a flag (such as "B" for byte operation) is encountered,
 395 ; it is noted and processing continues to find the operand.
 396 ;
 397 ; On exit, AL (=DH) has the type of operand. Other information depends
 398 ; on the actual operand:
 399 ;
 400 ; AL=DH=0  Memory Reference.  DL has the address mode properly prepared in
 401 ; the 8086 R/M format (middle bits zero). The constant part of the address
 402 ; is in ADDR. If an undefined label needs to be added to this, a pointer to
 403 ; its information fields is in ALABEL, otherwise ALABEL is zero.
 404 ;
 405 ; AL=DH=1  Value. The constant part is in DATA. If an undefined label needs
 406 ; to be added to this, a pointer to its information fields is in DLABEL,
 407 ; otherwise DLABEL is zero. "$" and "RET" are in this class.
 408 ;
 409 ; AL=DH=2  8-bit Register. DL has the register number.
 410 ;
 411 ; AL=DH=3  16-bit Register. DL has the register number.
 412 ;
 413 ; AL=DH=4  Segment Register. DL has the register number.
 414
 415         CALL    GETSYM
 416 GETOP1:
 417 ;Enter here if we don't need a GETSYM first
 418         CMP     AL,'['          ;Memory reference?
 419         JZ      MEM
 420         CMP     AL,5            ;Flag ("B", "W", etc.)?
 421         JZ      FLG
 422         CMP     AL,REG          ;8-Bit register?
 423         JZ      NREG
 424         CMP     AL,XREG         ;16-Bit register?
 425         JZ      NREG
 426         CMP     AL,SREG         ;Segment register?
 427         JZ      NREG
 428 VAL:                            ;Must be immediate
 429         XOR     AL,AL           ;No addressing modes allowed
 430 VAL1:
 431         CALL    GETVAL
 432         MOV     AX,[CON]        ;Defined part
 433         MOV     [DATA],AX
 434         MOV     AX,[UNDEF]      ;Undefined part
 435         MOV     [DLABEL],AX
 436         MOV     DL,CH
 437         MOV     DH,CONST
 438         MOV     AL,DH
 439         RET
 440 NREG:
 441         PUSH    DX
 442         CALL    GETSYM
 443         POP     DX
 444         MOV     AL,DH
 445         RET
 446 MEM:
 447         CALL    GETSYM
 448         MOV     AL,1
 449         CALL    GETVAL
 450         MOV     AL,[SYM]
 451         CMP     AL,']'
 452         MOV     CL,24
 453         JNZ     ERR1
 454         CALL    GETSYM
 455         MOV     BX,[CON]
 456         MOV     [ADDR],BX
 457         MOV     BX,[UNDEF]
 458         MOV     [ALABEL],BX
 459         MOV     DL,CH
 460         MOV     DH,UNDEFID
 461         MOV     AL,DH
 462         RET
 463 FLG:
 464         CMP     DL,[MAXFLG]     ;Invalid flag for this operation?
 465         MOV     CL,27H
 466         JG      ERR1
 467         CALL    GETSYM
 468         CMP     AL,','
 469         JZ      GETOP
 470         JP      GETOP1
 471
 472
 473 GETVAL:
 474
 475 ; Expression analyzer. On entry, if AL=0 then do not allow base or index
 476 ; registers. If AL=1, we are analyzing a memory reference, so allow base
 477 ; and index registers, and compute addressing mode when done. The constant
 478 ; part of the expression will be found in CON. If an undefined label is to
 479 ; be added to this, a pointer to its information fields will be found in
 480 ; UNDEF.
 481
 482         MOV     AH,AL           ;Flag is kept in AH
 483         MOV     [UNDEF],0
 484         MOV     AL,[SYM]
 485         CALL    EXPRESSION
 486         MOV     [CON],DX
 487         MOV     AL,AH
 488         MOV     CH,0            ;Initial mode
 489         TEST    AL,10H          ;Test INDEX bit
 490         RCL     AL              ;BASE bit (zero flag not affected)
 491         JZ      NOIND           ;Jump if not indexed, with BASE bit in carry
 492         CMC
 493         RCL     CH              ;Rotate in BASE bit
 494         RCL     AL              ;BP bit
 495         RCL     CH
 496         RCL     AL              ;DI bit
 497         RCL     CH              ;The low 3 bits now have indexing mode
 498 MODE:
 499         OR      CH,080H         ;If undefined label, force 16-bit displacement
 500         TEST    [UNDEF],-1
 501         JNZ     RET
 502         MOV     BX,[CON]
 503         MOV     AL,BL
 504         CBW                     ;Extend sign
 505         CMP     AX,BX           ;Is it a signed 8-bit number?
 506         JNZ     RET             ;If not, use 16-bit displacement
 507         AND     CH,07FH         ;Reset 16-bit displacement
 508         OR      CH,040H         ;Set 8-bit displacement
 509         OR      BX,BX
 510         JNZ     RET             ;Use it if not zero displacement
 511         AND     CH,7            ;Specify no displacement
 512         CMP     CH,6            ;Check for BP+0 addressing mode
 513         JNZ     RET
 514         OR      CH,040H         ;If BP+0, use 8-bit displacement
 515         RET
 516
 517 NOIND:
 518         MOV     CH,6            ;Try direct address mode
 519         JNC     RET             ;If no base register, that's right
 520         RCL     AL              ;Check BP bit
 521         JC      MODE
 522         INC     CH              ;If not, must be BX
 523         JP      MODE
 524
 525 EXPRESSION:
 526 ;Analyze arbitrary expression. Flag byte in AH.
 527 ;On exit, AL has type byte: 0=register or undefined label
 528         MOV     CH,-1           ;Initial type
 529         MOV     DI,DX
 530         XOR     DX,DX           ;Initial value
 531         CMP     AL,'+'
 532         JZ      PLSMNS
 533         CMP     AL,'-'
 534         JZ      PLSMNS
 535         MOV     CL,'+'
 536         PUSH    DX
 537         PUSH    CX
 538         MOV     DX,DI
 539         JP      OPERATE
 540 PLSMNS:
 541         MOV     CL,AL
 542         PUSH    DX
 543         PUSH    CX
 544         OR      AH,4            ;Flag that a sign was found
 545         CALL    GETSYM
 546 OPERATE:
 547         CALL    TERM
 548         POP     CX              ;Recover operator
 549         POP     BX              ;Recover current value
 550         XCHG    DX,BX
 551         AND     CH,AL
 552         OR      AL,AL           ;Is it register or undefined label?
 553         JZ      NOCON           ;If so, then no constant part
 554         CMP     CL,"-"          ;Subtract it?
 555         JNZ     ADD
 556         NEG     BX
 557 ADD:
 558         ADD     DX,BX
 559 NEXTERM:
 560         MOV     AL,[SYM]
 561         CMP     AL,'+'
 562         JZ      PLSMNS
 563         CMP     AL,'-'
 564         JZ      PLSMNS
 565         MOV     AL,CH
 566         RET
 567 NOCON:
 568         CMP     CL,"-"
 569         JNZ     NEXTERM
 570 BADOP:
 571         MOV     CL,5
 572         JMP     ERROR
 573
 574 TERM:
 575         CALL    FACTOR
 576 MULOP:
 577         PUSH    DX              ;Save value
 578         PUSH    AX              ;Save type
 579         CALL    GETSYM
 580         POP     CX
 581         CMP     AL,"*"
 582         JZ      GETFACT
 583         CMP     AL,"/"
 584         JNZ     ENDTERM
 585 GETFACT:
 586         OR      CL,CL           ;Can we operate on this type?
 587         JZ      BADOP
 588         PUSH    AX              ;Save operator
 589         CALL    GETSYM          ;Get past operator
 590         CALL    FACTOR
 591         OR      AL,AL
 592         JZ      BADOP
 593         POP     CX              ;Recover operator
 594         POP     BP              ;And current value
 595         XCHG    AX,BP           ;Save AH in BP
 596         CMP     CL,"/"          ;Do we divide?
 597         JNZ     DOMUL
 598         OR      DX,DX           ;Dividing by zero?
 599         MOV     CL,29H
 600         JZ      ERR2
 601         MOV     BX,DX
 602         XOR     DX,DX           ;Make 32-bit dividend
 603         DIV     AX,BX
 604         JMPS    NEXFACT
 605 DOMUL:
 606         MUL     AX,DX
 607 NEXFACT:
 608         MOV     DX,AX           ;Result in DX
 609         XCHG    AX,BP           ;Restore flags to AH
 610         MOV     AL,-1           ;Indicate a number
 611         JMPS    MULOP
 612 ENDTERM:
 613         POP     DX
 614         MOV     AL,CL
 615         RET
 616
 617 FACTOR:
 618         MOV     AL,[SYM]
 619         CMP     AL,CONST
 620         JZ      RET
 621         CMP     AL,UNDEFID
 622         JZ      UVAL
 623         CMP     AL,"("
 624         JZ      PAREN
 625         CMP     AL,'"'
 626         JZ      STRING
 627         CMP     AL,"'"
 628         JZ      STRING
 629         CMP     AL,XREG         ;Only 16-bit register may index
 630         MOV     CL,20
 631         JNZ     ERR2
 632         TEST    AH,1            ;Check to see if indexing is OK
 633         MOV     CL,1
 634         JZ      ERR2
 635         MOV     AL,DL
 636         MOV     CL,3
 637         SUB     AL,3            ;Check for BX
 638         JZ      BXJ
 639         SUB     AL,2            ;Check for BP
 640         JZ      BPJ
 641         DEC     AL              ;Check for SI
 642         MOV     CL,4
 643         JZ      SIJ
 644         DEC     AL              ;Check for DI
 645         JZ      DIJ
 646         MOV     CL,2            ;Invalid base/index register
 647 ERR2:   JMP     ERROR
 648
 649 DIJ:
 650         OR      AH,20H          ;Flag seeing index register DI
 651 SIJ:
 652         TEST    AH,10H          ;Check if already seen index register
 653         JNZ     ERR2
 654         OR      AH,10H          ;Flag seeing index register
 655         RET
 656
 657 BPJ:
 658         OR      AH,40H          ;Flag seeing base register BP
 659 BXJ:
 660         TEST    AH,80H          ;Check if already seen base register
 661         JNZ     ERR2
 662         OR      AH,80H          ;Flag seeing base register
 663         RET
 664
 665 PAREN:
 666         CALL    GETSYM          ;Eat the "("
 667         CALL    EXPRESSION
 668         CMP     B,[SYM],")"     ;Better have closing paren
 669         MOV     CL,20
 670         JNZ     ERR30
 671         RET
 672
 673 UVAL:
 674         MOV     CL,6
 675         TEST    AH,8            ;Check if undefined label has been seen
 676         JNZ     ERR30
 677         OR      AH,8            ;Flag seeing undefined label
 678         MOV     [UNDEF],BX
 679         RET
 680
 681 ERR30:  JMP     ERROR
 682
 683 STRING:
 684         MOV     CH,AL
 685         MOV     AL,[CHR]
 686         CMP     AL,CH
 687         MOV     CL,35
 688         MOV     DL,AL
 689         MOV     DH,0
 690         JNZ     L0003
 691         CALL    ZERLEN
 692 L0003:
 693         CALL    GETCHR
 694         MOV     CL,37
 695         TEST    AH,2
 696         JZ      ERR30
 697         TEST    AH,4
 698         MOV     CL,38
 699         JNZ     ERR30
 700 STRGDAT:
 701         MOV     AL,DL
 702         CMP     AL,EOL
 703         MOV     CL,39
 704         JZ      ERR30
 705         CALL    PUT
 706         MOV     AL,[DATSIZ]
 707         OR      AL,AL
 708         JNZ     BYTSIZ
 709         MOV     AL,DH
 710         CALL    PUT
 711 BYTSIZ:
 712         MOV     AL,[CHR]
 713         MOV     DL,AL
 714         CALL    GETCHR
 715         JP      STRGDAT
 716
 717 ZERLEN:
 718         CALL    NEXTCHR
 719         CMP     AL,CH
 720         JNZ     ERR30
 721         RET
 722
 723 GETCHR:
 724         CALL    NEXTCHR
 725         CMP     AL,CH
 726         JNZ     RET
 727         CALL    NEXTCHR
 728         CMP     AL,CH
 729         JZ      RET
 730         POP     BX              ;Kill return address to STRGDAT loop
 731         MOV     AL,-1           ;Flag type as constant
 732         RET
 733
 734
 735 GETSYM:
 736
 737 ; The lexical scanner. Used only in the operand field. Returns with the token
 738 ; in SYM and AL, sometimes with additional info in BX or DX.
 739 ;
 740 ; AL=SYM=0  Undefined label. BX has pointer to information fields.
 741 ;
 742 ; AL=SYM=1  Constant (or defined label). DX has value.
 743 ;
 744 ; AL=SYM=2,3,4  8-bit register, 16-bit register, or segment register,
 745 ; respectively. DL has register number.
 746 ;
 747 ; AL=SYM=5  A mode flag (such as "B" for byte operation). Type of flag in DL
 748 ; and also stored in FLAG: -1=no flags, 0=B, 1=W, 2=S, 3=L, 4=T.
 749 ;
 750 ; AL=SYM=6  8087 floating point register, ST(n) or ST. DL has register number.
 751 ;
 752 ; All other values are the ASCII code of the character. Note that this may
 753 ; never be a letter or number.
 754
 755         PUSH    AX              ;Save AH
 756         CALL    GETSY
 757         POP     AX
 758         MOV     AL,[SYM]
 759         RET
 760
 761 SCANB:
 762         MOV     AL,[CHR]
 763 SCANT:
 764         CMP     AL,' '
 765         JZ      NEXB
 766         CMP     AL,9
 767         JNZ     RET
 768 NEXB:
 769         CALL    NEXTCHR
 770         JP      SCANT
 771
 772 DOLLAR:
 773         MOV     DX,[OLDPC]
 774         MOV     AL,CONST
 775         MOV     [SYM],AL
 776 NEXTCHJ:
 777         JMP     NEXTCHR
 778
 779 GETSY:
 780         CALL    SCANB
 781         CMP     AL,'$'
 782         JZ      DOLLAR
 783         MOV     [SYM],AL
 784         OR      AL,20H
 785         CMP     AL,'z'+1
 786         JNC     NEXTCHJ
 787         CMP     AL,'a'
 788         JC      $+5
 789         JMP     LETTER
 790         CMP     AL,'9'+1
 791         JNC     NEXTCHJ
 792         CMP     AL,'0'
 793         JC      NEXTCHJ
 794         MOV     BX,SYM
 795         MOV     B,[BX],CONST
 796         CALL    READID
 797         DEC     BX
 798         MOV     AL,[BX]
 799         MOV     CL,7
 800         MOV     BX,0
 801         CMP     AL,'h'
 802         JNZ     $+5
 803         JMP     HEX
 804         INC     CL
 805         MOV     [IX],ID
 806 DEC:
 807         MOV     SI,[IX]
 808         MOV     AL,[SI]
 809         INC     [IX]
 810         CMP     AL,'9'+1
 811         JC      $+5
 812         JMP     ERROR
 813         SUB     AL,'0'
 814         MOV     DX,BX
 815         SHL     BX
 816         SHL     BX
 817         ADD     BX,DX
 818         SHL     BX
 819         MOV     DL,AL
 820         MOV     DH,0
 821         ADD     BX,DX
 822         DEC     CH
 823         JNZ     DEC
 824         XCHG    DX,BX
 825         RET
 826
 827 HEX:
 828         MOV     DX,ID
 829         DEC     CH
 830 HEX1:
 831         MOV     SI,DX
 832         LODB
 833         INC     DX
 834         SUB     AL,'0'
 835         CMP     AL,10
 836         JC      GOTIT
 837         CMP     AL,'g'-'0'
 838         JNC     ERR4
 839         SUB     AL,'a'-10-'0'
 840 GOTIT:
 841         SHL     BX
 842         SHL     BX
 843         SHL     BX
 844         SHL     BX
 845         ADD     BL,AL
 846         DEC     CH
 847         JNZ     HEX1
 848         XCHG    DX,BX
 849         RET
 850
 851 ERR4:   JMP     ERROR
 852
 853 GETLET:
 854         CALL    SCANB
 855         CMP     AL,EOL
 856         STC
 857         JZ      RET
 858         CMP     AL,';'
 859         STC
 860         JZ      RET
 861         MOV     CL,10
 862         OR      AL,20H
 863         CMP     AL,'a'
 864         JC      ERR4
 865         CMP     AL,'z'+1
 866         JNC     ERR4
 867 READID:
 868         MOV     BX,ID
 869         MOV     CH,0
 870 MOREID:
 871         MOV     [BX],AL
 872         INC     CH
 873         INC     BX
 874         CALL    NEXTCHR
 875         CMP     AL,'0'
 876         JC      NOMORE
 877         OR      AL,20H
 878         CMP     AL,'z'+1
 879         JNC     NOMORE
 880         CMP     AL,'9'+1
 881         JC      MOREID
 882         CMP     AL,'a'
 883         JNC     MOREID
 884 NOMORE:
 885         MOV     CL,AL
 886         MOV     AL,CH
 887         MOV     [LENID],AL
 888         OR      AL,AL
 889         MOV     AL,CL
 890         RET
 891
 892 LETTER:
 893         CALL    READID
 894         MOV     AL,CH
 895         DEC     AL
 896         JNZ     NOFLG
 897         MOV     AL,[ID]
 898         MOV     CX,5
 899         MOV     DI,FLGTAB
 900         UP
 901         REPNE
 902         SCAB                    ;See if one of B,W,S,L,T
 903         JZ      SAVFLG          ;Go save flag
 904         XOR     AL,AL
 905         MOV     CH,[LENID]
 906 NOFLG:
 907         DEC     AL
 908         PUSH    BX
 909         JNZ     L0004
 910         CALL    REGCHK
 911 L0004:
 912         POP     BX
 913         MOV     AL,DH
 914         JZ      SYMSAV
 915         CALL    LOOKRET
 916 SYMSAV:
 917         MOV     [SYM],AL
 918         RET
 919
 920 SAVFLG:
 921         MOV     DL,CL           ;Need flag type in DL
 922         XCHG    [FLAG],CL
 923         CMP     CL,-1
 924         MOV     CL,32
 925         MOV     AL,5
 926         JZ      SYMSAV
 927 ERRJ3:  JMP     ERROR
 928
 929 FLGTAB: DB      "tlswb"
 930
 931 FPREG:
 932 ;Have detected "ST" for 8087 floating point stack register
 933         MOV     DL,0            ;Default is ST(0)
 934         CALL    SCANB           ;Get next character
 935         CMP     AL,"("          ;Specifying register number?
 936         JNZ     HAVREG
 937 ;Get register number
 938         CALL    NEXTCHR         ;Skip over the "("
 939         CALL    GETOP           ;A little recursion never hurt anybody
 940         CMP     AL,CONST        ;Better have found a constant
 941         MOV     CL,20           ;Operand error if not
 942         JNZ     ERRJ3
 943         CMP     [DLABEL],0      ;Constant must be defined
 944         MOV     CL,30
 945         JNZ     ERRJ3
 946         MOV     DX,[DATA]       ;Get constant
 947         CMP     DX,7            ;Constant must be in range 0-7
 948         MOV     CL,31
 949         JA      ERRJ3
 950         MOV     AL,[SYM]
 951         CMP     AL,")"
 952         MOV     CL,24
 953         JNZ     ERRJ3
 954 HAVREG:
 955         MOV     DH,FREG
 956         XOR     AL,AL           ;Zero set means register found
 957         RET
 958
 959 REGCHK:
 960         MOV     BX,ID
 961         CMP     [BX],"s"+7400H  ;"st"
 962         JZ      FPREG
 963         MOV     CL,[BX]
 964         INC     BX
 965         MOV     AL,[BX]
 966         MOV     BX,REGTAB
 967         MOV     DH,XREG
 968         MOV     DL,0
 969         CMP     AL,'x'
 970         JZ      SCANREG
 971         MOV     DH,REG
 972         CMP     AL,'l'
 973         JZ      SCANREG
 974         MOV     DL,4
 975         CMP     AL,'h'
 976         JZ      SCANREG
 977         MOV     DH,SREG
 978         MOV     DL,0
 979         MOV     BX,SEGTAB
 980         CMP     AL,'s'
 981         JZ      SCANREG
 982         MOV     DH,XREG
 983         CMP     AL,'p'
 984         JZ      PREG
 985         CMP     AL,'i'
 986         JNZ     RET
 987         MOV     DL,6
 988         MOV     AL,CL
 989         CMP     AL,'s'
 990         JZ      RET
 991         INC     DL
 992         CMP     AL,'d'
 993         RET
 994 PREG:
 995         MOV     DL,4
 996         MOV     AL,CL
 997         CMP     AL,'s'
 998         JZ      RET
 999         INC     DL
1000         CMP     AL,'b'
1001         RET
1002 SCANREG:
1003         MOV     AL,CL
1004         MOV     CX,4
1005         UP
1006         MOV     DI,BX
1007         REPNZ
1008         SCAB
1009         MOV     BX,DI
1010         JNZ     RET
1011         MOV     AL,CL
1012         ADD     AL,DL
1013         MOV     DL,AL
1014         XOR     AL,AL
1015         RET
1016
1017 REGTAB: DB      'bdca'
1018
1019 SEGTAB: DB      'dsce'
1020
1021 LOOK:
1022         MOV     CH,[BX]
1023         INC     BX
1024         MOV     DX,ID
1025         CALL    CPSLP
1026         JZ      RET
1027         XOR     AL,80H
1028         ROL     AL              ;Make end-of-symbol bit least significant
1029         MOV     CL,AL
1030         DEC     BX
1031         MOV     AL,[BX]
1032         XOR     AL,80H
1033         ROL     AL
1034         CMP     AL,CL
1035         JNC     SMALL
1036         INC     CH
1037         INC     CH
1038 SMALL:
1039         MOV     DL,CH
1040         MOV     DH,0
1041         ADD     BX,DX
1042         MOV     DX,[BX]
1043         INC     BX
1044         MOV     AL,DL
1045         OR      AL,DH
1046         STC
1047         JZ      RET
1048         XCHG    DX,BX
1049         JP      LOOK
1050
1051 LOOKRET:
1052         MOV     AL,CH
1053         CMP     AL,3    ;RET has 3 letters
1054         JNZ     LOOKUP
1055         DEC     BX
1056         OR      B,[BX],080H
1057         MOV     DX,RETSTR+2
1058 CHKRET:
1059         MOV     SI,DX
1060         LODB
1061         CMP     AL,[BX]
1062         JNZ     LOOKIT
1063         DEC     BX
1064         DEC     DX
1065         DEC     CH
1066         JNZ     CHKRET
1067         MOV     DX,[LSTRET]
1068         MOV     AL,DL
1069         AND     AL,DH
1070         INC     AL
1071         JZ      ALLRET
1072         MOV     BX,[PC]
1073         SUB     BX,DX
1074         MOV     AL,BL
1075         CBW
1076         CMP     AX,BX           ;Signed 8-bit number?
1077         MOV     AL,1
1078         JZ      RET
1079 ALLRET:
1080         MOV     BX,[RETPT]
1081         MOV     AL,BH
1082         OR      AL,BL
1083         MOV     AL,0
1084         JNZ     RET
1085         MOV     BX,[HEAP]
1086         DEC     BX
1087         DEC     BX
1088         DEC     BX
1089         MOV     [HEAP],BX
1090         XOR     AL,AL
1091         MOV     [BX],AL
1092         MOV     [RETPT],BX
1093         RET
1094
1095 LOOKUP:
1096         DEC     BX
1097         OR      B,[BX],080H
1098 LOOKIT:
1099         MOV     BX,[BASE]
1100         MOV     AL,BH
1101         OR      AL,BL
1102         JZ      EMPTY
1103         CALL    LOOK
1104         JC      ENTER
1105         MOV     DX,4
1106         ADD     BX,DX
1107         MOV     AL,[BX]
1108         OR      AL,AL
1109         JZ      RET
1110         INC     BX
1111         MOV     DX,[BX]
1112         INC     BX
1113         RET
1114
1115 ENTER:
1116         PUSH    BX              ;Save pointer to link field
1117         CALL    CREATE          ;Add the node
1118         POP     SI
1119         MOV     [SI-1],DX       ;Link new node
1120         RET                     ;Zero was set by CREATE
1121
1122 EMPTY:
1123         CALL    CREATE
1124         MOV     [BASE],DX
1125         RET
1126
1127
1128 CREATE:
1129
1130 ; Add a new node to the identifier tree. The identifier is at ID with
1131 ; bit 7 of the last character set to one. The length of the identifier is
1132 ; in LENID, which is ID-1.
1133 ;
1134 ; Node format:
1135 ;       1. Length of identifier (1 byte)
1136 ;       2. Identifier (1-80 bytes)
1137 ;       3. Left link (2-byte pointer to alphabetically smaller identifiers)
1138 ;       4. Right link (0 if none larger)
1139 ;       5. Data field:
1140 ;          a. Defined flag (0=undefined, 1=defined)
1141 ;          b. Value (2 bytes)
1142 ;
1143 ; This routine returns with AL=zero and zero flag set (which indicates
1144 ; on return from LOOKUP that it has not yet been defined), DX points
1145 ; to start of new node, and BX points to data field of new node.
1146
1147         MOV     AL,[LENID]
1148         ADD     AL,8            ;Storage needed for the node
1149         MOV     BX,[HEAP]
1150         MOV     DL,AL
1151         MOV     DH,0
1152         SUB     BX,DX           ;Heap grows downward
1153         MOV     [HEAP],BX
1154         XCHG    DX,BX
1155         MOV     BX,[CODE]       ;Check to make sure there's enough
1156         CMP     BX,DX
1157         JB      $+5
1158         JMP     ABORT
1159         PUSH    DX
1160         MOV     BX,LENID
1161         MOV     CL,[BX]
1162         INC     CL
1163         MOV     CH,0
1164         UP
1165         MOV     SI,BX
1166         MOV     DI,DX
1167         REP
1168         MOVB                    ;Move identifier and length into node
1169         MOV     DX,DI
1170         MOV     BX,SI
1171         MOV     CH,4
1172         XCHG    DX,BX
1173 NILIFY:
1174         MOV     [BX],CL         ;Zero left and right links
1175         INC     BX
1176         DEC     CH
1177         JNZ     NILIFY
1178         XOR     AL,AL           ;Set zero flag
1179         MOV     [BX],AL         ;Zero defined flag
1180         POP     DX              ;Restore pointer to node
1181         RET
1182
1183 CPSLP:
1184         MOV     SI,DX
1185         LODB
1186         CMP     AL,[BX]
1187         LAHF
1188         INC     DX
1189         INC     BX
1190         SAHF
1191         JNZ     RET
1192         DEC     CH
1193         JNZ     CPSLP
1194         RET
1195
1196 GETLAB:
1197         MOV     BX,0
1198         MOV     [LABPT],BX
1199         MOV     B,[FLAG],-1
1200         MOV     DH,0
1201         MOV     AL,[CHR]
1202         CMP     AL,' '+1
1203         JC      NOT1
1204         OR      DH,001H
1205 NOT1:
1206         CALL    GETLET
1207         JC      RET
1208         CMP     AL,':'
1209         JNZ     LABCHK
1210         CALL    NEXTCHR
1211         JP      LABEL
1212 LABCHK:
1213         OR      AL,AL
1214         TEST    DH,001H
1215         JZ      RET
1216 LABEL:
1217         MOV     AL,[CHKLAB]
1218         OR      AL,AL
1219         JZ      $+5
1220         JMP     GETLET
1221         CALL    LOOKUP
1222         MOV     CL,11
1223         JNZ     ERR5
1224         MOV     DX,[PC]
1225         MOV     B,[BX],1
1226         INC     BX
1227         MOV     [BX],DX
1228         MOV     [LABPT],BX
1229         JMP     GETLET
1230
1231 ERR5:   JMP     ERROR
1232
1233 ASMLIN:
1234         MOV     B,[MAXFLG],1    ;Allow only B and W flags normally
1235         MOV     BX,[PC]
1236         MOV     [OLDPC],BX
1237         CALL    GETLAB
1238         JNC     $+5
1239         JMP     ENDLN
1240         MOV     BX,LENID
1241         MOV     AL,[BX]
1242         MOV     CL,12
1243         SUB     AL,2
1244         MOV     CH,AL
1245         JC      ERR5
1246         INC     BX
1247         CMP     B,[BX],"f"      ;See if an 8087 mnemonic
1248         JZ      NDPOP
1249         CMP     AL,5
1250         JNC     ERR5
1251         MOV     AL,[BX]
1252         SUB     AL,'a'
1253         MOV     CL,AL
1254         ADD     AL,AL
1255         ADD     AL,AL
1256         ADD     AL,CL
1257         ADD     AL,CH
1258         ADD     AL,AL
1259         MOV     BX,OPTAB
1260         MOV     DL,AL
1261         MOV     DH,0
1262         ADD     BX,DX
1263         MOV     BX,[BX]
1264         INC     CH
1265         MOV     CL,CH
1266         MOV     AH,[BX]
1267         INC     BX
1268         OR      AH,AH
1269         JZ      OPERR
1270 FINDOP:
1271         MOV     CH,CL
1272         MOV     DX,ID+1
1273         XCHG    AX,BP           ;Save count of opcodes in BP
1274         CALL    CPSLP
1275         JZ      HAVOP
1276         XCHG    AX,BP
1277         MOV     DH,0
1278         MOV     DL,CH
1279         INC     DX
1280         INC     DX
1281         ADD     BX,DX
1282         DEC     AH
1283         JNZ     FINDOP
1284 OPERR:
1285         MOV     CL,12
1286         JMP     ERROR
1287
1288 HAVOP:
1289         MOV     AL,[BX+2]       ;Get opcode
1290         JMP     [BX]
1291
1292 NDPOP:  ;First letter is "F" so must be 8087 opcode ("Numeric Data Processor")
1293         MOV     B,[MAXFLG],4    ;Allow all type flags
1294         INC     BX
1295         CMP     B,[BX],"n"      ;"No-wait" form?
1296         MOV     AH,0
1297         JNZ     SAVNFLG
1298         MOV     AH,1
1299         DEC     AL
1300         INC     BX              ;Skip over the "N"
1301 SAVNFLG:
1302         MOV     [NOWAIT],AH     ;0 for wait, 1 for no wait
1303         CMP     AL,1
1304         JB      OPERR           ;Not enough char left for valid opcode?
1305         CMP     AL,5
1306         JA      OPERR           ;Too many?
1307         CBW
1308         XCHG    AX,DX           ;Save length in DX
1309         MOV     SI,DX
1310         OR      B,[SI+BX],80H   ;Set high bit of last character
1311         MOV     AL,[BX]         ;Get first char of opcode
1312         INC     BX
1313         SUB     AL,"a"
1314         JB      TRY2XM1         ;Go see if opcode starts with "2"
1315         CMP     AL,"z"-"a"
1316         JA      OPERR
1317         CBW
1318         SHL     AX              ;Double to index into address table
1319         XCHG    AX,SI           ;Put in index register
1320         MOV     DI,[SI+NDPTAB]  ;Get start of opcode table for this letter
1321 LOOKNDP:
1322         MOV     AH,[DI]         ;Number of opcodes starting with this letter
1323         OR      AH,AH
1324         JZ      OPERR           ;Any start with this letter?
1325 FNDNDP:
1326         INC     DI
1327         MOV     SI,BX           ;Pointer to start of opcode
1328         MOV     CX,DX           ;Get length of opcode
1329         REPE
1330         CMPB                    ;Compare opcode to table entry
1331         JZ      HAVNDP
1332         DEC     DI              ;Back up in case that was last letter
1333         MOV     AL,80H          ;Look for char with high bit set
1334 ENDOP:
1335         SCASB
1336         JA      ENDOP
1337         INC     DI              ;Skip over info about opcode
1338         DEC     AH
1339         JNZ     FNDNDP
1340 OPERRJ: JP      OPERR
1341
1342 TRY2XM1:
1343         CMP     AL,"2"-"a"
1344         JNZ     OPERR
1345         MOV     DI,XM1
1346         JP      LOOKNDP
1347
1348 SPECIALOP:
1349         AND     AL,7            ;Mask to special op number
1350         JZ      FWAIT           ;If zero, go handle FWAIT
1351 ;Handle FNOP
1352         CMP     B,[NOWAIT],0    ;Was "N" present (If not opcode was "FOP")
1353         JZ      OPERR
1354         MOV     AL,9BH          ;Need Wait opcode after all
1355         CALL    PUT
1356         MOV     AL,0D9H
1357         CALL    PUT
1358         MOV     AL,0D0H
1359         JMP     PUT
1360
1361 FWAIT:
1362         CMP     B,[NOWAIT],0    ;"FNWAIT" not legal
1363         JNZ     OPERRJ
1364         RET                     ;Nothing to do - "WAIT" already sent
1365
1366 HAVNDP:
1367         MOV     SI,DI
1368         CMP     B,[NOWAIT],0
1369         JNZ     NWAIT
1370         MOV     AL,9BH          ;Wait opcode
1371         CALL    PUT
1372 NWAIT:
1373         LODW                    ;Get opcode info
1374         TEST    AL,0F8H         ;Any operand bits set?
1375         JZ      NOOPS           ;If no operands, output code
1376         TEST    AL,78H          ;Special case?
1377         JZ      SPECIALOP
1378         PUSH    AX
1379         CALL    GETSYM          ;See if any operands
1380         POP     CX
1381         CMP     AL,";"
1382         JZ      NOOPCHK
1383         CMP     AL,EOL
1384         JZ      NOOPCHK
1385         CMP     AL,FREG         ;Is it 8087 register?
1386         JNZ     MEMOP
1387         XCHG    AX,CX
1388         TEST    AL,ONEREG       ;One register OK as operand?
1389         JNZ     PUTREG          ;Yes - save it
1390         TEST    AL,20H          ;Memory-only operation?
1391         MOV     CL,20
1392         JNZ     ERRJ4
1393         TEST    AL,18H          ;Two-register operation?
1394         JPE     ERRJ4           ;Must be exactly one bit set
1395         PUSH    DX              ;Save register number
1396         PUSH    AX              ;Save opcode
1397         CALL    GETSYM
1398         CMP     AL,","
1399         MOV     CL,15H
1400         JNZ     ERRJ4
1401         CALL    GETSYM
1402         MOV     CL,20
1403         CMP     AL,FREG
1404         JNZ     ERRJ4
1405         POP     AX
1406         POP     BX
1407         XOR     AL,2            ;Flip "POP" bit
1408         AND     AL,0FBH         ;Reset direction bit to ST(0)
1409         OR      BL,BL           ;Is first register ST(0)?
1410         JZ      ST0DEST
1411         XCHG    DX,BX
1412         OR      BL,BL           ;One of these must be ST(0)
1413         JNZ     ERRJ4
1414         XOR     AL,4            ;Flip direction
1415         JMPS    PUTREG
1416 ST0DEST:
1417         TEST    AL,2            ;Is POP bit set?
1418         JNZ     ERRJ4           ;Don't allow destination ST(0) then pop
1419 PUTREG:
1420         AND     AH,0F8H         ;Zero out register field
1421         OR      AH,DL
1422         OR      AH,0C0H
1423         PUSH    AX
1424         CALL    GETSYM          ;Get to next symbol
1425         POP     AX
1426         JMPS    NOOPS
1427
1428 NOOPCHK:
1429         XCHG    AX,CX
1430         TEST    AL,80H          ;Is no operands OK?
1431         MOV     CL,20
1432         JNZ     ERRJ4
1433 NOOPS:
1434 ;First test for FDIV or FSUB and reverse "R" bit if "D" bit is set
1435         PUSH    AX
1436         AND     AX,0E005H
1437         CMP     AX,0E004H
1438         POP     AX
1439         JNZ     NOREV
1440         XOR     AH,8            ;Reverse "R" bit
1441 NOREV:
1442         AND     AL,7
1443         OR      AL,0D8H         ;ESC hook
1444         CALL    PUT
1445         MOV     AL,AH
1446         JMP     PUT
1447
1448 BADFLAG:
1449         MOV     CL,20H
1450 ERRJ4:  JMP     ERROR
1451
1452 MEMOP:
1453         PUSH    CX              ;Save opcode
1454         CALL    GETOP1          ;Get memory operand
1455         CMP     AL,UNDEFID      ;Is it?
1456         MOV     CL,20
1457         JNZ     ERRJ4
1458         POP     AX
1459         TEST    AL,20H          ;Does it have memory format field?
1460         JNZ     GETFORMAT
1461         TEST    AL,8            ;Check if any memory operand legal
1462         JZ      ERRJ4
1463         TEST    AL,10H          ;Check for 2-op arithmetic
1464         JNZ     PUTMEM          ;If not, just use as plain memory op
1465 GETFORMAT:
1466         AND     AL,0F9H         ;Zero memory format bits
1467         MOV     CL,[FLAG]
1468         DEC     CL              ;Must now be in range 0-3
1469         JL      BADFLAG
1470         MOV     CH,AL           ;Save opcode byte
1471         SHR     AL              ;Put format bits in bits 2 & 3
1472         AND     AL,0CH
1473         OR      AL,CL           ;Combine format bits with flag
1474         MOV     BX,FORMATTAB
1475         XLAT
1476         OR      AL,AL           ;Valid combination?
1477         JS      BADFLAG
1478         OR      AH,AL           ;Possibly set new bits in second byte
1479         OR      AL,CH           ;Set memory format bits
1480 PUTMEM:
1481         AND     AL,7
1482         OR      AL,0D8H
1483         CALL    PUT
1484         MOV     AL,AH
1485         AND     AL,38H
1486         OR      AL,DL           ;Combine addressing mode
1487         JMP     PUTADD
1488
1489 FORMATTAB:
1490 ;There are 16 entries in this table. The 4-bit index is built like this:
1491 ;       Bit 3           0 for normal memory ops, 1 if extended is OK
1492 ;       Bit 2           0 for integer, 1 for real
1493 ;       Bit 0 & 1       Flag: 00=W, 01=S, 10=L, 11=T
1494 ;
1495 ;The entries in the table are used as two 3-bit fields. Bits 0-2 are ORed
1496 ;into the first byte of the opcode for the Memory Format field. Bits 3-6
1497 ;are ORed into the second byte to modify the opcode for extended operands.
1498 ;If bit 7 is set, then that combination is illegal.
1499
1500         DB      6,2,80H,80H     ;Normal integers
1501         DB      80H,0,4,80H     ;Normal reals
1502         DB      6,2,2EH,80H     ;Extended integers
1503         DB      80H,0,4,2BH     ;Extended reals
1504
1505 GRP1:
1506         MOV     CX,8A09H
1507         CALL    MROPS
1508         MOV     CX,0C6H
1509         MOV     AL,BH
1510         CMP     AL,UNDEFID
1511         JNZ     L0006
1512         CALL    STIMM
1513 L0006:
1514         AND     AL,1
1515         JZ      BYTIMM
1516         MOV     AL,0B8H
1517         OR      AL,BL
1518         CALL    PUT
1519         JMP     PUTWOR
1520
1521 BYTIMM:
1522         MOV     AL,0B0H
1523         OR      AL,BL
1524         CALL    PUT
1525 PUTBJ:  JMP     PUTBYT
1526
1527 IMMED:
1528         MOV     AL,BH
1529         CMP     AL,UNDEFID
1530         JZ      STIMM
1531         MOV     AL,BL
1532         OR      AL,AL
1533         JZ      RET
1534         MOV     AL,BH
1535         CALL    IMM
1536         OR      AL,0C0H
1537         CALL    PUT
1538 FINIMM:
1539         MOV     AL,CL
1540         POP     CX
1541         TEST    AL,1
1542         JZ      PUTBJ
1543         CMP     AL,83H
1544         JZ      PUTBJ
1545         JMP     PUTWOR
1546
1547 STIMM:
1548         MOV     AL,[FLAG]
1549         CALL    IMM
1550         CALL    PUTADD
1551         JP      FINIMM
1552
1553 IMM:
1554         AND     AL,1
1555         OR      AL,CL
1556         MOV     CL,AL
1557         CALL    PUT
1558         MOV     AL,CH
1559         AND     AL,38H
1560         OR      AL,BL
1561         RET
1562
1563 PUT:
1564 ;Save byte in AL as pure code, with intermediate code bits 00. AL and
1565 ;DI destroyed, no other registers affected.
1566         PUSH    BX
1567         PUSH    CX
1568         MOV     CH,0            ;Flag as pure code
1569         CALL    GEN
1570         POP     CX
1571         POP     BX
1572         RET
1573
1574 GEN:
1575 ;Save byte of code in AL, given intermediate code bits in bits 7&8 of CH.
1576         CALL    PUTINC          ;Save it and bump code pointer
1577 GEN1:
1578         MOV     AL,[RELOC]
1579         RCL     CH
1580         RCL     AL
1581         RCL     CH
1582         RCL     AL
1583         MOV     [RELOC],AL
1584         MOV     BX,BCOUNT
1585         DEC     B,[BX]
1586         JNZ     RET
1587         MOV     B,[BX],4
1588         MOV     BX,RELOC
1589         MOV     AL,[BX]
1590         MOV     B,[BX],0
1591         MOV     DI,[IY]
1592         MOV     [DI],AL
1593         MOV     BX,[CODE]
1594         MOV     [IY],BX
1595         INC     BX
1596         MOV     [CODE],BX
1597         RET
1598
1599 PUTINC:
1600         INC     [PC]
1601 PUTCD:
1602         MOV     DI,[CODE]
1603         STOB
1604         MOV     [CODE],DI
1605         RET
1606
1607 PUTWOR:
1608 ;Save the word value described by [DLABEL] and [DATA] as code. If defined,
1609 ;two bytes of pure code will be produced. Otherwise, appropriate intermediate
1610 ;code will be generated.
1611         PUSH    CX
1612         MOV     CH,80H
1613         PUSH    DX
1614         PUSH    BX
1615         JP      PUTBW
1616
1617 PUTBYT:
1618 ;Same as PUTWOR, above, but for byte value.
1619         PUSH    CX
1620         MOV     CH,40H
1621         PUSH    DX
1622         PUSH    BX
1623         MOV     BX,[DLABEL]
1624         MOV     AL,BH
1625         OR      AL,BL
1626         JNZ     PUTBW
1627         MOV     BX,[DATA]
1628         OR      AL,BH
1629         JZ      PUTBW
1630         INC     BH
1631         JZ      PUTBW
1632         MOV     CL,31
1633         JMP     ERROR
1634 PUTBW:
1635         MOV     DX,[DLABEL]
1636         MOV     BX,[DATA]
1637 PUTCHK:
1638         OR      DX,DX
1639         JZ      NOUNDEF
1640         MOV     AL,DL
1641         CALL    PUTCD
1642         MOV     AL,DH
1643         CALL    PUTCD
1644         MOV     AL,BL
1645         CALL    PUTINC
1646         MOV     AL,BH
1647         TEST    CH,080H
1648         JZ      SMPUT
1649         CALL    GEN
1650         JP      PRET
1651 SMPUT:
1652         CALL    PUTCD
1653         CALL    GEN1
1654 PRET:
1655         POP     BX
1656         POP     DX
1657         POP     CX
1658         RET
1659
1660 NOUNDEF:
1661         MOV     AL,BL
1662         MOV     CL,BH
1663         PUSH    CX
1664         MOV     CH,0
1665         CALL    GEN
1666         POP     CX
1667         MOV     AL,CL
1668         TEST    CH,080H
1669         MOV     CH,0
1670         JZ      PRET
1671         CALL    GEN
1672         JP      PRET
1673
1674 PUTADD:
1675 ;Save complete addressing mode. Addressing mode is in AL; if this is a register
1676 ;operation (>=C0), then the one byte will be saved as pure code. Otherwise,
1677 ;the details of the addressing mode will be investigated and the optional one-
1678 ;or two-byte displacement will be added, as described by [ADDR] and [ALABEL].
1679         PUSH    CX
1680         PUSH    DX
1681         PUSH    BX
1682         MOV     CH,0
1683         MOV     CL,AL
1684         CALL    GEN             ;Save the addressing mode as pure code
1685         MOV     AL,CL
1686         MOV     CH,80H
1687         AND     AL,0C7H
1688         CMP     AL,6
1689         JZ      TWOBT           ;Direct address?
1690         AND     AL,0C0H
1691         JZ      PRET            ;Indirect through reg, no displacement?
1692         CMP     AL,0C0H
1693         JZ      PRET            ;Register to register operation?
1694         MOV     CH,AL           ;Save whether one- or two-byte displacement
1695 TWOBT:
1696         MOV     BX,[ADDR]
1697         MOV     DX,[ALABEL]
1698         JP      PUTCHK
1699
1700 GRP2:
1701         CALL    GETOP
1702         MOV     CX,0FF30H
1703         CMP     AL,UNDEFID
1704         JZ      PMEM
1705         MOV     CH,50H
1706         CMP     AL,XREG
1707         JZ      PXREG
1708         MOV     CH,6
1709         CMP     AL,SREG
1710         JNZ     $+5
1711         JMP     PACKREG
1712         MOV     CL,20
1713         JMP     ERROR
1714
1715 PMEM:
1716         MOV     AL,CH
1717         CALL    PUT
1718         MOV     AL,CL
1719         OR      AL,DL
1720         JMP     PUTADD
1721
1722 PXREG:
1723         MOV     AL,CH
1724         OR      AL,DL
1725         JMP     PUT
1726
1727 GRP3:
1728         CALL    GETOP
1729         PUSH    DX
1730         CALL    GETOP2
1731         POP     BX
1732         MOV     CX,8614H
1733         MOV     AL,SREG
1734         CMP     AL,BH
1735         JZ      ERR6
1736         CMP     AL,DH
1737         JZ      ERR6
1738         MOV     AL,CONST
1739         CMP     AL,BH
1740         JZ      ERR6
1741         CMP     AL,DH
1742         JZ      ERR6
1743         MOV     AL,UNDEFID
1744         CMP     AL,BH
1745         JZ      EXMEM
1746         CMP     AL,DH
1747         JZ      EXMEM1
1748         MOV     AL,BH
1749         CMP     AL,DH
1750         MOV     CL,22
1751         JNZ     ERR6
1752         CMP     AL,XREG
1753         JZ      L0008
1754         CALL    RR1
1755 L0008:                  ;RR1 never returns
1756         MOV     AL,BL
1757         OR      AL,AL
1758         JZ      EXACC
1759         XCHG    DX,BX
1760         MOV     AL,BL
1761         OR      AL,AL
1762         MOV     AL,BH
1763         JZ      EXACC
1764         CALL    RR1
1765 EXACC:
1766         MOV     AL,90H
1767         OR      AL,DL
1768         JMP     PUT
1769
1770 EXMEM:
1771         XCHG    DX,BX
1772 EXMEM1:
1773         CMP     AL,BH
1774         JZ      ERR6
1775         MOV     CL,1    ;Flag word as OK
1776         CALL    NOTAC   ;NOTAC never returns
1777 ERR6:   JMP     ERROR
1778
1779 GRP4:
1780         PUSH    AX
1781         CALL    GETOP
1782         POP     CX
1783         XCHG    CL,CH
1784         CMP     AL,CONST
1785         JZ      FIXED
1786         SUB     AL,XREG
1787         DEC     DL
1788         DEC     DL
1789         OR      AL,DL
1790         MOV     CL,20
1791         JNZ     ERR6
1792         MOV     AL,CH
1793         OR      AL,8
1794         JMP     PUT
1795 FIXED:
1796         MOV     AL,CH
1797         CALL    PUT
1798         JMP     PUTBYT
1799
1800 GRP5:
1801         PUSH    AX
1802         CALL    GETOP
1803         MOV     CL,20
1804         CMP     AL,CONST
1805         JNZ     ERR6
1806         MOV     BX,[DLABEL]
1807         MOV     AL,BH
1808         OR      AL,BL
1809         MOV     CL,30
1810         JNZ     ERR6
1811         MOV     BX,[DATA]
1812         POP     AX
1813         OR      AL,AL
1814         JZ      ORG
1815         DEC     AL
1816         JZ      DSJ
1817         DEC     AL
1818         JZ      EQU
1819         DEC     AL
1820         JZ      $+5
1821         JMP     IF
1822 PUTOP:
1823         MOV     AL,-3
1824         JP      NEWLOC
1825 ALIGN:
1826         MOV     AL,[PC]
1827         AND     AL,1
1828         JZ      RET
1829         MOV     BX,1
1830 DSJ:
1831         XCHG    DX,BX
1832         MOV     BX,[PC]
1833         ADD     BX,DX
1834         MOV     [PC],BX
1835         XCHG    DX,BX
1836         MOV     AL,-4
1837         JP      NEWLOC
1838 EQU:
1839         XCHG    DX,BX
1840         MOV     BX,[LABPT]
1841         MOV     AL,BH
1842         OR      AL,BL
1843         MOV     CL,34
1844         JZ      ERR7
1845         MOV     [BX],DL
1846         INC     BX
1847         MOV     [BX],DH
1848         RET
1849 ORG:
1850         MOV     [PC],BX
1851         MOV     AL,-2
1852 NEWLOC:
1853         CALL    PUTCD
1854         MOV     AL,BL
1855         CALL    PUTCD
1856         MOV     AL,BH
1857         CALL    PUTCD
1858         MOV     CH,0C0H
1859         JMP     GEN1
1860 GRP6:
1861         MOV     CH,AL
1862         MOV     CL,4
1863         CALL    MROPS
1864         MOV     CL,23
1865 ERR7:   JMP     ERROR
1866 GRP7:
1867         MOV     CH,AL
1868         MOV     CL,1
1869         CALL    MROPS
1870         MOV     CL,80H
1871         MOV     DX,[DLABEL]
1872         MOV     AL,DH
1873         OR      AL,DL
1874         JNZ     ACCJ
1875         XCHG    DX,BX
1876         MOV     BX,[DATA]
1877         MOV     AL,BL
1878         CBW
1879         CMP     AX,BX
1880         XCHG    DX,BX
1881         JNZ     ACCJ
1882         OR      CL,002H
1883 ACCJ:   JMP     ACCIMM
1884 GRP8:
1885         MOV     CL,AL
1886         MOV     CH,0FEH
1887         JP      ONEOP
1888 GRP9:
1889         MOV     CL,AL
1890         MOV     CH,0F6H
1891 ONEOP:
1892         PUSH    CX
1893         CALL    GETOP
1894 ONE:
1895         MOV     CL,26
1896         CMP     AL,CONST
1897         JZ      ERR7
1898         CMP     AL,SREG
1899         MOV     CL,22
1900         JZ      ERR7
1901         POP     CX
1902         CMP     AL,UNDEFID
1903         JZ      MOP
1904         AND     AL,1
1905         JZ      ROP
1906         TEST    CL,001H
1907         JZ      ROP
1908         MOV     AL,CL
1909         AND     AL,0F8H
1910         OR      AL,DL
1911         JMP     PUT
1912 MOP:
1913         MOV     AL,[FLAG]
1914         AND     AL,1
1915         OR      AL,CH
1916         CALL    PUT
1917         MOV     AL,CL
1918         AND     AL,38H
1919         OR      AL,DL
1920         JMP     PUTADD
1921 ROP:
1922         OR      AL,CH
1923         CALL    PUT
1924         MOV     AL,CL
1925         AND     AL,38H
1926         OR      AL,0C0H
1927         OR      AL,DL
1928         JMP     PUT
1929 GRP10:
1930         MOV     CL,AL
1931         MOV     CH,0F6H
1932         PUSH    CX
1933         CALL    GETOP
1934         MOV     CL,20
1935         MOV     AL,DL
1936         OR      AL,AL
1937         JNZ     ERRJ1
1938         MOV     AL,DH
1939         CMP     AL,XREG
1940         JZ      G10
1941         CMP     AL,REG
1942 ERRJ1:  JNZ     ERR8
1943 G10:
1944         PUSH    AX
1945         CALL    GETOP
1946         POP     AX
1947         AND     AL,1
1948         MOV     [FLAG],AL
1949         MOV     AL,DH
1950 ONEJ:   JP      ONE
1951 GRP11:
1952         CALL    PUT
1953         MOV     AL,0AH
1954         JMP     PUT
1955 GRP12:
1956         MOV     CL,AL
1957         MOV     CH,0D0H
1958         PUSH    CX
1959         CALL    GETOP
1960         MOV     AL,[SYM]
1961         CMP     AL,','
1962         MOV     AL,DH
1963         JNZ     ONEJ
1964         PUSH    DX
1965         CALL    GETOP
1966         SUB     AL,REG
1967         MOV     CL,20
1968         DEC     DL
1969         OR      AL,DL
1970         JNZ     ERR8
1971         POP     DX
1972         MOV     AL,DH
1973         POP     CX
1974         OR      CH,002H
1975         PUSH    CX
1976         JMP     ONE
1977 GRP13:
1978         MOV     CH,AL
1979         MOV     CL,1
1980         CALL    MROPS
1981         MOV     CL,80H
1982 ACCIMM:
1983         CALL    IMMED
1984         OR      CH,004H
1985         AND     CH,0FDH
1986 AIMM:
1987         MOV     AL,BH
1988         AND     AL,1
1989         LAHF
1990         PUSH    AX
1991         OR      AL,CH
1992         CALL    PUT
1993         POP     AX
1994         SAHF
1995         JNZ     $+5
1996         JMP     PUTBYT
1997         JMP     PUTWOR
1998
1999 ERR8:   JMP     ERROR
2000
2001 GRP14:
2002 ;JMP and CALL mnemonics
2003         LAHF
2004         XCHG    AH,AL
2005         PUSH    AX
2006         XCHG    AH,AL
2007         MOV     B,[MAXFLG],3    ;Allow "L" flag
2008         CALL    GETOP
2009         CMP     AL,CONST
2010         JZ      DIRECT
2011         MOV     CL,20
2012         CMP     AL,REG
2013         JZ      ERR8
2014         CMP     AL,SREG
2015         JZ      ERR8
2016         CMP     AL,XREG
2017         JNZ     NOTRG
2018         OR      DL,0C0H
2019 NOTRG:
2020 ;Indirect jump. DL has addressing mode.
2021         MOV     AL,0FFH
2022         CALL    PUT
2023         POP     AX
2024         XCHG    AH,AL
2025         SAHF
2026         AND     AL,38H
2027         OR      AL,DL
2028         MOV     CH,[FLAG]
2029         CMP     CH,3            ;Flag "L" present?
2030         JZ      PUTADDJ         ;If so, do inter-segment
2031         MOV     CL,27H
2032         CMP     CH,-1           ;Better not be a flag
2033         JNZ     ERR8
2034         AND     AL,0F7H         ;Convert to intra-segment
2035 PUTADDJ:
2036         JMP     PUTADD
2037 DIRECT:
2038         MOV     AL,[SYM]
2039         CMP     AL,','
2040         JZ      LONGJ
2041         POP     AX
2042         XCHG    AH,AL
2043         SAHF
2044         DEC     AL
2045         CMP     AL,0E9H
2046         JZ      GOTOP
2047         MOV     AL,0E8H
2048 GOTOP:
2049         CALL    PUT
2050         MOV     DX,[PC]
2051         INC     DX
2052         INC     DX
2053         SUB     [DATA],DX
2054         JMP     PUTWOR
2055 LONGJ:
2056         POP     AX
2057         XCHG    AH,AL
2058         SAHF
2059         CALL    PUT
2060         CALL    PUTWOR
2061         CALL    GETOP
2062         MOV     CL,20
2063         CMP     AL,CONST
2064         JNZ     ERR8
2065         JMP     PUTWOR
2066
2067 GRP16:
2068 ;RET mnemonic
2069         LAHF
2070         XCHG    AH,AL
2071         PUSH    AX
2072         XCHG    AH,AL
2073         CALL    GETSYM
2074         CMP     AL,5
2075         JZ      LONGR
2076         CMP     AL,EOL
2077         JZ      NODEC
2078         CMP     AL,';'
2079         JZ      NODEC
2080 GETSP:
2081         CALL    GETOP1
2082         POP     CX
2083         CMP     AL,CONST
2084         MOV     CL,20
2085         JNZ     ERR9
2086         MOV     AL,CH
2087         AND     AL,0FEH
2088         CALL    PUT
2089         JMP     PUTWOR
2090 LONGR:
2091         CMP     DL,3            ;Is flag "L"?
2092         MOV     CL,27H
2093         JNZ     ERR10           ;If not, bad flag
2094         POP     AX
2095         XCHG    AH,AL
2096         SAHF
2097         OR      AL,8
2098         LAHF
2099         XCHG    AH,AL
2100         PUSH    AX
2101         XCHG    AH,AL
2102 NOTLON:
2103         CALL    GETSYM
2104         CMP     AL,EOL
2105         JZ      DORET
2106         CMP     AL,';'
2107         JZ      DORET
2108         CMP     AL,','
2109         JNZ     L0011
2110         CALL    GETSYM
2111 L0011:
2112         JP      GETSP
2113 NODEC:
2114 ;Return is intra-segment (short) without add to SP.
2115 ;Record position for RET symbol.
2116         MOV     BX,[PC]
2117         MOV     [LSTRET],BX
2118         XCHG    DX,BX
2119         MOV     BX,[RETPT]
2120         MOV     AL,BH
2121         OR      AL,BL
2122         JZ      DORET
2123         MOV     B,[BX],1
2124         INC     BX
2125         MOV     [BX],DX
2126         MOV     BX,0
2127         MOV     [RETPT],BX
2128 DORET:
2129         POP     AX
2130         XCHG    AH,AL
2131         SAHF
2132         JMP     PUT
2133
2134 GRP17:
2135         CALL    PUT
2136         CALL    GETOP
2137         CMP     AL,CONST
2138         MOV     CL,20
2139 ERR9:   JNZ     ERR10
2140         MOV     BX,[DATA]
2141         MOV     DX,[PC]
2142         INC     DX
2143         SUB     BX,DX
2144         MOV     [DATA],BX
2145         CALL    PUTBYT
2146         MOV     BX,[DLABEL]
2147         MOV     AL,BH
2148         OR      AL,BL
2149         JNZ     RET
2150         MOV     BX,[DATA]
2151         MOV     AL,BL
2152         CBW
2153         CMP     AX,BX           ;Signed 8-bit number?
2154         JZ      RET
2155         MOV     CL,31
2156 ERR10:  JMP     ERROR
2157         RET
2158 GRP18:
2159         CALL    GETOP
2160         CMP     AL,CONST
2161         MOV     CL,20
2162         JNZ     ERR10
2163         MOV     BX,[DLABEL]
2164         MOV     AL,BH
2165         OR      AL,BL
2166         JNZ     GENINT
2167         MOV     BX,[DATA]
2168         MOV     DX,3
2169         SBB     BX,DX
2170         JNZ     GENINT
2171         MOV     AL,0CCH
2172         JMP     PUT
2173 GENINT:
2174         MOV     AL,0CDH
2175         CALL    PUT
2176         JMP     PUTBYT
2177
2178 GRP19:  ;ESC opcode
2179         CALL    GETOP
2180         MOV     CL,20
2181         CMP     AL,CONST
2182         JNZ     ERRJ            ;First operand must be immediate
2183         MOV     CL,1EH
2184         TEST    [DLABEL],-1     ;See if all labels have been defined
2185         JNZ     ERRJ
2186         MOV     AX,[DATA]
2187         CMP     AX,64           ;Must only be 6 bits
2188         MOV     CL,1FH
2189         JNB     ERRJ
2190         MOV     BL,AL           ;Save for second byte
2191         SHR     AL
2192         SHR     AL
2193         SHR     AL
2194         OR      AL,0D8H         ;ESC opcode
2195         CALL    PUT
2196         PUSH    BX
2197         CALL    GETOP2
2198         POP     BX
2199         AND     BL,7            ;Low 3 bits of first operand
2200         SHL     BL
2201         SHL     BL
2202         SHL     BL
2203         CMP     AL,UNDEFID      ;Check for memory operand
2204         JZ      ESCMEM
2205         CMP     AL,CONST        ;Check for another immediate
2206         JZ      ESCIMM
2207         MOV     CL,20
2208 ERRJ:   JMP     ERROR
2209
2210 ESCMEM:
2211         OR      BL,DL           ;Combine mode with first operand
2212         MOV     AL,BL
2213         JMP     PUTADD
2214
2215 ESCIMM:
2216         MOV     CL,1EH
2217         TEST    [DLABEL],-1     ;See if second operand is fully defined
2218         JNZ     ERRJ
2219         MOV     AX,[DATA]
2220         MOV     CL,1FH
2221         CMP     AX,8            ;Must only be 3 bit value
2222         JNB     ERRJ
2223         OR      AL,BL           ;Combine first and second operands
2224         OR      AL,0C0H         ;Force "register" mode
2225         JMP     PUT
2226
2227 GRP20:
2228         MOV     CH,AL
2229         MOV     CL,1
2230         CALL    MROPS
2231         MOV     CL,0F6H
2232         CALL    IMMED
2233         MOV     CH,0A8H
2234         JMP     AIMM
2235 GRP21:
2236         CALL    GETOP
2237         CMP     AL,SREG
2238         MOV     CL,28
2239         JNZ     ERRJ
2240         MOV     CH,26H
2241 PACKREG:
2242         MOV     AL,DL
2243         ADD     AL,AL
2244         ADD     AL,AL
2245         ADD     AL,AL
2246         OR      AL,CH
2247         JMP     PUT
2248 GRP22:
2249         CALL    GETOP
2250         MOV     CX,8F00H
2251         CMP     AL,UNDEFID
2252         JNZ     $+5
2253         JMP     PMEM
2254         MOV     CH,58H
2255         CMP     AL,XREG
2256         JNZ     $+5
2257         JMP     PXREG
2258         MOV     CH,7
2259         CMP     AL,SREG
2260         JZ      PACKREG
2261         MOV     CL,20
2262 ERR11:  JMP     ERROR
2263 GRP23:
2264         MOV     [DATSIZ],AL
2265 GETDAT:
2266         CALL    GETSYM
2267         MOV     AL,2
2268         CALL    VAL1
2269         MOV     AL,[SYM]
2270         CMP     AL,','
2271         MOV     AL,[DATSIZ]
2272         JNZ     ENDDAT
2273         CALL    SAVDAT
2274         JP      GETDAT
2275 ENDDAT:
2276         CMP     AL,2
2277         JNZ     SAVDAT
2278         MOV     BX,[DATA]
2279         LAHF
2280         OR      BL,080H
2281         SAHF
2282         MOV     [DATA],BX
2283 SAVDAT:
2284         OR      AL,AL
2285         JZ      $+5
2286         JMP     PUTBYT
2287         JMP     PUTWOR
2288 IF:
2289         OR      BX,BX
2290         JZ      SKIPCD
2291         INC     B,[IFFLG]
2292         RET
2293
2294 SKIPCD:
2295         INC     B,[CHKLAB]
2296 SKIPLP:
2297         XOR     AL,AL
2298         CALL    NEXLIN
2299         CALL    NEXTCHR
2300         CMP     AL,1AH
2301         JZ      END
2302         CALL    GETLAB
2303         JC      SKIPLP
2304         MOV     DI,LENID
2305         MOV     SI,IFEND
2306         MOV     CH,0
2307         MOV     CL,[DI]
2308         INC     CL
2309         REPE
2310         CMPB
2311         JZ      ENDCOND
2312         MOV     DI,LENID
2313         MOV     SI,IFNEST
2314         MOV     CL,[DI]
2315         INC     CL
2316         REPE
2317         CMPB
2318         JNZ     SKIPLP
2319         INC     B,[CHKLAB]
2320         JP      SKIPLP
2321
2322 ENDCOND:
2323         DEC     B,[CHKLAB]
2324         JNZ     SKIPLP
2325         RET
2326
2327 ENDIF:
2328         MOV     AL,[IFFLG]
2329         MOV     CL,36
2330         DEC     AL
2331         JS      ERRJMP
2332         MOV     [IFFLG],AL
2333         RET
2334
2335 ERRJMP: JMP     ERROR
2336
2337 ;*********************************************************************
2338 ;
2339 ;       PASS 2
2340 ;
2341 ;*********************************************************************
2342
2343 END:
2344         MOV     DL,4
2345 WREND:
2346         MOV     CH,0FFH
2347         MOV     AL,CH
2348         CALL    GEN
2349         DEC     DL
2350         JNZ     WREND
2351         MOV     [BUFPT],SRCBUF
2352         MOV     B,[HEXCNT],-5   ;FLAG HEX BUFFER AS EMPTY
2353         MOV     [LSTPNT],LSTBUF
2354         MOV     [HEXPNT],HEXBUF
2355         XOR     AX,AX
2356         MOV     [ERRCNT],AX
2357         MOV     [PC],AX
2358         MOV     [LINE],AX       ;Current line number
2359         MOV     [HEXADD],OBJECT
2360         MOV     DX,FCB
2361         MOV     AH,OPEN
2362         INT     33              ;Re-open source file
2363         XOR     AX,AX
2364         MOV     [FCB+12],AX     ;Set CURRENT BLOCK to zero
2365         MOV     [FCB+20H],AL    ;Set NEXT RECORD field to zero
2366         MOV     [FCB+14],BUFSIZ
2367         MOV     [COUNT],AL
2368         MOV     CH,1
2369         MOV     SI,START
2370 FIXLINE:
2371         MOV     DI,START        ;Store code over used up intermediate code
2372         XOR     AL,AL
2373         MOV     [SPC],AL        ;No "special" yet (ORG, PUT, DS)
2374         MOV     [ERR],AL        ;No second pass errors yet
2375 NEXBT:
2376         SHL     CL              ;Shift out last bit of previous code
2377         DEC     CH              ;Still have codes left?
2378         JNZ     TESTTYP
2379         LODB                    ;Get next flag byte
2380         MOV     CL,AL
2381         MOV     CH,4
2382 TESTTYP:
2383         SHL     CL              ;Set flags based on two bits
2384         JO      FIXUP
2385         LODB
2386         JC      EMARK
2387 OBJBT:
2388         STOB
2389         JP      NEXBT
2390
2391 FIXUP:
2392 ;Either a word or byte fixup is needed from a forward reference
2393         LODW                    ;Get pointer to symbol
2394         XCHG    AX,BX
2395         LODW                    ;Get constant part
2396         ADD     AX,[BX+1]       ;Add symbol value to constant part
2397         CMP     B,[BX],0        ;See if symbol got defined
2398         JNZ     HAVDEF
2399         MOV     B,[ERR],100     ;Undefined - flag error
2400         XOR     AX,AX
2401 HAVDEF:
2402         OR      CL,CL           ;See if word or byte fixup
2403         JS      DEFBYT
2404         STOW
2405         JP      NEXBT
2406
2407 DEFBYT:
2408         MOV     DX,AX
2409         CBW                     ;Extend sign
2410         CMP     AX,DX           ;See if in range +127 to -128
2411         JZ      OBJBT           ;If so, it's always OK
2412         NOT     AH              ;Check for range +255 to -256
2413         CMP     AH,DH
2414         JNZ     RNGERR          ;Must always be in this range
2415 ;Check for short jump. If so, we're out of range; otherwise we're OK
2416         CMP     DI,START+1      ;Only one other byte on line?
2417         JNZ     OBJBT           ;Can't be short jump if not
2418         MOV     AL,[START]      ;Get the first byte of this line
2419         CMP     AL,0EBH         ;Direct short jump?
2420         JZ      RNGERR
2421         AND     AL,0FCH
2422         CMP     AL,0E0H         ;LOOP or JCXZ instruction?
2423         JZ      RNGERR
2424         AND     AL,0F0H
2425         CMP     AL,70H          ;Conditional jump?
2426         MOV     AL,DL           ;Get code byte in AL
2427         JNZ     OBJBT           ;If not, we're OK
2428 RNGERR:
2429         MOV     B,[ERR],101     ;Value out of range
2430         JP      OBJBT
2431
2432 FINIJ:  JMP     FINI
2433
2434 EMARK:
2435         CMP     AL,-1           ;End of file?
2436         JZ      FINIJ
2437         CMP     AL,-10          ;Special item?
2438         JA      SPEND
2439         PUSH    CX
2440         PUSH    SI
2441         PUSH    AX              ;Save error code
2442         MOV     AH,[LSTDEV]
2443         AND     AH,0FEH         ;Reset error indicator
2444         OR      AL,[ERR]        ;See if any errors on this line
2445         JZ      NOERR
2446         OR      AH,1            ;Send line to console if error occured
2447 NOERR:
2448         MOV     [LSTDEV],AH
2449         MOV     CX,DI
2450         CALL    STRTLIN         ;Print address of line
2451         MOV     SI,START
2452         SUB     CX,SI           ;Get count of bytes of code
2453         JZ      SHOLIN
2454 CODLP:
2455         LODB
2456         CALL    SAVCD           ;Ouput code to HEX and PRN files
2457         LOOP    CODLP
2458 SHOLIN:
2459         MOV     AL,0
2460         XCHG    AL,[COUNT]
2461         MOV     CX,7            ;Allow 7 bytes of code per line
2462         SUB     CL,AL
2463         MOV     AL,' '
2464         JZ      NOFIL
2465 BLNK:                           ;Put in 3 blanks for each byte not present
2466         CALL    LIST
2467         CALL    LIST
2468         CALL    LIST
2469         LOOP    BLNK
2470 NOFIL:
2471         CALL    OUTLIN
2472         POP     AX              ;Restore error code
2473         CALL    REPERR
2474         MOV     AL,[ERR]
2475         CALL    REPERR
2476         POP     SI
2477         POP     CX
2478         MOV     AL,[SPC]        ;Any special funtion?
2479         OR      AL,AL
2480         JNZ     SPCFUN
2481         JMP     FIXLINE
2482
2483 SPEND:
2484         MOV     [SPC],AL        ;Record special function
2485         LODW                    ;Get it's data
2486         MOV     [DATA],AX
2487         JMP     NEXBT
2488
2489 SPCFUN:
2490         MOV     DX,[DATA]
2491         CMP     AL,-2
2492         JZ      DORG
2493         CMP     AL,-3
2494         JZ      DPUT
2495 DDS:
2496 ;Handle DS pseudo-op
2497         ADD     [PC],DX
2498         ADD     [HEXADD],DX
2499         JMP     FIXLINE
2500
2501 DORG:
2502 ;Handle ORG pseudo-op
2503         MOV     [PC],DX
2504         JMP     FIXLINE
2505
2506 DPUT:
2507 ;Handle PUT pseudo-op
2508         MOV     [HEXADD],DX
2509         JMP     FIXLINE
2510
2511 OUTLIN:
2512 ;Copy the source line to the ouput device. Line will be preceded by
2513 ;assembler-generated line number. This routine may be called several times
2514 ;on one line (once for each line of object code bytes), so it sets a flag
2515 ;so the line will only be output on the first call.
2516         MOV     AL,-1
2517         XCHG    AL,[LINFLG]
2518         OR      AL,AL
2519         JNZ     CRLF            ;Output line only if first time
2520         MOV     AX,[LINE]
2521         INC     AX
2522         MOV     [LINE],AX
2523         MOV     BH,0            ;No leading zero suppression
2524         CALL    OUT10
2525         MOV     AL," "
2526         CALL    LIST
2527         MOV     AL,[LSTFCB]
2528         CMP     AL,'Z'
2529         JZ      CRLF            ;Don't call NEXTCHR if listing suppressed
2530         PUSH    SI              ;Save the only register destroyed by NEXTCHR
2531 OUTLN:
2532         CALL    NEXTCHR
2533         CALL    LIST
2534         CMP     AL,10           ;Output until linefeed found
2535         JNZ     OUTLN
2536         POP     SI
2537         RET
2538
2539 PRTCNT:
2540         MOV     AX,[ERRCNT]
2541         MOV     BX,ERCNTM
2542 PRNT10:
2543         PUSH    AX
2544         CALL    PRINT
2545         POP     AX
2546         MOV     BH,"0"-" "      ;Enable leading zero suppression
2547         CALL    OUT10
2548 CRLF:
2549         MOV     AL,13
2550         CALL    LIST
2551         MOV     AL,10
2552         JP      LIST
2553
2554 OUT10:
2555         XOR     DX,DX
2556         MOV     DI,10000
2557         DIV     AX,DI
2558         OR      AL,AL           ;>10,000?
2559         JNZ     LEAD
2560         SUB     AL,"0"-" "      ;Convert leading zero to blank
2561 LEAD:
2562         ADD     AL,"0"
2563         CALL    LIST
2564         XCHG    AX,DX
2565         MOV     BL,100
2566         DIV     AL,BL
2567         MOV     BL,AH
2568         CALL    HIDIG           ;Convert to decimal and print 1000s digit
2569         CALL    DIGIT           ;Print 100s digit
2570         MOV     AL,BL
2571         CALL    HIDIG           ;Convert to decimal and print 10s digit
2572         MOV     BH,0            ;Ensure leading zero suppression is off
2573         JP      DIGIT
2574
2575 HIDIG:
2576         AAM                     ;Convert binary to unpacked BCD
2577         OR      AX,3030H        ;Add "0" bias
2578 DIGIT:
2579         XCHG    AL,AH
2580         CMP     AL,"0"
2581         JZ      SUPZ
2582         MOV     BH,0            ;Turn off zero suppression if not zero
2583 SUPZ:
2584         SUB     AL,BH           ;Convert leading zeros to blanks
2585         JP      LIST
2586
2587 STRTLIN:
2588         MOV     B,[LINFLG],0
2589         MOV     BX,[PC]
2590         MOV     AL,BH
2591         CALL    PHEX
2592         MOV     AL,BL
2593 PHEXB:
2594         CALL    PHEX
2595         MOV     AL,' '
2596 LIST:
2597         PUSH    AX
2598         PUSH    DX
2599         AND     AL,7FH
2600         MOV     DL,AL
2601         TEST    B,[LSTDEV],3    ;See if output goes to console
2602         JZ      PRNCHK
2603         MOV     AH,2
2604         INT     33              ;Output to console
2605 PRNCHK:
2606         TEST    B,[LSTDEV],4    ;See if output goes to printer
2607         JZ      FILCHK
2608         MOV     AH,5
2609         INT     33              ;Output to printer
2610 FILCHK:
2611         MOV     AL,DL
2612         POP     DX
2613         TEST    B,[LSTDEV],80H  ;See if output goes to a file
2614         JZ      LISTRET
2615         CALL    WRTBUF
2616 LISTRET:
2617         POP     AX
2618         RET
2619
2620 WRTBUF:
2621         PUSH    DI
2622         MOV     DI,[LSTPNT]
2623         STOB
2624         CMP     DI,LSTBUF+LSTBUFSIZ
2625         JNZ     SAVPT
2626         PUSH    AX
2627         PUSH    CX
2628         PUSH    DX
2629         CALL    FLUSHBUF
2630         POP     DX
2631         POP     CX
2632         POP     AX
2633 SAVPT:
2634         MOV     [LSTPNT],DI
2635         POP     DI
2636         RET
2637
2638 PHEX:
2639         PUSH    AX
2640         CALL    UHALF
2641         CALL    LIST
2642         POP     AX
2643         CALL    LHALF
2644         JP      LIST
2645
2646 FINI:
2647         OR      B,[LSTDEV],1
2648         CALL    PRTCNT
2649         MOV     BX,SYMSIZE
2650         MOV     AX,[6]
2651         SUB     AX,[HEAP]               ;Size of symbol table
2652         CALL    PRNT10
2653         MOV     BX,FRESIZE
2654         MOV     AX,[HEAP]
2655         SUB     AX,[CODE]               ;Free space remaining
2656         CALL    PRNT10
2657         AND     B,[LSTDEV],0FEH
2658         MOV     AL,[HEXFCB]
2659         CMP     AL,'Z'
2660         JZ      SYMDMP
2661         MOV     AL,[HEXCNT]
2662         CMP     AL,-5
2663         JZ      L0012
2664         CALL    ENHEXL
2665 L0012:
2666         MOV     AL,':'
2667         CALL    PUTCHR
2668         MOV     CH,10
2669 HEXEND:
2670         PUSH    CX
2671         MOV     AL,'0'
2672         CALL    PUTCHR
2673         POP     CX
2674         DEC     CH
2675         JNZ     HEXEND
2676         MOV     AL,13
2677         CALL    PUTCHR
2678         MOV     AL,10
2679         CALL    PUTCHR
2680         MOV     AL,1AH
2681         CALL    PUTCHR
2682         CALL    WRTHEX          ;Flush HEX file buffer
2683         MOV     DX,HEXFCB
2684         MOV     AH,CLOSE
2685         INT     33
2686 SYMDMP:
2687         MOV     AL,[SYMFLG]
2688         CMP     AL,'S'
2689         JNZ     ENDSYM
2690         MOV     AL,[LSTDEV]
2691         OR      AL,AL           ;Any output device for symbol table dump?
2692         JNZ     DOSYMTAB
2693         OR      AL,1            ;If not, send it to console
2694         MOV     [LSTDEV],AL
2695 DOSYMTAB:
2696         MOV     BX,SYMMES
2697         CALL    PRINT
2698         MOV     DX,[BASE]
2699         MOV     AL,DH
2700         OR      AL,DL
2701         JZ      ENDSYM
2702         MOV     B,[SYMLIN],SYMWID  ;No symbols on this line yet
2703         MOV     BX,[HEAP]
2704         MOV     SP,BX           ;Need maximum stack for recursive tree walk
2705         CALL    NODE
2706 ENDSYM:
2707         TEST    B,[LSTDEV],80H  ;Print listing to file?
2708         JZ      EXIT
2709         MOV     AL,1AH
2710         CALL    WRTBUF          ;Write end-of-file mark
2711         MOV     DI,[LSTPNT]
2712         CALL    FLUSHBUF
2713         MOV     AH,CLOSE
2714         INT     33
2715 EXIT:   JMP     0
2716
2717 NODE:
2718         XCHG    DX,BX
2719         PUSH    BX
2720         MOV     DL,[BX]
2721         MOV     DH,0
2722         INC     BX
2723         ADD     BX,DX
2724         MOV     DX,[BX]
2725         OR      DX,DX
2726         JZ      L0014
2727         CALL    NODE
2728 L0014:
2729         POP     BX
2730         MOV     AL,[BX]
2731         INC     BX
2732         MOV     CH,AL
2733         ADD     AL,24
2734         SHR     AL
2735         SHR     AL
2736         SHR     AL
2737         MOV     CL,AL
2738         INC     CL              ;Invert last bit
2739         AND     CL,1            ;Number of extra tabs needed (0 or 1)
2740         SHR     AL              ;Number of positions wide this symbol needs
2741         SUB     [SYMLIN],AL
2742         JNC     WRTSYM          ;Will it fit?
2743         SUB     AL,SYMWID
2744         NEG     AL
2745         MOV     [SYMLIN],AL
2746         CALL    CRLF            ;Start new line if not
2747 WRTSYM:
2748         MOV     AL,[BX]
2749         INC     BX
2750         CALL    LIST
2751         DEC     CH
2752         JNZ     WRTSYM
2753         INC     CL
2754 TABVAL:
2755         MOV     AL,9
2756         CALL    LIST
2757         LOOP    TABVAL
2758         INC     BX
2759         INC     BX
2760         PUSH    BX
2761         MOV     AL,[BX+4]
2762         CALL    PHEX
2763         MOV     AL,[BX+3]
2764         CALL    PHEX
2765         CMP     B,[SYMLIN],0    ;Will any more fit on line?
2766         JZ      NEXSYMLIN
2767         MOV     AL,9
2768         CALL    LIST
2769         JP      RIGHTSON
2770 NEXSYMLIN:
2771         CALL    CRLF
2772         MOV     B,[SYMLIN],SYMWID
2773 RIGHTSON:
2774         POP     BX
2775         MOV     DX,[BX]
2776         OR      DX,DX
2777         JNZ     NODE
2778         RET
2779
2780 SAVCD:
2781         MOV     [PREV],AL
2782         PUSH    BX
2783         PUSH    CX
2784         PUSH    AX
2785         PUSH    DX
2786         CALL    CODBYT
2787         POP     DX
2788         MOV     BX,COUNT
2789         INC     B,[BX]
2790         MOV     AL,[BX]
2791         CMP     AL,8
2792         JNZ     NOEXT
2793         MOV     B,[BX],1
2794         CALL    OUTLIN
2795         MOV     AL,' '
2796         MOV     CH,5
2797 TAB:
2798         CALL    LIST
2799         DEC     CH
2800         JNZ     TAB
2801 NOEXT:
2802         POP     AX
2803         CALL    PHEXB
2804         POP     CX
2805         INC     [PC]
2806         INC     [HEXADD]
2807         POP     BX
2808         RET
2809
2810 REPERR:
2811         OR      AL,AL           ;Did an error occur?
2812         JZ      RET
2813         INC     [ERRCNT]
2814         PUSH    AX
2815         MOV     BX,ERRMES       ;Print "ERROR"
2816         CALL    PRINT
2817         POP     AX
2818 ;We have error number in AL. See if there's an error message for it
2819         MOV     DI,ERRTAB
2820         MOV     BL,80H
2821 ERRLOOK:
2822         SCASB                   ;Do we have the error message
2823         JBE     HAVMES          ;Quit looking if we have it or passed it
2824         XCHG    AX,BX           ;Put 80H in AL to look for end of this message
2825 NEXTMES:
2826         SCASB                   ;Look for high bit set in message
2827         JA      NEXTMES         ;   which means we've reached the end
2828         XCHG    AX,BX           ;Restore error number to AL
2829         JMPS    ERRLOOK         ;Keep looking
2830
2831 HAVMES:
2832         MOV     BX,DI           ;Put address of message in BX
2833         JZ      PRNERR          ;Do we have a message for this error?
2834         CALL    PHEX            ;If not, just print error number
2835         JMP     CRLF
2836
2837 PRNERR:
2838         CALL    PRINT
2839         JMP     CRLF
2840
2841 PRINT:
2842         MOV     AL,[BX]
2843         CALL    LIST
2844         OR      AL,AL
2845         JS      RET
2846         INC     BX
2847         JP      PRINT
2848
2849 OUTA:
2850         MOV     DL,AL
2851 OUT:
2852         AND     DL,7FH
2853         MOV     CL,2
2854 SYSTEM:
2855         CALL    5
2856         RET
2857
2858 CODBYT:
2859         CMP     B,[HEXFCB],"Z"
2860         JZ      RET
2861         PUSH    AX
2862         MOV     DX,[LASTAD]
2863         MOV     BX,[HEXADD]
2864         MOV     [LASTAD],BX
2865         INC     DX
2866         MOV     AL,[HEXCNT]
2867         CMP     AL,-5
2868         JZ      NEWLIN
2869         CMP     BX,DX
2870         JZ      AFHEX
2871         CALL    ENHEXL
2872 NEWLIN:
2873         MOV     AL,':'
2874         CALL    PUTCHR
2875         MOV     AL,-4
2876         MOV     [HEXCNT],AL
2877         XOR     AL,AL
2878         MOV     [CHKSUM],AL
2879         MOV     BX,[HEXPNT]
2880         MOV     [HEXLEN],BX
2881         CALL    HEXBYT
2882         MOV     AL,[HEXADD+1]
2883         CALL    HEXBYT
2884         MOV     AL,[HEXADD]
2885         CALL    HEXBYT
2886         XOR     AL,AL
2887         CALL    HEXBYT
2888 AFHEX:
2889         POP     AX
2890 HEXBYT:
2891         MOV     CH,AL
2892         MOV     BX,CHKSUM
2893         ADD     AL,[BX]
2894         MOV     [BX],AL
2895         MOV     AL,CH
2896         CALL    UHALF
2897         CALL    PUTCHR
2898         MOV     AL,CH
2899         CALL    LHALF
2900         CALL    PUTCHR
2901         MOV     BX,HEXCNT
2902         INC     B,[BX]
2903         MOV     AL,[BX]
2904         CMP     AL,26
2905         JNZ     RET
2906 ENHEXL:
2907         MOV     DI,[HEXLEN]
2908         MOV     CH,AL
2909         CALL    UHALF
2910         STOB
2911         MOV     AL,CH
2912         CALL    LHALF
2913         STOB
2914         MOV     AL,-6
2915         MOV     [HEXCNT],AL
2916         MOV     AL,[CHKSUM]
2917         ADD     AL,CH
2918         NEG     AL
2919         CALL    HEXBYT
2920         MOV     AL,13
2921         CALL    PUTCHR
2922         MOV     AL,10
2923         CALL    PUTCHR
2924 WRTHEX:
2925 ;Write out the line
2926         MOV     DX,HEXBUF
2927         MOV     [HEXPNT],DX
2928         MOV     AH,SETDMA
2929         INT     33
2930         SUB     DI,DX           ;Length of buffer
2931         MOV     CX,DI
2932         MOV     DX,HEXFCB
2933         MOV     AH,BLKWRT
2934         INT     33
2935         OR      AL,AL
2936         JNZ     DSKFUL
2937         RET
2938
2939 PUTCHR:
2940         MOV     DI,[HEXPNT]
2941         STOB
2942         MOV     [HEXPNT],DI
2943         RET
2944
2945 FLUSHBUF:
2946         MOV     CX,DI
2947         MOV     DX,LSTBUF
2948         MOV     DI,DX
2949         SUB     CX,DX
2950         JZ      RET             ;Buffer empty?
2951         MOV     AH,SETDMA
2952         INT     33
2953         MOV     DX,LSTFCB
2954         MOV     AH,BLKWRT
2955         INT     33
2956         OR      AL,AL
2957         JZ      RET
2958 DSKFUL:
2959         MOV     BX,WRTERR
2960         JMP     PRERR
2961
2962 UHALF:
2963         RCR     AL
2964         RCR     AL
2965         RCR     AL
2966         RCR     AL
2967 LHALF:
2968         AND     AL,0FH
2969         OR      AL,30H
2970         CMP     AL,'9'+1
2971         JC      RET
2972         ADD     AL,7
2973         RET
2974
2975 NONE:   DB      0
2976
2977 ; 8086 MNEMONIC TABLE
2978
2979 ; This table is actually a sequence of subtables, each starting with a label.
2980 ; The label signifies which mnemonics the subtable applies to--A3, for example,
2981 ; means all 3-letter mnemonics beginning with A.
2982
2983 A3:
2984         DB      7
2985         DB      'dd'
2986         DW      GRP7
2987         DB      2
2988         DB      'nd'
2989         DW      GRP13
2990         DB      22H
2991         DB      'dc'
2992         DW      GRP7
2993         DB      12H
2994         DB      'aa'
2995         DW      PUT
2996         DB      37H
2997         DB      'as'
2998         DW      PUT
2999         DB      3FH
3000         DB      'am'
3001         DW      GRP11
3002         DB      0D4H
3003         DB      'ad'
3004         DW      GRP11
3005         DB      0D5H
3006 A5:
3007         DB      1
3008         DB      'lign'
3009         DW      ALIGN
3010         DB      0
3011 C3:
3012         DB      7
3013         DB      'mp'
3014         DW      GRP7
3015         DB      3AH
3016         DB      'lc'
3017         DW      PUT
3018         DB      0F8H
3019         DB      'ld'
3020         DW      PUT
3021         DB      0FCH
3022         DB      'li'
3023         DW      PUT
3024         DB      0FAH
3025         DB      'mc'
3026         DW      PUT
3027         DB      0F5H
3028         DB      'bw'
3029         DW      PUT
3030         DB      98H
3031         DB      'wd'
3032         DW      PUT
3033         DB      99H
3034 C4:
3035         DB      3
3036         DB      'all'
3037         DW      GRP14
3038         DB      9AH
3039         DB      'mpb'
3040         DW      PUT
3041         DB      0A6H
3042         DB      'mpw'
3043         DW      PUT
3044         DB      0A7H
3045 C5:
3046         DB      2
3047         DB      'mpsb'
3048         DW      PUT
3049         DB      0A6H
3050         DB      'mpsw'
3051         DW      PUT
3052         DB      0A7H
3053 D2:
3054         DB      5
3055         DB      'b'
3056         DW      GRP23
3057         DB      1
3058         DB      'w'
3059         DW      GRP23
3060         DB      0
3061         DB      'm'
3062         DW      GRP23
3063         DB      2
3064         DB      's'
3065         DW      GRP5
3066         DB      1
3067         DB      'i'
3068         DW      PUT
3069         DB      0FAH
3070 D3:
3071         DB      4
3072         DB      'ec'
3073         DW      GRP8
3074         DB      49H
3075         DB      'iv'
3076         DW      GRP10
3077         DB      30H
3078         DB      'aa'
3079         DW      PUT
3080         DB      27H
3081         DB      'as'
3082         DW      PUT
3083         DB      2FH
3084 D4:
3085         DB      1
3086         DB      'own'
3087         DW      PUT
3088         DB      0FDH
3089 E2:
3090         DB      1
3091         DB      'i'
3092         DW      PUT
3093         DB      0FBH
3094 E3:
3095         DB      3
3096         DB      'qu'
3097         DW      GRP5
3098         DB      2
3099         DB      'sc'
3100         DW      GRP19
3101         DB      0D8H
3102         DB      'nd'
3103         DW      END
3104         DB      0
3105 E5:
3106         DB      1
3107         DB      'ndif'
3108         DW      ENDIF
3109         DB      0
3110 H3:
3111         DB      1
3112         DB      'lt'
3113         DW      PUT
3114         DB      0F4H
3115 H4:
3116         DB      1
3117         DB      'alt'
3118         DW      PUT
3119         DB      0F4H
3120 I2:
3121         DB      2
3122         DB      'n'
3123         DW      GRP4
3124         DB      0E4H
3125         DB      'f'
3126         DW      GRP5
3127         DB      4
3128 I3:
3129         DB      4
3130         DB      'nc'
3131         DW      GRP8
3132         DB      41H
3133         DB      'nb'
3134         DW      GRP4
3135         DB      0E4H
3136         DB      'nw'
3137         DW      GRP4
3138         DB      0E5H
3139         DB      'nt'
3140         DW      GRP18
3141         DB      0CCH
3142 I4:
3143         DB      4
3144         DB      'mul'
3145         DW      GRP10
3146         DB      28H
3147         DB      'div'
3148         DW      GRP10
3149         DB      38H
3150         DB      'ret'
3151         DW      PUT
3152         DB      0CFH
3153         DB      'nto'
3154         DW      PUT
3155         DB      0CEH
3156 J2:
3157         DB      10
3158         DB      'p'
3159         DW      GRP17
3160         DB      0EBH
3161         DB      'z'
3162         DW      GRP17
3163         DB      74H
3164         DB      'e'
3165         DW      GRP17
3166         DB      74H
3167         DB      'l'
3168         DW      GRP17
3169         DB      7CH
3170         DB      'b'
3171         DW      GRP17
3172         DB      72H
3173         DB      'a'
3174         DW      GRP17
3175         DB      77H
3176         DB      'g'
3177         DW      GRP17
3178         DB      7FH
3179         DB      'o'
3180         DW      GRP17
3181         DB      70H
3182         DB      's'
3183         DW      GRP17
3184         DB      78H
3185         DB      'c'
3186         DW      GRP17
3187         DB      72H
3188 J3:
3189         DB      17
3190         DB      'mp'
3191         DW      GRP14
3192         DB      0EAH
3193         DB      'nz'
3194         DW      GRP17
3195         DB      75H
3196         DB      'ne'
3197         DW      GRP17
3198         DB      75H
3199         DB      'nl'
3200         DW      GRP17
3201         DB      7DH
3202         DB      'ge'
3203         DW      GRP17
3204         DB      7DH
3205         DB      'nb'
3206         DW      GRP17
3207         DB      73H
3208         DB      'ae'
3209         DW      GRP17
3210         DB      73H
3211         DB      'nc'
3212         DW      GRP17
3213         DB      73H
3214         DB      'ng'
3215         DW      GRP17
3216         DB      7EH
3217         DB      'le'
3218         DW      GRP17
3219         DB      7EH
3220         DB      'na'
3221         DW      GRP17
3222         DB      76H
3223         DB      'be'
3224         DW      GRP17
3225         DB      76H
3226         DB      'pe'
3227         DW      GRP17
3228         DB      7AH
3229         DB      'np'
3230         DW      GRP17
3231         DB      7BH
3232         DB      'po'
3233         DW      GRP17
3234         DB      7BH
3235         DB      'no'
3236         DW      GRP17
3237         DB      71H
3238         DB      'ns'
3239         DW      GRP17
3240         DB      79H
3241 J4:
3242         DB      6
3243         DB      'mps'
3244         DW      GRP17
3245         DB      0EBH
3246         DB      'cxz'
3247         DW      GRP17
3248         DB      0E3H
3249         DB      'nge'
3250         DW      GRP17
3251         DB      7CH
3252         DB      'nae'
3253         DW      GRP17
3254         DB      72H
3255         DB      'nbe'
3256         DW      GRP17
3257         DB      77H
3258         DB      'nle'
3259         DW      GRP17
3260         DB      7FH
3261 L3:
3262         DB      3
3263         DB      'ea'
3264         DW      GRP6
3265         DB      8DH
3266         DB      'ds'
3267         DW      GRP6
3268         DB      0C5H
3269         DB      'es'
3270         DW      GRP6
3271         DB      0C4H
3272 L4:
3273         DB      5
3274         DB      'oop'
3275         DW      GRP17
3276         DB      0E2H
3277         DB      'odb'
3278         DW      PUT
3279         DB      0ACH
3280         DB      'odw'
3281         DW      PUT
3282         DB      0ADH
3283         DB      'ahf'
3284         DW      PUT
3285         DB      9FH
3286         DB      'ock'
3287         DW      PUT
3288         DB      0F0H
3289 L5:
3290         DB      4
3291         DB      'oope'
3292         DW      GRP17
3293         DB      0E1H
3294         DB      'oopz'
3295         DW      GRP17
3296         DB      0E1H
3297         DB      'odsb'
3298         DW      PUT
3299         DB      0ACH
3300         DB      'odsw'
3301         DW      PUT
3302         DB      0ADH
3303 L6:
3304         DB      2
3305         DB      'oopne'
3306         DW      GRP17
3307         DB      0E0H
3308         DB      'oopnz'
3309         DW      GRP17
3310         DB      0E0H
3311 M3:
3312         DB      2
3313         DB      'ov'
3314         DW      GRP1
3315         DB      88H
3316         DB      'ul'
3317         DW      GRP10
3318         DB      20H
3319 M4:
3320         DB      2
3321         DB      'ovb'
3322         DW      PUT
3323         DB      0A4H
3324         DB      'ovw'
3325         DW      PUT
3326         DB      0A5H
3327 M5:
3328         DB      2
3329         DB      'ovsb'
3330         DW      PUT
3331         DB      0A4H
3332         DB      'ovsw'
3333         DW      PUT
3334         DB      0A5H
3335 N3:
3336         DB      3
3337         DB      'ot'
3338         DW      GRP9
3339         DB      10H
3340         DB      'eg'
3341         DW      GRP9
3342         DB      18H
3343         DB      'op'
3344         DW      PUT
3345         DB      90H
3346 O2:
3347         DB      1
3348         DB      'r'
3349         DW      GRP13
3350         DB      0AH
3351 O3:
3352         DB      2
3353         DB      'ut'
3354         DW      GRP4
3355         DB      0E6H
3356         DB      'rg'
3357         DW      GRP5
3358         DB      0
3359 O4:
3360         DB      2
3361         DB      'utb'
3362         DW      GRP4
3363         DB      0E6H
3364         DB      'utw'
3365         DW      GRP4
3366         DB      0E7H
3367 P3:
3368         DB      2
3369         DB      'op'
3370         DW      GRP22
3371         DB      8FH
3372         DB      'ut'
3373         DW      GRP5
3374         DB      3
3375 P4:
3376         DB      2
3377         DB      'ush'
3378         DW      GRP2
3379         DB      0FFH
3380         DB      'opf'
3381         DW      PUT
3382         DB      9DH
3383 P5:
3384         DB      1
3385         DB      'ushf'
3386         DW      PUT
3387         DB      9CH
3388 R3:
3389         DB      6
3390         DB      'et'
3391         DW      GRP16
3392         DB      0C3H
3393         DB      'ep'
3394         DW      PUT
3395         DB      0F3H
3396         DB      'ol'
3397         DW      GRP12
3398         DB      0
3399         DB      'or'
3400         DW      GRP12
3401         DB      8
3402         DB      'cl'
3403         DW      GRP12
3404         DB      10H
3405         DB      'cr'
3406         DW      GRP12
3407         DB      18H
3408 R4:
3409         DB      2
3410         DB      'epz'
3411         DW      PUT
3412         DB      0F3H
3413         DB      'epe'
3414         DW      PUT
3415         DB      0F3H
3416 R5:
3417         DB      2
3418         DB      'epnz'
3419         DW      PUT
3420         DB      0F2H
3421         DB      'epne'
3422         DW      PUT
3423         DB      0F2H
3424 S3:
3425         DB      11
3426         DB      'ub'
3427         DW      GRP7
3428         DB      2AH
3429         DB      'bb'
3430         DW      GRP7
3431         DB      1AH
3432         DB      'bc'
3433         DW      GRP7
3434         DB      1AH
3435         DB      'tc'
3436         DW      PUT
3437         DB      0F9H
3438         DB      'td'
3439         DW      PUT
3440         DB      0FDH
3441         DB      'ti'
3442         DW      PUT
3443         DB      0FBH
3444         DB      'hl'
3445         DW      GRP12
3446         DB      20H
3447         DB      'hr'
3448         DW      GRP12
3449         DB      28H
3450         DB      'al'
3451         DW      GRP12
3452         DB      20H
3453         DB      'ar'
3454         DW      GRP12
3455         DB      38H
3456         DB      'eg'
3457         DW      GRP21
3458         DB      26H
3459 S4:
3460         DB      5
3461         DB      'cab'
3462         DW      PUT
3463         DB      0AEH
3464         DB      'caw'
3465         DW      PUT
3466         DB      0AFH
3467         DB      'tob'
3468         DW      PUT
3469         DB      0AAH
3470         DB      'tow'
3471         DW      PUT
3472         DB      0ABH
3473         DB      'ahf'
3474         DW      PUT
3475         DB      9EH
3476 S5:
3477         DB      4
3478         DB      'casb'
3479         DW      PUT
3480         DB      0AEH
3481         DB      'casw'
3482         DW      PUT
3483         DB      0AFH
3484         DB      'tosb'
3485         DW      PUT
3486         DB      0AAH
3487         DB      'tosw'
3488         DW      PUT
3489         DB      0ABH
3490 T4:
3491         DB      1
3492         DB      'est'
3493         DW      GRP20
3494         DB      84H
3495 U2:
3496         DB      1
3497         DB      'p'
3498         DW      PUT
3499         DB      0FCH
3500 W4:
3501         DB      1
3502         DB      'ait'
3503         DW      PUT
3504         DB      9BH
3505 X3:
3506         DB      1
3507         DB      'or'
3508         DW      GRP13
3509         DB      32H
3510 X4:
3511         DB      2
3512         DB      'chg'
3513         DW      GRP3
3514         DB      86H
3515         DB      'lat'
3516         DW      PUT
3517         DB      0D7H
3518
3519
3520 ; 8087 MNEMONIC TABLE
3521 ; Similar to 8086 table above, except NOT distinguished by opcode length
3522
3523 XM1:    ;F2XM1
3524         DB      1               ;One opcode
3525         DM      "xm1"
3526         DB      1,0F0H
3527
3528 NDPA:
3529         DB      3
3530         DM      "dd"
3531         DB      6+ARITH,0C1H
3532         DM      "ddp"
3533         DB      NEEDOP+STACKOP,0
3534         DM      "bs"
3535         DB      1,0E1H
3536
3537 NDPB:
3538         DB      2
3539         DM      "ld"
3540         DB      7+NEEDOP+MEMORY,20H
3541         DM      "stp"
3542         DB      7+NEEDOP+MEMORY,30H
3543
3544 NDPC:
3545         DB      5
3546         DM      "om"
3547         DB      0+ONEREG+REAL,0D1H
3548         DM      "omp"
3549         DB      0+ONEREG+REAL,0D9H
3550         DM      "hs"
3551         DB      1,0E0H
3552         DM      "ompp"
3553         DB      6,0D9H
3554         DM      "lex"
3555         DB      3,0E2H
3556
3557 NDPD:
3558         DB      6
3559         DM      "iv"
3560         DB      6+ARITH,0F1H
3561         DM      "ivp"
3562         DB      NEEDOP+STACKOP,30H
3563         DM      "ivr"
3564         DB      6+ARITH,0F9H
3565         DM      "ivrp"
3566         DB      NEEDOP+STACKOP,38H
3567         DM      "ecstp"
3568         DB      1,0F6H
3569         DM      "isi"
3570         DB      3,0E1H
3571
3572 NDPE:
3573         DB      1
3574         DM      "ni"
3575         DB      3,0E0H
3576
3577 NDPF:
3578         DB      1
3579         DM      "ree"
3580         DB      5+NEEDOP+ONEREG,0
3581
3582 NDPI:
3583         DB      13
3584         DM      "add"
3585         DB      2+NEEDOP+INTEGER,0
3586         DM      "ld"
3587         DB      3+NEEDOP+INTEGER+EXTENDED,0
3588         DM      "sub"
3589         DB      2+NEEDOP+INTEGER,20H
3590         DM      "stp"
3591         DB      3+NEEDOP+INTEGER+EXTENDED,18H
3592         DM      "st"
3593         DB      3+NEEDOP+INTEGER,10H
3594         DM      "mul"
3595         DB      2+NEEDOP+INTEGER,8
3596         DM      "div"
3597         DB      2+NEEDOP+INTEGER,30H
3598         DM      "subr"
3599         DB      2+NEEDOP+INTEGER,28H
3600         DM      "divr"
3601         DB      2+NEEDOP+INTEGER,38H
3602         DM      "com"
3603         DB      2+NEEDOP+INTEGER,10H
3604         DM      "comp"
3605         DB      2+NEEDOP+INTEGER,18H
3606         DM      "ncstp"
3607         DB      1,0F7H
3608         DM      "nit"
3609         DB      3,0E3H
3610
3611 NDPL:
3612         DB      10
3613         DM      "d"
3614         DB      1+NEEDOP+ONEREG+REAL+EXTENDED,0
3615         DM      "dz"
3616         DB      1,0EEH
3617         DM      "d1"
3618         DB      1,0E8H
3619         DM      "dpi"
3620         DB      1,0EBH
3621         DM      "dl2t"
3622         DB      1,0E9H
3623         DM      "dl2e"
3624         DB      1,0EAH
3625         DM      "dlg2"
3626         DB      1,0ECH
3627         DM      "dln2"
3628         DB      1,0EDH
3629         DM      "dcw"
3630         DB      1+NEEDOP+MEMORY,28H
3631         DM      "denv"
3632         DB      1+NEEDOP+MEMORY,20H
3633
3634 NDPM:
3635         DB      2
3636         DM      "ul"
3637         DB      6+ARITH,0C9H
3638         DM      "ulp"
3639         DB      NEEDOP+STACKOP,8
3640
3641 NDPO:
3642         DB      1
3643         DM      "p"
3644         DB      NEEDOP+1,0      ;Flag special handling
3645
3646 NDPN:
3647         DB      1
3648         DM      "op"
3649         DB      1,0D0H
3650
3651 NDPP:
3652         DB      3
3653         DM      "rem"
3654         DB      1,0F8H
3655         DM      "tan"
3656         DB      1,0F2H
3657         DM      "atan"
3658         DB      1,0F3H
3659
3660 NDPR:
3661         DB      2
3662         DM      "ndint"
3663         DB      1,0FCH
3664         DM      "stor"
3665         DB      5+NEEDOP+MEMORY,20H
3666
3667 NDPS:
3668         DB      12
3669         DM      "t"
3670         DB      5+NEEDOP+ONEREG+REAL,0D0H
3671         DM      "tp"
3672         DB      7+NEEDOP+ONEREG+REAL+EXTENDED,0D8H
3673         DM      "ub"
3674         DB      6+ARITH,0E1H
3675         DM      "ubp"
3676         DB      NEEDOP+STACKOP,0E0H
3677         DM      "ubr"
3678         DB      6+ARITH,0E9H
3679         DM      "ubrp"
3680         DB      NEEDOP+STACKOP,0E8H
3681         DM      "qrt"
3682         DB      1,0FAH
3683         DM      "cale"
3684         DB      1,0FDH
3685         DM      "ave"
3686         DB      5+NEEDOP+MEMORY,30H
3687         DM      "tcw"
3688         DB      1+NEEDOP+MEMORY,38H
3689         DM      "tenv"
3690         DB      1+NEEDOP+MEMORY,30H
3691         DM      "tsw"
3692         DB      5+NEEDOP+MEMORY,38H
3693
3694 NDPT:
3695         DB      1
3696         DM      "st"
3697         DB      1,0E4H
3698
3699 NDPW:
3700         DB      1
3701         DM      "ait"
3702         DB      NEEDOP,0        ;Flag special handling
3703
3704 NDPX:
3705         DB      3
3706         DM      "ch"
3707         DB      1+ONEREG,0C9H
3708         DM      "am"
3709         DB      1,0E5H
3710         DM      "tract"
3711         DB      1,0F4H
3712
3713 NDPY:
3714         DB      2
3715         DM      "l2x"
3716         DB      1,0F1H
3717         DM      "l2xp1"
3718         DB      1,0F9H
3719
3720
3721 OPTAB:
3722 ; Table of pointers  to mnemonics. For each letter of the alphabet (the
3723 ; starting letter of the mnemonic), there are 5 entries. Each entry
3724 ; corresponds to a mnemonic whose length is 2, 3, 4, 5, and 6 characters
3725 ; long, respectively. If there are no mnemonics for a given combination
3726 ; of first letter and length (such as A-2), then the corresponding entry
3727 ; points to NONE. Otherwise, it points to a place in the mnemonic table
3728 ; for that type.
3729
3730 ; This table only needs to be modified if a mnemonic is added to a group
3731 ; previously marked NONE. Change the NONE to a label made up of the first
3732 ; letter of the mnemonic and its length, then add a new subsection to
3733 ; the mnemonic table in alphabetical order.
3734
3735         DW      NONE
3736         DW      A3
3737         DW      NONE
3738         DW      A5
3739         DW      NONE
3740         DW      NONE    ;B
3741         DW      NONE
3742         DW      NONE
3743         DW      NONE
3744         DW      NONE
3745         DW      NONE    ;C
3746         DW      C3
3747         DW      C4
3748         DW      C5
3749         DW      NONE
3750         DW      D2      ;D
3751         DW      D3
3752         DW      D4
3753         DW      NONE
3754         DW      NONE
3755         DW      E2      ;E
3756         DW      E3
3757         DW      NONE
3758         DW      E5
3759         DW      NONE
3760         DW      NONE    ;F
3761         DW      NONE
3762         DW      NONE
3763         DW      NONE
3764         DW      NONE
3765         DW      NONE    ;G
3766         DW      NONE
3767         DW      NONE
3768         DW      NONE
3769         DW      NONE
3770         DW      NONE    ;H
3771         DW      H3
3772         DW      H4
3773         DW      NONE
3774         DW      NONE
3775         DW      I2      ;I
3776         DW      I3
3777         DW      I4
3778         DW      NONE
3779         DW      NONE
3780         DW      J2      ;J
3781         DW      J3
3782         DW      J4
3783         DW      NONE
3784         DW      NONE
3785         DW      NONE    ;K
3786         DW      NONE
3787         DW      NONE
3788         DW      NONE
3789         DW      NONE
3790         DW      NONE    ;L
3791         DW      L3
3792         DW      L4
3793         DW      L5
3794         DW      L6
3795         DW      NONE    ;M
3796         DW      M3
3797         DW      M4
3798         DW      M5
3799         DW      NONE
3800         DW      NONE    ;N
3801         DW      N3
3802         DW      NONE
3803         DW      NONE
3804         DW      NONE
3805         DW      O2      ;O
3806         DW      O3
3807         DW      O4
3808         DW      NONE
3809         DW      NONE
3810         DW      NONE    ;P
3811         DW      P3
3812         DW      P4
3813         DW      P5
3814         DW      NONE
3815         DW      NONE    ;Q
3816         DW      NONE
3817         DW      NONE
3818         DW      NONE
3819         DW      NONE
3820         DW      NONE    ;R
3821         DW      R3
3822         DW      R4
3823         DW      R5
3824         DW      NONE
3825         DW      NONE    ;S
3826         DW      S3
3827         DW      S4
3828         DW      S5
3829         DW      NONE
3830         DW      NONE    ;T
3831         DW      NONE
3832         DW      T4
3833         DW      NONE
3834         DW      NONE
3835         DW      U2      ;U
3836         DW      NONE
3837         DW      NONE
3838         DW      NONE
3839         DW      NONE
3840         DW      NONE    ;V
3841         DW      NONE
3842         DW      NONE
3843         DW      NONE
3844         DW      NONE
3845         DW      NONE    ;W
3846         DW      NONE
3847         DW      W4
3848         DW      NONE
3849         DW      NONE
3850         DW      NONE    ;X
3851         DW      X3
3852         DW      X4
3853         DW      NONE
3854         DW      NONE
3855         DW      NONE    ;Y
3856         DW      NONE
3857         DW      NONE
3858         DW      NONE
3859         DW      NONE
3860         DW      NONE    ;Z
3861         DW      NONE
3862         DW      NONE
3863         DW      NONE
3864         DW      NONE
3865
3866 NDPTAB:
3867 ;Lookup table for 8087 mnemonics. There is one entry for each letter of the
3868 ;alphabet
3869         DW      NDPA
3870         DW      NDPB
3871         DW      NDPC
3872         DW      NDPD
3873         DW      NDPE
3874         DW      NDPF
3875         DW      NONE    ;G
3876         DW      NONE    ;H
3877         DW      NDPI
3878         DW      NONE    ;J
3879         DW      NONE    ;K
3880         DW      NDPL
3881         DW      NDPM
3882         DW      NDPN
3883         DW      NDPO
3884         DW      NDPP
3885         DW      NONE    ;Q
3886         DW      NDPR
3887         DW      NDPS
3888         DW      NDPT
3889         DW      NONE    ;U
3890         DW      NONE    ;V
3891         DW      NDPW
3892         DW      NDPX
3893         DW      NDPY
3894         DW      NONE    ;Z
3895
3896 ;Error message table
3897
3898 ERRTAB:
3899         DM      1,"Register not allowed in immediate value"
3900         DM      2,"Index or base register must be BP, BX, SI, or DI"
3901         DM      3,"Only one base register (BX, BP) allowed"
3902         DM      4,"Only one index register (SI or DI) allowed"
3903         DM      5,"Only addition allowed on register or undefined label"
3904         DM      6,"Only one undefined label per expression allowed"
3905         DM      7,"Illegal digit in hexadecimal number"
3906         DM      8,"Illegal digit in decimal number"
3907         DM      10,"Illegal character in label or opcode"
3908         DM      11,"Label defined twice"
3909         DM      12,"Opcode not recognized"
3910         DM      20,"Invalid operand"
3911         DM      21,'"," and second operand expected'
3912         DM      22,"Register mismatch"
3913         DM      23,"Immediate operand not allowed"
3914         DM      24,'"]" expected'
3915         DM      25,"Two memory operands not allowed"
3916         DM      26,"Destination must not be immediate value"
3917         DM      27,"Both operands must not be registers"
3918         DM      28,"Operand must be segment register"
3919         DM      29,"First operand must be register"
3920         DM      30,"Undefined label not allowed"
3921         DM      31,"Value out of range"
3922         DM      32,"Missing or illegal operand size flag"
3923         DM      33,"Must have label on same line"
3924         DM      35,"Zero-length string illegal"
3925         DM      36,"ENDIF without IF"
3926         DM      37,"One-character strings only"
3927         DM      38,"Illegal expression"
3928         DM      39,"End of string not found"
3929         DM      100,"Undefined label"
3930         DM      101,"Value out of range (forward)"
3931         DB      255
3932
3933 ERRMES: DM      '***** ERROR:  '
3934 NOSPAC: DB      13,10,'File creation error',13,10,"$"
3935 NOMEM:  DB      13,10,'Insufficient memory',13,10,'$'
3936 NOFILE: DB      13,10,'File not found',13,10,'$'
3937 WRTERR: DB      13,10,'Disk full',13,10,'$'
3938 BADDSK: DB      13,10,'Bad disk specifier',13,10,'$'
3939 ERCNTM: DM      13,10,13,10,'Error Count ='
3940 SYMSIZE DM      13,10,'Symbol Table size = '
3941 FRESIZE DM            'Free space =        '
3942 SYMMES: DM      13,10,'Symbol Table',13,10,13,10
3943 EXTEND: DB      'ASM',0,0
3944 IFEND:  DB      5,'endif'
3945 IFNEST: DB      2,'if'
3946 RETSTR: DM      'ret'
3947 HEXFCB: DB      0,'        HEX',0,0,0,0
3948         DS      16
3949         DB      0,0,0,0,0
3950 LSTFCB: DB      0,'        PRN',0,0,0,0
3951         DS      16
3952         DB      0,0,0,0,0
3953 PC:     DS      2
3954 OLDPC:  DS      2
3955 LABPT:  DS      2
3956 FLAG:   DS      1
3957 MAXFLG: DS      1
3958 ADDR:   DS      2
3959 ALABEL: DS      2
3960 DATA:   DS      2
3961 DLABEL: DS      2
3962 CON:    DS      2
3963 UNDEF:  DS      2
3964 LENID:  DS      1
3965 ID:     DS      80
3966 CHR:    DS      1
3967 SYM:    DS      1
3968 BASE:   DS      2
3969 HEAP:   DS      2
3970 SYMFLG: DS      1
3971 SYMLIN: DS      1
3972 CODE:   DS      2
3973 DATSIZ: DS      1
3974 RELOC:  DS      1
3975 BCOUNT: DS      1
3976 COUNT:  DS      1
3977 ERR:    DS      1
3978 LINE:   DS      2
3979 HEXLEN: DS      2
3980 HEXADD: DS      2
3981 LASTAD: DS      2
3982 HEXCNT: DS      1
3983 CHKSUM: DS      1
3984 LINFLG: DS      1
3985 PREV:   DS      1
3986 IFFLG:  DS      1
3987 CHKLAB: DS      1
3988 ERRCNT: DS      2
3989 LSTRET: DS      2
3990 RETPT:  DS      2
3991 LSTDEV: DS      2
3992 SPC:    DS      1
3993 NOWAIT: DS      1
3994 IX:     DS      2
3995 IY:     DS      2
3996 HEXPNT: DS      2
3997 LSTPNT: DS      2
3998 HEXBUF: DS      HEXBUFSIZ
3999 LSTBUF: DS      LSTBUFSIZ
4000 BUFPT:  DS      2
4001 SRCBUF: DS      BUFSIZ
4002         DS      100H
4003         ALIGN
4004 STACK:  EQU     $
4005 START:  EQU     $
4006 \1a