Columbia Kermit/kermit.zip/b/krthlp.min

Text File | 2020-01-01 | 13KB | 741 lines

    .title  KRTHLP.MIN    31-May-93  13:09:43
    .ident    "V03.62"

; /62/    31-May-93  Billy Youdelman

;    Copyright 1986 Brian Nelson

    .include "IN:KRTMAC.MIN"
    .iif ndf  KRTINC  .error    <; .include for IN:KRTMAC.MIN failed>

    .mcall    .RCTRLO

    CVTARG    = C.CRLF ! C.LSPA ! C.SSPA ! C.LCUC ! C.TSPA


    .sbttl    Local data

    .psect    $pdata
bugtxt:    .asciz    "Upgrades"
dbldash:.asciz    " --"
fill7:    .byte    cr ,lf ,40 ,40 ,40 ,40 ,40 ,40
filler:    .byte    40 ,0
p2lp$:    .asciz    "LP:KRTHLP.OUT"
ptopic:    .asciz    " Select topic, please: "
    .even
sub.0:    .word    sub.2 ,sub.3 ,sub.4

    .psect    $rwdata    ,rw,d,lcl,rel,con
backlev:.word    0
backup:    .word    0
hlpbuf:    .blkb    200
htopic:    .blkb    200
idxdmp:    .word    0
prbuff:    .blkb    200
prmptd:    .word    0
rmsidx:    .word    0
sub.2:    .blkb    100
sub.3:    .blkb    100
sub.4:    .blkb    100
subwild:.word    0
topics:    .word    0 ,0 ,0 ,0 ,0 ,0 ,0 ,0
topbuf:    .blkb    200
toplev:    .word    0
ttbuff:    .blkb    200
wild:    .word    0


    .psect    $code
    .sbttl    HELP main_loop
    .enabl    lsb

c$bug::    strcpy    argbuf    ,#bugtxt
    br    c$help

prihlp::tst    outopn
    beq    1$
    mov    #er$lby    ,r0
    br    2$

1$:    calls    create    ,<#p2lp$,#lun.ou,#text>
    tst    r0
    beq    3$
2$:    direrr    r0
    return

3$:    mov    sp    ,outopn
    mov    #lun.ou    ,xprint

c$help::call    hlpopn
    tst    r0
    beq    9$
    jmp    99$

9$:    upcase    argbuf
    clr    prmptd
    clr    subwild

10$:    clr    idxdmp
    clr    wild
    clr    topics
    clrb    prbuff
    mov    #hlphead,rmsidx
    mov    argbuf    ,r5
    tstb    @r5
    beq    60$
    call    parse
    call    hfind
    tst    r0
    beq    20$
    dec    r0
    beq    50$
    mov    sp    ,wild
20$:    call    hprint
    br    70$

50$:    message    < Help not found for the requested topic>,cr
    mov    backup    ,rmsidx
    beq    55$
    mov    backlev    ,toplev
    clr    backup
    clr    idxdmp
    clr    wild
    br    20$
55$:    clr    topics
    clrb    prbuff
    clrb    hlpbuf
    mov    #hlphead,rmsidx
60$:    .newline
    mov    #'1    ,-(sp)
    call    hindex

70$:    tst    idxdmp
    beq    99$
    mov    #prbuff    ,r3
    mov    argbuf    ,r4
    mov    #topics    ,r5
    clrb    @r4
75$:    mov    (r5)+    ,r2
    beq    80$
    cmpb    (r2)    ,#'*
    beq    100$
    strcat    r4    ,r2
    strcat    r4    ,#filler
    br    75$
80$:    tstb    @r3
    beq    88$
    strcat    r3    ,#dbldash
88$:    strcat    r3    ,#ptopic
    clr    subwild
    .rctrlo
    .newline
    calls    readcmd    ,<#ttbuff,r3>
    tst    r0
    bne    100$
    calls    cvt$$    ,<#ttbuff,r1,#cvtarg>
    tst    r0
    beq    99$
    clrb    ttbuff(r0)
    cmpb    ttbuff    ,#'*
    bne    89$
    mov    sp    ,subwild
89$:    strcat    r4    ,#ttbuff
    mov    sp    ,prmptd
    jmp    10$

99$:    clr    r0
100$:    save    <r0>
    tst    outopn
    beq    110$
    calls    close    ,<#lun.ou>
    clr    outopn
110$:    clr    xprint
    calls    close    ,<#lun.in>
    clr    inopn
    unsave    <r0>
    return

    .dsabl    lsb


    .sbttl    Parse command line

parse:    save    <r3,r4,r5>
    mov    #topbuf    ,r4
    mov    #topics    ,r3
    clr    @r3

10$:    tstb    @r5
    beq    100$
    cmpb    @r5    ,#space
    bne    15$
    inc    r5
    br    10$
15$:    mov    r4    ,(r3)+
    clr    @r3
20$:    tstb    @r5
    beq    30$
    cmpb    @r5    ,#space
    beq    30$
    movb    (r5)+    ,(r4)+
    br    20$
30$:    clrb    (r4)+
    br    10$
100$:    unsave    <r5,r4,r3>
    return


    .sbttl    Find the topic in the help file

hfind:    save    <r2,r3,r4,r5>
    mov    #topics    ,r5
    mov    #'1    ,r2
    clrb    htopic
    mov    #hlphead,r4

10$:    tst    @r5
    beq    100$
    mov    @r4    ,r1
    beq    90$
    cmpb    @r1    ,r2
    blo    90$
    bne    80$

    inc    r1
    inc    r1
    mov    (r5)    ,r3
    cmpb    (r3)    ,#'*
    beq    85$

50$:    tstb    (r3)
    beq    70$
    tstb    (r1)
    beq    80$
    movb    (r1)+    ,r0
    cmpb    r0    ,#'a!40
    blo    55$
    cmpb    r0    ,#'z!40
    bhi    55$
    bicb    #40    ,r0
55$:    cmpb    (r3)+    ,r0
    beq    50$
    br    80$

70$:    mov    r2    ,backlev
    mov    r4    ,backup
    inc    r2
    tst    (r5)+
    mov    @r4    ,r1
    inc    r1
    strcat    #htopic    ,r1
    clr    prmptd
80$:    add    #6    ,r4
    br    10$

85$:    tstb    htopic
    beq    88$
    tst    prmptd
    bne    88$
    tst    subwild
    bne    88$
    save    <r1>
    mov    backup    ,rmsidx
    mov    backlev    ,toplev
    clr    wild
    call    hprint
    .newline
    mov    sp    ,wild
    unsave    <r1>
88$:    dec    r1
    strcpy    #hlpbuf    ,r1
    mov    r2    ,toplev
    mov    #2    ,r0
    br    107$

90$:    mov    #1    ,r0
    mov    #hlphead,rmsidx
    clr    @r5
    br    110$

100$:    mov    r2    ,toplev
    dec    toplev
    clr    r0
    sub    #6    ,r4

107$:    mov    r4    ,rmsidx
    clr    backup
110$:    unsave    <r5,r4,r3,r2>
    return


    .sbttl    Print help text found by HFIND

hprint:    save    <r2,r3,r4>
    clrb    sub.2
    clrb    sub.3
    clrb    sub.4
    clr    r2
    strcpy    #ttbuff    ,#htopic
    strcpy    #prbuff    ,r0
    mov    #hlpbuf    ,r4
    tst    wild
    beq    29$
    .newline
    strcat    #ttbuff    ,r4
    wrtall    r0
    .newline
    clrb    (r0)

29$:    call    preset
    bcc    30$
9999$:    jmp    100$

30$:    calls    getrec    ,<r4,#lun.in,#176>
    tst    r0
    bne    9999$
    clrb    hlpbuf(r1)
    cmpb    (r4)    ,#space
    blos    60$
    add    #6    ,rmsidx
    cmpb    (r4)    ,toplev
    blo    90$
    beq    50$
    mov    rmsidx    ,r3
    cmpb    (r4)    ,r2
    ble    40$
    movb    (r4)    ,r0
    sub    #'0+2    ,r0
    blt    37$
    asl    r0
    strcpy    sub.0(r0),#errtxt

37$:    movb    (r4)    ,r0
    mov    r0    ,-(sp)
    call    hindex
    tst    wild
    beq    80$
    .newline

40$:    mov    r3    ,rmsidx
    call    preset
    bcs    100$

50$:    tst    wild
    beq    90$
    movb    (r4)    ,r0
    sub    #'0+1    ,r0
    blt    57$
    beq    51$
    dec    r0
    beq    53$
    dec    r0
    beq    55$
    br    57$
51$:    clrb    sub.2
53$:    clrb    sub.3
55$:    clrb    sub.4

57$:    movb    (r4)    ,r2
    clrb    (r4)
    strcpy    #ttbuff    ,#htopic
    strcat    r0    ,#sub.2
    strcat    r0    ,#sub.3
    strcat    r0    ,#sub.4
    mov    @rmsidx    ,r1
    inc    r1
    strcat    r0    ,r1
    strcpy    #errtxt    ,r1

60$:    tstb    ttbuff
    beq    70$
    .newline
    wrtall    #ttbuff
    tst    wild
    bne    69$
    .newline
69$:    clrb    ttbuff
70$:    tstb    (r4)
    beq    75$
    wrtall    r4
75$:    .newline
    jmp    30$

80$:    mov    #1    ,r0
    br    100$
90$:    clr    r0
100$:    unsave    <r4,r3,r2>
    return


    .sbttl    Preset an I/O channel to an exact block and offset

preset:    mov    rmsidx    ,r0
    calls    prewind    ,<#lun.in,2(r0),4(r0)>
    rts    pc


    .sbttl    Print index
    .enabl    lsb

hindex:    save    <r2,r4,r5>
    mov    sp    ,idxdmp
    clr    -(sp)
    clr    -(sp)
    mov    sp    ,r5
    movb    2+<5*2>(sp),2(r5)
    cmpb    2(r5)    ,#'1
    bhi    10$
    clrb    hlpbuf
10$:    message    <    Additional information is available on:>,cr
    wrtall    #fill7
    mov    #4    ,(r5)
    mov    rmsidx    ,r4

30$:    mov    @r4    ,r1
    beq    305$

    cmpb    @r1    ,2(r5)
    bhi    507$
    blo    305$

300$:    inc    r1
    inc    r1
301$:    strlen    r1
    mov    r0    ,r2
302$:    sub    #18.    ,r2
    neg    r2
    bgt    303$
    neg    r2
    dec    (r5)
    bne    302$
    wrtall    #fill7
    mov    #4    ,(r5)
    br    301$
303$:    wrtall    r1
    dec    (r5)
    beq    505$
    mov    #space    ,r0
503$:    call    writ1ch
    sob    r2    ,503$
    br    507$
505$:    wrtall    #fill7
    mov    #4    ,(r5)
507$:    add    #6    ,r4
    br    30$

305$:    cmp    #4    ,(r5)
    beq    88$
    .newline
88$:    clr    r0

    mov    r4    ,rmsidx
    cmp    (sp)+    ,(sp)+
    unsave    <r5,r4,r2>
    mov    (sp)+    ,(sp)
    return

    .dsabl    lsb


    .sbttl    Open the help file
    .enabl    lsb

hlpopn:    mov    #rtname    ,r3
20$:    tst    @r3
    beq    70$
    calls    fparse    ,<@r3,#srcnam>
    calls    open    ,<#srcnam,#lun.in,#text>
    tst    r0
    bne    40$

    mov    #hlpbuf    ,r4
    calls    getrec    ,<r4,#lun.in,#176>
    tst    r0
    bne    35$
    clrb    hlpbuf(r1)
    strlen    #hident
    calls    instr    ,<r4,r1,#hident,r0>
    tst    r0
    bne    99$
35$:    message    <?KRTMIN-W->
    wrtall    #srcnam
    message    < is an incorrect version>,cr
39$:    calls    close    ,<#lun.in>
40$:    tst    (r3)+
    br    20$

70$:    message    <Can't find KRTMIN.HLP on SY or DK>,cr
    mov    #er$fnf    ,r0
    br    100$
99$:    mov    sp    ,inopn
    clr    r0
100$:    return

    .dsabl    lsb

    .save
    .psect    $pdata
rtname:    .word    3$ ,4$ ,0
3$:    .asciz    "SY:KRTMIN.HLP"
4$:    .asciz    "DK:KRTMIN.HLP"
    .even


    .sbttl    Fake RMS for help text file under RT-11

hident:.asciz    /V03.62-5_min 31-May-93/
    .even

hlphead:.word    L1$    ,0.    ,29.
    .word    L2$    ,0.    ,309.
    .word    L3$    ,1.    ,212.
    .word    L4$    ,6.    ,354.
    .word    L5$    ,7.    ,69.
    .word    L6$    ,11.    ,49.
    .word    L7$    ,11.    ,132.
    .word    L8$    ,11.    ,394.
    .word    L9$    ,12.    ,9.
    .word    L10$    ,12.    ,89.
    .word    L11$    ,12.    ,317.
    .word    L12$    ,12.    ,352.
    .word    L13$    ,13.    ,283.
    .word    L14$    ,13.    ,488.
    .word    L15$    ,15.    ,115.
    .word    L16$    ,16.    ,232.
    .word    L17$    ,16.    ,378.
    .word    L18$    ,17.    ,494.
    .word    L19$    ,18.    ,149.
    .word    L20$    ,18.    ,502.
    .word    L21$    ,20.    ,143.
    .word    L22$    ,23.    ,51.
    .word    L23$    ,24.    ,462.
    .word    L24$    ,25.    ,8.
    .word    L25$    ,25.    ,150.
    .word    L26$    ,25.    ,185.
    .word    L27$    ,29.    ,16.
    .word    L28$    ,29.    ,104.
    .word    L29$    ,33.    ,89.
    .word    L30$    ,35.    ,342.
    .word    L31$    ,36.    ,88.
    .word    L32$    ,39.    ,195.
    .word    L33$    ,40.    ,158.
    .word    L34$    ,41.    ,438.
    .word    L35$    ,42.    ,369.
    .word    L36$    ,42.    ,430.
    .word    L37$    ,42.    ,490.
    .word    L38$    ,43.    ,68.
    .word    L39$    ,45.    ,126.
    .word    L40$    ,45.    ,271.
    .word    L41$    ,45.    ,410.
    .word    L42$    ,46.    ,149.
    .word    L43$    ,46.    ,417.
    .word    L44$    ,49.    ,46.
    .word    L45$    ,49.    ,296.
    .word    L46$    ,50.    ,88.
    .word    L47$    ,50.    ,316.
    .word    L48$    ,52.    ,114.
    .word    L49$    ,53.    ,108.
    .word    L50$    ,53.    ,426.
    .word    L51$    ,53.    ,470.
    .word    L52$    ,54.    ,18.
    .word    L53$    ,54.    ,290.
    .word    L54$    ,54.    ,345.
    .word    L55$    ,55.    ,173.
    .word    L56$    ,56.    ,346.
    .word    L57$    ,56.    ,392.
    .word    L58$    ,56.    ,434.
    .word    L59$    ,57.    ,93.
    .word    L60$    ,57.    ,372.
    .word    L61$    ,57.    ,467.
    .word    L62$    ,59.    ,64.
    .word    L63$    ,59.    ,220.
    .word    L64$    ,59.    ,275.
    .word    L65$    ,61.    ,58.
    .word    L66$    ,61.    ,140.
    .word    L67$    ,61.    ,212.
    .word    L68$    ,61.    ,284.
    .word    L69$    ,61.    ,367.
    .word    L70$    ,63.    ,207.
    .word    L71$    ,63.    ,347.
    .word    L72$    ,64.    ,170.
    .word    L73$    ,64.    ,287.
    .word    L74$    ,65.    ,296.
    .word    L75$    ,66.    ,412.
    .word    L76$    ,67.    ,266.
    .word    L77$    ,67.    ,476.
    .word    L78$    ,69.    ,96.
    .word    L79$    ,69.    ,200.
    .word    L80$    ,69.    ,275.
    .word    L81$    ,70.    ,333.
    .word    L82$    ,71.    ,10.
    .word    L83$    ,71.    ,217.
    .word    L84$    ,72.    ,333.
    .word    L85$    ,73.    ,438.
    .word    L86$    ,74.    ,18.
    .word    L87$    ,74.    ,217.
    .word    L88$    ,74.    ,477.
    .word    L89$    ,75.    ,242.
    .word    L90$    ,76.    ,388.
    .word    L91$    ,76.    ,428.
    .word    L92$    ,77.    ,147.
    .word    L93$    ,77.    ,219.
    .word    L94$    ,77.    ,295.
    .word    L95$    ,77.    ,376.
    .word    L96$    ,77.    ,462.
    .word    L97$    ,78.    ,3.
    .word    L98$    ,78.    ,44.
    .word    L99$    ,78.    ,93.
    .word    L100$    ,78.    ,203.
    .word    L101$    ,78.    ,317.
    .word    L102$    ,79.    ,124.
    .word    L103$    ,79.    ,201.
    .word    L104$    ,79.    ,267.
    .word    L105$    ,79.    ,337.
    .word    L106$    ,79.    ,393.
    .word    L107$    ,79.    ,469.
    .word    L108$    ,80.    ,31.
    .word    L109$    ,80.    ,109.
    .word    L110$    ,80.    ,159.
    .word    L111$    ,80.    ,211.
    .word    L112$    ,80.    ,283.
    .word    L113$    ,80.    ,370.
    .word    L114$    ,80.    ,432.
    .word    L115$    ,80.    ,476.
    .word    L116$    ,81.    ,34.
    .word    L117$    ,82.    ,332.
    .word    L118$    ,84.    ,152.
    .word    L119$    ,86.    ,86.
    .word    L120$    ,86.    ,199.
    .word    L121$    ,86.    ,253.
    .word    L122$    ,87.    ,184.
    .word    L123$    ,88.    ,207.
    .word    0

L1$:    .asciz    "1 ?"
L2$:    .asciz    "1 @"
L3$:    .asciz    "1 ASCII_Set"
L4$:    .asciz    "1 ASSIGN"
L5$:    .asciz    "1 Binary_Files"
L6$:    .asciz    "1 BUG"
L7$:    .asciz    "1 CD"
L8$:    .asciz    "1 CLS"
L9$:    .asciz    "1 CLX"
L10$:    .asciz    "1 COPY"
L11$:    .asciz    "1 CWD"
L12$:    .asciz    "1 Debugging"
L13$:    .asciz    "1 DELETE"
L14$:    .asciz    "1 DIRECTORY"
L15$:    .asciz    "1 EXAMINE"
L16$:    .asciz    "1 EXIT"
L17$:    .asciz    "1 HELP"
L18$:    .asciz    "1 HOME"
L19$:    .asciz    "1 HPRINT"
L20$:    .asciz    "1 LOGFILE"
L21$:    .asciz    "1 Long_Packets"
L22$:    .asciz    "1 Parity"
L23$:    .asciz    "1 PRINT"
L24$:    .asciz    "1 PWD"
L25$:    .asciz    "1 QUIT"
L26$:    .asciz    "1 RECEIVE"
L27$:    .asciz    "1 RENAME"
L28$:    .asciz    "1 SEND"
L29$:    .asciz    "1 SERVER"
L30$:    .asciz    "1 SET"
L31$:    .asciz    "2 ATTRIBUTES"
L32$:    .asciz    "2 BINARY_TYPE"
L33$:    .asciz    "2 BLOCK_CHECK_TYPE"
L34$:    .asciz    "2 DEBUG"
L35$:    .asciz    "3 NONE"
L36$:    .asciz    "3 OFF"
L37$:    .asciz    "3 ON"
L38$:    .asciz    "3 PACKET"
L39$:    .asciz    "3 RAW"
L40$:    .asciz    "2 DEFAULT"
L41$:    .asciz    "2 DELAY"
L42$:    .asciz    "2 END_OF_LINE"
L43$:    .asciz    "2 FILE_TYPE"
L44$:    .asciz    "3 ASCII"
L45$:    .asciz    "3 AUTO"
L46$:    .asciz    "3 BINARY"
L47$:    .asciz    "3 CREATE_SIZE"
L48$:    .asciz    "3 CSI_PARSING"
L49$:    .asciz    "3 DEC_MULTINATIONAL"
L50$:    .asciz    "3 FIXED"
L51$:    .asciz    "3 IMAGE"
L52$:    .asciz    "3 NOPROTECT"
L53$:    .asciz    "3 NOREPLACE"
L54$:    .asciz    "3 NOVOLUME_VERIFY"
L55$:    .asciz    "3 PROTECT"
L56$:    .asciz    "3 REPLACE"
L57$:    .asciz    "3 TEXT"
L58$:    .asciz    "3 TYPE"
L59$:    .asciz    "3 VOLUME_VERIFY"
L60$:    .asciz    "2 HOME"
L61$:    .asciz    "2 INCOMPLETE_FILE_DISPOSITION"
L62$:    .asciz    "2 LINE"
L63$:    .asciz    "2 LOGFILE"
L64$:    .asciz    "2 LONG_PACKETS"
L65$:    .asciz    "2 NOATTRIBUTES"
L66$:    .asciz    "2 NODEBUG"
L67$:    .asciz    "2 NOLONG_PACKETS"
L68$:    .asciz    "2 NOREPEAT_QUOTING"
L69$:    .asciz    "2 PARITY"
L70$:    .asciz    "2 PAUSE"
L71$:    .asciz    "2 PROMPT"
L72$:    .asciz    "2 RECEIVE"
L73$:    .asciz    "3 PACKET_LENGTH"
L74$:    .asciz    "3 START_OF_PACKET"
L75$:    .asciz    "3 TIME_OUT"
L76$:    .asciz    "2 REPEAT_QUOTING"
L77$:    .asciz    "2 RETRY"
L78$:    .asciz    "2 SEND"
L79$:    .asciz    "3 NOXON"
L80$:    .asciz    "3 PACKET_LENGTH"
L81$:    .asciz    "3 PADCHARACTER"
L82$:    .asciz    "3 PADDING"
L83$:    .asciz    "3 START_OF_PACKET"
L84$:    .asciz    "3 TIME_OUT"
L85$:    .asciz    "3 XON"
L86$:    .asciz    "2 SERVER"
L87$:    .asciz    "2 SL"
L88$:    .asciz    "2 START_OF_PACKET"
L89$:    .asciz    "2 TERMINAL"
L90$:    .asciz    "2 TT:"
L91$:    .asciz    "1 SHOW"
L92$:    .asciz    "2 ALL"
L93$:    .asciz    "2 ASSIGNS"
L94$:    .asciz    "2 ATTRIBUTES"
L95$:    .asciz    "2 BINARY_TYPE"
L96$:    .asciz    "2 BLOCK_CHECK_TYPE"
L97$:    .asciz    "2 DEBUG"
L98$:    .asciz    "2 DEFAULT"
L99$:    .asciz    "2 DELAY"
L100$:    .asciz    "2 FILE_TYPE"
L101$:    .asciz    "2 INCOMPLETE_FILE_DISPOSITION"
L102$:    .asciz    "2 LINE"
L103$:    .asciz    "2 PACKET"
L104$:    .asciz    "2 PARAMETERS"
L105$:    .asciz    "2 PARITY"
L106$:    .asciz    "2 PAUSE"
L107$:    .asciz    "2 REPEAT_QUOTING"
L108$:    .asciz    "2 RETRY"
L109$:    .asciz    "2 SERVER"
L110$:    .asciz    "2 SL"
L111$:    .asciz    "2 START_OF_PACKET"
L112$:    .asciz    "2 TERMINAL"
L113$:    .asciz    "2 TIME_OUT"
L114$:    .asciz    "2 TT:"
L115$:    .asciz    "2 VERSION"
L116$:    .asciz    "1 SL_Editor"
L117$:    .asciz    "2 Function_Keys"
L118$:    .asciz    "2 KED_Mode_Functions"
L119$:    .asciz    "1 SPACE"
L120$:    .asciz    "1 STATUS"
L121$:    .asciz    "1 TAKE"
L122$:    .asciz    "1 TYPE"
L123$:    .asciz    "1 Upgrades"
    .even
    .restore

    .end