;; pendulum pal file
;; 
;; Schroedinger wave equation simulator.
;;
;; Compiled from sch.r, rev. 1.2, 7/22/97, 7:04 pm.
;;


_PRESKIP1:      BRA _POSTSKIP2 
EPSILON:        DATA 203667001 
_POSTSKIP2:     BRA _PRESKIP1 
_PRESKIP3:      BRA _POSTSKIP4 
ALPHAS:         DATA 458243442 
                DATA 456664951 
                DATA 455111319 
                DATA 453582544 
                DATA 452078627 
                DATA 450599569 
                DATA 449145369 
                DATA 447716027 
                DATA 446311542 
                DATA 444931917 
                DATA 443577149 
                DATA 442247239 
                DATA 440942188 
                DATA 439661994 
                DATA 438406659 
                DATA 437176182 
                DATA 435970563 
                DATA 434789802 
                DATA 433633899 
                DATA 432502854 
                DATA 431396668 
                DATA 430315339 
                DATA 429258869 
                DATA 428227257 
                DATA 427220503 
                DATA 426238607 
                DATA 425281569 
                DATA 424349389 
                DATA 423442068 
                DATA 422559605 
                DATA 421701999 
                DATA 420869252 
                DATA 420061363 
                DATA 419278332 
                DATA 418520159 
                DATA 417786845 
                DATA 417078388 
                DATA 416394790 
                DATA 415736049 
                DATA 415102167 
                DATA 414493143 
                DATA 413908977 
                DATA 413349669 
                DATA 412815220 
                DATA 412305628 
                DATA 411820895 
                DATA 411361019 
                DATA 410926002 
                DATA 410515843 
                DATA 410130542 
                DATA 409770099 
                DATA 409434515 
                DATA 409123788 
                DATA 408837920 
                DATA 408576909 
                DATA 408340757 
                DATA 408129463 
                DATA 407943027 
                DATA 407781450 
                DATA 407644730 
                DATA 407532868 
                DATA 407445865 
                DATA 407383720 
                DATA 407346432 
                DATA 407334003 
                DATA 407346432 
                DATA 407383720 
                DATA 407445865 
                DATA 407532868 
                DATA 407644730 
                DATA 407781450 
                DATA 407943027 
                DATA 408129463 
                DATA 408340757 
                DATA 408576909 
                DATA 408837920 
                DATA 409123788 
                DATA 409434515 
                DATA 409770099 
                DATA 410130542 
                DATA 410515843 
                DATA 410926002 
                DATA 411361019 
                DATA 411820895 
                DATA 412305628 
                DATA 412815220 
                DATA 413349669 
                DATA 413908977 
                DATA 414493143 
                DATA 415102167 
                DATA 415736049 
                DATA 416394790 
                DATA 417078388 
                DATA 417786845 
                DATA 418520159 
                DATA 419278332 
                DATA 420061363 
                DATA 420869252 
                DATA 421701999 
                DATA 422559605 
                DATA 423442068 
                DATA 424349389 
                DATA 425281569 
                DATA 426238607 
                DATA 427220503 
                DATA 428227257 
                DATA 429258869 
                DATA 430315339 
                DATA 431396668 
                DATA 432502854 
                DATA 433633899 
                DATA 434789802 
                DATA 435970563 
                DATA 437176182 
                DATA 438406659 
                DATA 439661994 
                DATA 440942188 
                DATA 442247239 
                DATA 443577149 
                DATA 444931917 
                DATA 446311542 
                DATA 447716027 
                DATA 449145369 
                DATA 450599569 
                DATA 452078627 
                DATA 453582544 
                DATA 455111319 
                DATA 456664951 
_POSTSKIP4:     BRA _PRESKIP3 
_PRESKIP5:      BRA _POSTSKIP6 
PSIR:           DATA 2072809 
                DATA 3044772 
                DATA 4418237 
                DATA 6333469 
                DATA 8968770 
                DATA 12546502 
                DATA 17338479 
                DATA 23669980 
                DATA 31921503 
                DATA 42527251 
                DATA 55969298 
                DATA 72766411 
                DATA 93456735 
                DATA 118573819 
                DATA 148615999 
                DATA 184009768 
                DATA 225068513 
                DATA 271948808 
                DATA 324607187 
                DATA 382760978 
                DATA 445857149 
                DATA 513053161 
                DATA 583213481 
                DATA 654924586 
                DATA 726530060 
                DATA 796185813 
                DATA 861933650 
                DATA 921789572 
                DATA 973841548 
                DATA 1016350163 
                DATA 1047844835 
                DATA 1067208183 
                DATA 1073741824 
                DATA 1067208183 
                DATA 1047844835 
                DATA 1016350163 
                DATA 973841548 
                DATA 921789572 
                DATA 861933650 
                DATA 796185813 
                DATA 726530060 
                DATA 654924586 
                DATA 583213481 
                DATA 513053161 
                DATA 445857149 
                DATA 382760978 
                DATA 324607187 
                DATA 271948808 
                DATA 225068513 
                DATA 184009768 
                DATA 148615999 
                DATA 118573819 
                DATA 93456735 
                DATA 72766411 
                DATA 55969298 
                DATA 42527251 
                DATA 31921503 
                DATA 23669980 
                DATA 17338479 
                DATA 12546502 
                DATA 8968770 
                DATA 6333469 
                DATA 4418237 
                DATA 3044772 
                DATA 2072809 
                DATA 1393998 
                DATA 926112 
                DATA 607804 
                DATA 394060 
                DATA 252382 
                DATA 159681 
                DATA 99804 
                DATA 61622 
                DATA 37586 
                DATA 22647 
                DATA 13480 
                DATA 7926 
                DATA 4604 
                DATA 2642 
                DATA 1497 
                DATA 838 
                DATA 463 
                DATA 253 
                DATA 136 
                DATA 73 
                DATA 38 
                DATA 20 
                DATA 10 
                DATA 5 
                DATA 2 
                DATA 1 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
_POSTSKIP6:     BRA _PRESKIP5 
_PRESKIP7:      BRA _POSTSKIP8 
PSII:           DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
                DATA 0 
_POSTSKIP8:     BRA _PRESKIP7 
_SUBTOP9:       BRA _SUBBOT10 
PFUNC:          SWAPBR $2 
                NEG $2 
                ADDI $1 -1 
                EXCH $31 $1 
                ADDI $1 1 
                ADD $3 $5 
                EXCH $31 $3 
                SUB $3 $5 
                ADDI $1 -2 
                EXCH $30 $1 
                ADDI $1 2 
                ADD $30 $6 
                ADD $30 $5 
                ADDI $1 -3 
                EXCH $29 $1 
                ADDI $1 3 
                ADDI $1 -4 
                EXCH $28 $1 
                ADDI $1 4 
                EXCH $28 $30 
                ADD $29 $28 
                EXCH $28 $30 
                SUB $30 $5 
                SUB $30 $6 
                ADD $28 $4 
                ADD $28 $5 
                ADDI $1 -5 
                EXCH $27 $1 
                ADDI $1 5 
                EXCH $27 $28 
                ADD $30 $27 
                EXCH $27 $28 
                SUB $28 $5 
                SUB $28 $4 
                XOR $27 $5 
                XOR $5 $27 
                XOR $30 $4 
                XOR $4 $30 
                XOR $30 $4 
                XOR $29 $3 
                XOR $3 $29 
                XOR $29 $3 
                XOR $28 $2 
                XOR $2 $28 
                ADDI $1 -5 
                BRA SMF 
                ADDI $1 5 
                ADD $31 $5 
                ADDI $1 -5 
                RBRA SMF 
                ADDI $1 5 
                ADD $2 $30 
                ADD $2 $27 
                ADDI $1 -6 
                EXCH $26 $1 
                ADDI $1 6 
                EXCH $26 $2 
                SUB $4 $26 
                EXCH $26 $2 
                SUB $2 $27 
                SUB $2 $30 
                ADD $2 $6 
                ADD $2 $27 
                EXCH $4 $2 
                SUB $3 $4 
                EXCH $4 $2 
                SUB $2 $27 
                SUB $2 $6 
                ADD $29 $27 
                EXCH $31 $29 
                SUB $29 $27 
                ADD $29 $27 
                EXCH $2 $29 
                SUB $29 $27 
                ADD $3 $27 
                ADDI $3 1 
                ADDI $4 127 
                ANDX $5 $3 $4 
                ADDI $4 -127 
                ADD $4 $30 
                ADD $4 $5 
                EXCH $31 $4 
                ADD $26 $31 
                EXCH $31 $4 
                SUB $4 $5 
                SUB $4 $30 
                XOR $4 $5 
                XOR $5 $4 
                XOR $26 $4 
                XOR $4 $26 
                XOR $26 $4 
                XOR $7 $3 
                XOR $3 $7 
                XOR $7 $3 
                XOR $31 $2 
                XOR $2 $31 
                ADDI $1 -6 
                BRA SMF 
                ADDI $1 6 
                SUB $31 $5 
                ADDI $1 -6 
                RBRA SMF 
                ADDI $1 6 
                ADD $2 $30 
                ADD $2 $26 
                ADDI $1 -7 
                EXCH $25 $1 
                ADDI $1 7 
                EXCH $25 $2 
                SUB $4 $25 
                EXCH $25 $2 
                SUB $2 $26 
                SUB $2 $30 
                ADDI $2 127 
                ANDX $26 $7 $2 
                ADDI $2 -127 
                ADDI $7 -1 
                SUB $7 $27 
                ADD $29 $27 
                EXCH $31 $29 
                SUB $29 $27 
                ADD $29 $27 
                EXCH $2 $29 
                SUB $29 $27 
                ADD $4 $27 
                ADDI $4 -1 
                ADDI $5 127 
                ANDX $7 $4 $5 
                ADDI $5 -127 
                ADD $5 $30 
                ADD $5 $7 
                EXCH $26 $5 
                ADD $25 $26 
                EXCH $26 $5 
                SUB $5 $7 
                SUB $5 $30 
                XOR $25 $4 
                XOR $4 $25 
                XOR $25 $4 
                XOR $26 $2 
                XOR $2 $26 
                ADDI $1 -7 
                BRA SMF 
                ADDI $1 7 
                SUB $26 $5 
                ADDI $1 -7 
                RBRA SMF 
                ADDI $1 7 
                ADD $2 $30 
                ADD $2 $7 
                EXCH $31 $2 
                SUB $4 $31 
                EXCH $31 $2 
                SUB $2 $7 
                SUB $2 $30 
                ADDI $2 127 
                ANDX $7 $25 $2 
                ADDI $2 -127 
                ADDI $25 1 
                SUB $25 $27 
                ADD $29 $27 
                EXCH $26 $29 
                SUB $29 $27 
                ADDI $1 -7 
                EXCH $25 $1 
                ADDI $1 7 
                XOR $7 $3 
                XOR $3 $7 
                ADDI $1 -6 
                EXCH $26 $1 
                ADDI $1 6 
                XOR $2 $28 
                XOR $28 $2 
                XOR $3 $29 
                XOR $29 $3 
                XOR $4 $30 
                XOR $30 $4 
                XOR $5 $27 
                XOR $27 $5 
                ADDI $1 -5 
                EXCH $27 $1 
                ADDI $1 5 
                ADDI $1 -4 
                EXCH $28 $1 
                ADDI $1 4 
                ADDI $1 -3 
                EXCH $29 $1 
                ADDI $1 3 
                ADDI $1 -2 
                EXCH $30 $1 
                ADDI $1 2 
                ADDI $1 -1 
                EXCH $31 $1 
                ADDI $1 1 
_SUBBOT10:      BRA _SUBTOP9 
_SUBTOP45:      BRA _SUBBOT46 
SCHSTEP:        SWAPBR $2 
                NEG $2 
                ADDI $1 -1 
                EXCH $31 $1 
                ADDI $1 1 
                ADDI $31 128 
                ADDI $1 -2 
                EXCH $30 $1 
                ADDI $1 2 
                ADDI $1 -3 
                EXCH $29 $1 
                ADDI $1 3 
                ADD $30 $29 
_FORTOP47:      BNE $30 $29 _FORBOT48 
                XOR $6 $7 
                XOR $7 $6 
                XOR $6 $7 
                XOR $5 $6 
                XOR $6 $5 
                XOR $5 $6 
                XOR $30 $5 
                XOR $5 $30 
                XOR $30 $5 
                ADDI $1 -4 
                EXCH $2 $1 
                ADDI $1 4 
                ADDI $1 -4 
                BRA PFUNC 
                ADDI $1 4 
                ADDI $5 1 
                ADDI $1 -4 
                EXCH $2 $1 
                ADDI $1 4 
                XOR $30 $7 
                XOR $7 $30 
                XOR $30 $7 
                XOR $30 $6 
                XOR $6 $30 
                XOR $30 $6 
                XOR $30 $5 
                XOR $5 $30 
                XOR $30 $5 
_FORBOT48:      BNE $30 $31 _FORTOP47 
                SUB $30 $31 
                ADDI $31 -128 
                ADDI $29 128 
                ADD $30 $31 
_FORTOP51:      BNE $30 $31 _FORBOT52 
                XOR $6 $7 
                XOR $7 $6 
                XOR $6 $7 
                XOR $5 $6 
                XOR $6 $5 
                XOR $5 $6 
                XOR $30 $5 
                XOR $5 $30 
                XOR $30 $5 
                XOR $3 $4 
                XOR $4 $3 
                XOR $3 $4 
                ADDI $1 -4 
                EXCH $2 $1 
                ADDI $1 4 
                ADDI $1 -4 
                RBRA PFUNC 
                ADDI $1 4 
                ADDI $5 1 
                ADDI $1 -4 
                EXCH $2 $1 
                ADDI $1 4 
                XOR $3 $4 
                XOR $4 $3 
                XOR $3 $4 
                XOR $30 $7 
                XOR $7 $30 
                XOR $30 $7 
                XOR $30 $6 
                XOR $6 $30 
                XOR $30 $6 
                XOR $30 $5 
                XOR $5 $30 
                XOR $30 $5 
_FORBOT52:      BNE $30 $29 _FORTOP51 
                SUB $30 $29 
                ADDI $29 -128 
                ADDI $1 -3 
                EXCH $29 $1 
                ADDI $1 3 
                ADDI $1 -2 
                EXCH $30 $1 
                ADDI $1 2 
                ADDI $1 -1 
                EXCH $31 $1 
                ADDI $1 1 
_SUBBOT46:      BRA _SUBTOP45 
_SUBTOP55:      BRA _SUBBOT56 
PRINTWAVE:      SWAPBR $2 
                NEG $2 
                ADDI $1 -1 
                EXCH $31 $1 
                ADDI $1 1 
                ADDI $31 128 
                ADDI $1 -2 
                EXCH $30 $1 
                ADDI $1 2 
                ADDI $1 -3 
                EXCH $29 $1 
                ADDI $1 3 
                ADD $30 $29 
_FORTOP57:      BNE $30 $29 _FORBOT58 
                ADDI $1 -4 
                EXCH $28 $1 
                ADDI $1 4 
                OUTPUT $28 
                ADD $28 $3 
                ADD $28 $30 
                ADDI $1 -5 
                EXCH $27 $1 
                ADDI $1 5 
                ADDI $1 -6 
                EXCH $26 $1 
                ADDI $1 6 
                EXCH $26 $28 
                ADD $27 $26 
                EXCH $26 $28 
                SUB $28 $30 
                SUB $28 $3 
                OUTPUT $27 
                ADD $26 $3 
                ADD $26 $30 
                EXCH $28 $26 
                SUB $27 $28 
                EXCH $28 $26 
                SUB $26 $30 
                SUB $26 $3 
                ADDI $30 1 
                ADDI $1 -6 
                EXCH $26 $1 
                ADDI $1 6 
                ADDI $1 -5 
                EXCH $27 $1 
                ADDI $1 5 
                ADDI $1 -4 
                EXCH $28 $1 
                ADDI $1 4 
_FORBOT58:      BNE $30 $31 _FORTOP57 
                SUB $30 $31 
                ADDI $31 -128 
                ADDI $29 1 
                OUTPUT $29 
                ADDI $29 -1 
                ADDI $1 -3 
                EXCH $29 $1 
                ADDI $1 3 
                ADDI $1 -2 
                EXCH $30 $1 
                ADDI $1 2 
                ADDI $1 -1 
                EXCH $31 $1 
                ADDI $1 1 
_SUBBOT56:      BRA _SUBTOP55 
_SUBTOP68:      BRA _SUBBOT69 
SMF:            SWAPBR $2 
                NEG $2 
                ADDI $1 -1 
                EXCH $31 $1 
                ADDI $1 1 
                ADDI $1 -2 
                EXCH $30 $1 
                ADDI $1 2 
                ADDI $1 -3 
                EXCH $29 $1 
                ADDI $1 3 
                ADDI $1 -4 
                EXCH $28 $1 
                ADDI $1 4 
                ADDI $1 -5 
                EXCH $27 $1 
                ADDI $1 5 
                ADDI $1 -6 
                EXCH $26 $1 
                ADDI $1 6 
                ADDI $29 1 
                ADD $31 $3 
_IFTOP70:       BGEZ $3 _IFBOT71 
                NEG $31 
_IFBOT71:       BGEZ $3 _IFTOP70 
                ADD $30 $4 
_IFTOP72:       BGEZ $4 _IFBOT73 
                NEG $30 
_IFBOT73:       BGEZ $4 _IFTOP72 
                RL $29 31 
                ADDI $1 -7 
                EXCH $25 $1 
                ADDI $1 7 
                ADDI $25 1 
                ADDI $1 -8 
                EXCH $24 $1 
                ADDI $1 8 
                ADDI $24 32 
                ADDI $1 -9 
                EXCH $23 $1 
                ADDI $1 9 
                ADD $23 $25 
_FORTOP74:      BNE $23 $25 _FORBOT75 
                RR $29 1 
                ANDX $27 $31 $29 
_IFTOP78:       BEQ $27 $0 _IFBOT79 
                SRLVX $28 $30 $23 
                ADD $26 $28 
                SRLVX $28 $30 $23 
_IFBOT79:       BEQ $27 $0 _IFTOP78 
                ANDX $27 $31 $29 
                ADDI $23 1 
_FORBOT75:      BNE $23 $24 _FORTOP74 
                SUB $23 $24 
                ADDI $24 -32 
                ADDI $25 -1 
_IFTOP80:       BGEZ $3 _IFBOT81 
                NEG $26 
_IFBOT81:       BGEZ $3 _IFTOP80 
_IFTOP82:       BGEZ $4 _IFBOT83 
                NEG $26 
_IFBOT83:       BGEZ $4 _IFTOP82 
                ADD $5 $26 
_IFTOP84:       BGEZ $4 _IFBOT85 
                NEG $30 
_IFBOT85:       BGEZ $4 _IFTOP84 
                SUB $30 $4 
_IFTOP86:       BGEZ $3 _IFBOT87 
                NEG $31 
_IFBOT87:       BGEZ $3 _IFTOP86 
                SUB $31 $3 
                ADDI $29 -1 
                ADDI $1 -9 
                EXCH $23 $1 
                ADDI $1 9 
                ADDI $1 -8 
                EXCH $24 $1 
                ADDI $1 8 
                ADDI $1 -7 
                EXCH $25 $1 
                ADDI $1 7 
                ADDI $1 -6 
                EXCH $26 $1 
                ADDI $1 6 
                ADDI $1 -5 
                EXCH $27 $1 
                ADDI $1 5 
                ADDI $1 -4 
                EXCH $28 $1 
                ADDI $1 4 
                ADDI $1 -3 
                EXCH $29 $1 
                ADDI $1 3 
                ADDI $1 -2 
                EXCH $30 $1 
                ADDI $1 2 
                ADDI $1 -1 
                EXCH $31 $1 
                ADDI $1 1 
_SUBBOT69:      BRA _SUBTOP68 
_MAINTOP:       BRA _MAINBOT 
                .START SCHROED 
SCHROED:        START 
                ADDI $2 1 
                ADDI $3 1001 
                ADD $4 $2 
_FORTOP88:      BNE $4 $2 _FORBOT89 
                ADDI $5 EPSILON 
                EXCH $7 $5 
                ADD $6 $7 
                EXCH $7 $5 
                ADDI $5 -EPSILON 
                ADDI $5 ALPHAS 
                XOR $7 $4 
                XOR $4 $7 
                ADDI $4 PSII 
                XOR $8 $3 
                XOR $3 $8 
                ADDI $3 PSIR 
                XOR $9 $2 
                XOR $2 $9 
                BRA SCHSTEP 
                ADDI $3 -PSIR 
                ADDI $4 -PSII 
                ADDI $5 -ALPHAS 
                ADDI $2 EPSILON 
                EXCH $3 $2 
                SUB $6 $3 
                EXCH $3 $2 
                ADDI $2 -EPSILON 
                ADDI $3 PSIR 
                BRA PRINTWAVE 
                ADDI $3 -PSIR 
                ADDI $3 PSII 
                BRA PRINTWAVE 
                ADDI $3 -PSII 
                ADDI $7 1 
                XOR $2 $9 
                XOR $9 $2 
                XOR $3 $8 
                XOR $8 $3 
                XOR $4 $7 
                XOR $7 $4 
_FORBOT89:      BNE $4 $3 _FORTOP88 
                SUB $4 $3 
                ADDI $3 -1001 
                ADDI $2 -1 
                FINISH 
_MAINBOT:       BRA _MAINTOP