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