.title k11dfh default help for kermit-11 .ident /1.0.01/ .include /IN:K11MAC.MAC/ .psect ; 13-Jan-84 12:33:55 Brian Nelson ; .sbttl print minimal help out for KERMIT-11 defhlp::message message ,cr message mov #khelp ,r1 ; point to the text strlen r1 ; get the total string length 10$: mov r0 ,r2 ; amount left to print cmp r2 ,#100 ; dump 64 bytes at a time blo 20$ ; almost done mov #100 ,r2 ; not yet done, dump 64 bytes 20$: print r1 ,r2 ; dump it add #100 ,r1 ; address := address + 100 sub #100 ,r0 ; leftover := leftover - 100 bgt 10$ ; next message ; a last cr/lf return .sbttl minimal help text .nlist bin .macro txt str .ascii #str# .byte cr,lf .endm txt .psect $pdata khelp: txt < @ filespec> txt < BYE> txt < CONNECT> txt < DIRECT filespec> txt < DISCONNECT> txt < EXIT> txt < FINISH> txt < GET filespec> txt < HANGUP> txt < HELP topic> txt < LOCAL Kermit command name> txt < QUIT> txt < RECEIVE filename> txt <> txt < REMOTE BYE> txt < REMOTE FINISH> txt < REMOTE GET> txt < REMOTE SPACE> txt <> txt < RENAME oldname newname> txt < SEND filespec> txt < SERVER> txt <> txt < SET BLOCK-CHECK 1-CHARACTER-CHECKSUM> txt < SET BLOCK-CHECK 2-CHARACTER-CHECKSUM> txt < SET BLOCK-CHECK 3-CHARACTER-CRC-CCITT> txt <> txt < SET DEBUG ALL> txt < SET DEBUG CONSOLE> txt < SET DEBUG CONNECT> txt < SET DEBUG FILE> txt < SET DEBUG HELP> txt < SET DEBUG NONE> txt < SET DEBUG OFF> txt < SET DEBUG ON> txt < SET DEBUG PACKET> txt < SET DEBUG STATE> txt <> txt < SET DEFAULT DEV:[UIC]> txt < SET DIRECTORY DEV:[UIC]> txt < SET DTR > txt < SET END-OF-LINE octal value> txt < SET ESCAPE Octal value> txt < SET FILETYPE Binary or Ascii> txt < SET HANGUP> txt < SET HOME > txt < SET LINE device name> txt < SET LOGFILE filename.type> txt < SET PACKET-LENGTH decimal value> txt < SET PARITY> txt < SET PAUSE decimal number> txt < SET RETRY decimal number> txt < SET SPEED decimal number> txt < SET TIMEOUT decimal number> txt <> txt < SHOW ALL > txt < SHOW BLOCK-CHECK-TYPE> txt < SHOW DEBUG > txt < SHOW DEFAULT> txt < SHOW DIRECTORY> txt < SHOW ESCAPE> txt < SHOW FILETYPE> txt < SHOW LINE> txt < SHOW PACKET> txt < SHOW PARAMETERS> txt < SHOW TIME> txt < SHOW VERSION> txt <> txt < SPACE> txt < SYSTEM CCL/DCL/MCR command> txt < TAKE filename.type> txt < TYPE filename.type> txt <> txt txt txt .byte 0 .even .list bin .end