Bytess paren

Wie man früher Bytes gespart hat (Auszug aus Original Quellcode MBASIC-80 von Microsoft)

;--------- ---- -- ---- ----- --- ---- -----
;COPYRIGHT 1975 BY BILL GATES AND PAUL ALLEN
;--------- ---- -- ---- ----- --- ---- -----

;ORIGINALLY WRITTEN ON THE PDP-10 FROM
;FEBRUARY 9 TO  APRIL 9 1975

;BILL GATES WROTE A LOT OF STUFF.
;PAUL ALLEN WROTE A LOT OF OTHER STUFF AND FAST CODE.
;MONTE DAVIDOFF WROTE THE MATH PACKAGE (F4I.MAC).


DATSNE: LHLD    DATLIN          ;GET DATA LINE
    SHLD    CURLIN          ;MAKE IT CURRENT LINE
SNERR:  MVI E,ERRSN         ;"SYNTAX ERROR"
    DB  1Q          ;"LXI B," OVER THE NEXT 2
DV0ERR: MVI E,ERRDV0        ;DIVISION BY ZERO
    DB  1Q          ;"LXI B," OVER THE NEXT 2
NFERR:  MVI E,ERRNF         ;"NEXT WITHOUT FOR" ERROR
    PUBLIC  DDERR
    DB  1Q          ;"LXI B," OVER THE NEXT TWO BYTES
DDERR:  MVI E,ERRDD         ;"REDIMENSIONED VARIABLE"
    DB  1Q          ;"LXI B," OVER THE NEXT 2 BYTES
UFERR:  MVI E,ERRUF         ;"UNDEFINED FUNCTION" ERROR
    DB  1Q          ;"LXI B," OVER THE NEXT TWO
REERR:  MVI E,ERRRE         ;"RESUME WITHOUT ERROR"
    DB  1Q          ;"LXI B," OVER THE NEXT TWO
OVERR:  MVI E,ERROV         ;SET OVERFLOW ERROR CODE
    DB  1Q          ;"LXI B," OVER NEXT TWO
MOERR:  MVI E,ERRMO         ;TYPE MISMATCH ERROR
    DB  1Q          ;"LXI   B," OVER THE NEXT TWO
TMERR:  MVI E,ERRTM         ;TYPE MISMATCH ERROR
ERROR:
HLPEDT  SET 0
    IF  HLPEDT
    PUBLIC  AUTFLG
    LHLD    HLPTXA
    SHLD    HLPERA