;--------------------------- "Loading XI79" $PRINT CRLF ; custom 7900 format, 3 volumes of 12 dec files each ; no prompts, just does it after confirming DEFINE XI79 "Format disk for 7900? (Y/N) " $PRINT CHRIN "Y" $HEAD $DROP SUB CRLF IFZ "Working... " $PRINT WKBUF DUP 1777 ADD +DO INDEX #0 PUT +LOOP ;clear work buffer WKBUF ;push mem ptr #0 7 +DO DUP INDEX ADD 20040 PUT +LOOP ;clear vol 0 name 13 ADD DUP 14 PUT ;12 dec files in dir INC DUP 7 PUT ;vol 0 dir ptr in block 7 INC INC DUP 47 PUT ;vol 0 file space at 47 INC INC ;point to next entry #0 7 +DO DUP INDEX ADD 20040 PUT +LOOP ;clear vol 1 name 13 ADD DUP 14 PUT ;12 dec files in dir INC DUP 2247 PUT ;dir ptr in block 2247 INC INC DUP 647 PUT ;file space at 647 INC INC #0 7 +DO DUP INDEX ADD 20040 PUT +LOOP ;clear vol 2 name 13 ADD DUP 14 PUT ;12 dec files in dir INC DUP 2250 PUT ;dir ptr in block 2250 INC INC 1447 PUT ;file space at 1447, drop ptr #0 6 SBLA WKBUF W-1K