Retro1.org codex

*DECK EXGETBG 
          IDENT  GETBIG 
          ENTRY  GETBIG 
          USE    /TSBMDAT/
 CTSBLWA  BSS    1
 TSBFWA   BSS    1
 PTSBLWA  BSS    1
 BIGFREE  BSS    1
 FFFWA    BSS    1
          USE    /*/
**
*         GETBIG
* 
*         GETBIG LOCATES THE LARGEST FREE TSB IN THE TSB AREA AND STORES
*           ITS SIZE IN CELL BIGFREE
* 
* 
          EJECT 
 GETBIG   BSS    1
          SA1    FFFWA       START SEARCH WITH FIRST FREE TSB 
          SA3    CTSBLWA     STOP SEARCH AT END OF TSB AREA 
          SA2    X1 
          SB3    X3 
          SB4    B0          START WITH SIZE ZERO 
 GB1      SB5    A2          SAVE TSB ADDRESS 
          SB2    X2          SAVE CURRENT TSB SIZE
          NG     X2,GB2      TSB IS NOT FREE
          LT     B2,B4,GB2   SIZE IS NOT LARGER THAN CURRENT LARGEST
          SB4    B2          SAVE NEW LARGEST SIZE
 GB2      GE     B5,B3,FINISH  ALL TSBS SEARCHED
          SA2    A2+B2       GET NEXT TSB HEADER
          EQ     GB1
* 
*         ALL TSBS CHECKED, BIGGEST SIZE IS IN B4 
* 
 FINISH   SX6    B4 
          SA6    BIGFREE     SAVE LARGEST SIZE
          EQ     GETBIG      RETURN 
          END