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
Comments