拓扑排序程序

smallso

拓扑排序：

* BUFFER AREA AND FIELD DEFINITIONS
COUNT     EQU 2:3
QLINK     EQU 2:3
TOP     EQU 4:5
SUC     EQU 2:3
NEXT     EQU 4:5
TAPEIN     EQU 1
TAPEOUT     EQU 2
BUFFER     ORIG *+100
     CON -1
*INPUT     PHASE
TOPSORT IN BUFFER(TAPEIN)
    JBUS    *(TAPEIN)
1H    LD6    BUFFER+1
    ENT4    0,6
    STZ    X,4
    DEC4    1
    J4NN    *-2
    ENT2    X,6
    ENT5    BUFFER+2
2H    LD3    0,5
    J3P    3F
    J3Z    4F
    IN    BUFFER(TAPEIN)
    JBUS    *(TAPEIN)
    ENT5    BUFFER
    JMP    2B
3H    LD4    1,5
    LDA    X,4(COUNT)
    INCA    1
    STA    X,4(COUNT)
    INC2    1
    LDA    X,3(TOP)
    STA    0,2(NEXT)
    ST4    0,2(SUC)
    ST2    X,3(TOP)
    INC5    2
    JMP    2B
4H    IOC    0(TAPEIN)
    ENT4    0,6
    ENT5    -100
    ENT3    0
4H    LDA    X,4(COUNT)
    JAP    *+3
    ST4    X,3(QLINK)
    ENT3    0,4
    DEC4    1
    J4P    4B
* SORTING PHASE
      LD1    X(QLINK)
5H    JBUS    *(TAPEIN)
    ST1    BUFFER+100,5
    J1Z    8F
    INC5    1
    J5N    *+3
    OUT    BUFFER(TAPEOUT)
    ENT5    -100
    DEC6    1
    LD2    X,1(TOP)
    J2Z    7F
6H    LD4    0,2(SUC)
    LDA    X,4(COUNT)
    DECA    1
    STA    X,4(COUNT)
    JAP    *+3
    ST4    X,3(QLINK)
    ENT3    0,4
    LD2    0,2(NEXT)
    J2P    6B
7H    LD1    X,1(QLINK)
    JMP    5B
8H    OUT    BUFFER(TAPEOUT)
    IOC    0(TAPEOUT)
    HLT    0,6
X    END    TOPSORT
   


本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u2/74781/showart_1808753.html