> Man/src 0.30  Display manual pages % Syntax: *Man (
) ($ Syntax: *Man (
) 2 Man Item -> I.#Item < Man 1 Item -> I.1Item F$ Man Item(1) -> I.1Item etc... P: Z6"Display command: (lpS) "cmd$:cmd$="":cmd$="lpS" d="Manual files dir: (%.Docs) "dir$:cmd$="":cmd$="%.Docs" n="Command to save: (%.Man) "save$:save$="":save$="%.Man" x) mcode% &1FF:load%=&FFFF0900:ptr=&A8 *OSARGS=&FFDA:OSFILE=&FFDD:OS_CLI=&FFF7 P=0 1 P%=load%:O%=mcode% [OPT P*2+4 .Load 1EQUW ItemPath:EQUW ItemPath:EQUW &FFFF:EQUB 0 .Info @EQUW ItemPath :\ Control block overlaps code .start% %LDX #ptr:LDY #0:LDA #1:JSR OSARGS %LDA (ptr),Y:CMP #13:BEQ ManNoItem 1INY:LDA (ptr),Y:DEY:CMP #" ":BNE GetItemText :LDA (ptr),Y:STA ItemText :\ Prefix section number .SkipSpace INY:LDA (ptr),Y CMP #" ":BEQ SkipSpace ".GetItemText ,"LDX #1:LDA (ptr),Y:STA ItemDir 6 .Loop @%LDA (ptr),Y:CMP #"(":BNE PutChar J;INY:LDA (ptr),Y:STA ItemText :\ Postfix section number T LDA #13 ^ .PutChar hSTA ItemText,X:INX:INY rCMP #13:BNE Loop |.ManNoItem #LDX #Info 255:LDY #Info 256 LDA #5:JSR OSFILE :LDX Info+5:INX:BNE ManCommand :\ Load<>&FFxxxxxx :LDX Info+4:INX:BNE ManCommand :\ Load<>&FFFFxxxx :LDX Info+3:CPX #&C0:BNE ManCommand :\ Load<>&FFFFC0xx 4LDA Info+11:A Info+12:A Info+13 :\ Length>255? BNE ManCommand #LDX #Load 255:LDY #Load 256  LDA #255:JSR OSFILE:LDX #255 .ManCommand  LDX #255  .ManCmdLp BINX:LDA ItemCmd,X:STA &100,X :\ Copy command onto stack ECMP #32:BCS ManCmdLp :\ as *lpS loads on top of me BLDA #13:STA &100,X :\ Ensure terminating LDX #0:LDY #1:JMP OS_CLI &: 0'.ItemCmd :EQUS cmd$+" " :\ "lpS " :2.ItemPath:EQUS dir$+"." :\ "$Docs.ManPages." D.ItemDir :EQUS "M." N!.ItemText:EQUS "#Man":EQUB 13 XEQUS "v0.30*******" b: l]: v"Saving ";save$; Ssave$="*Save "+save$+" "+~mcode%+" "+~O%+" "+~(start%&FFFF0000)+" "+~load%  save$: