Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ORIG 1000
- DEVICE EQU 18
- INT STJ EINT
- ENT4 45
- JAN 1F
- DEC4 1
- 1H ST4 0,5(1:1)
- ENTX 0
- CHAR
- STX 0,5(2:5)
- EINT JMP *
- CALC STJ ECALC
- ENT5 AEQ
- ENTA 0,2
- JMP INT
- ENT5 BEQ
- ENTA 0,3
- JMP INT
- J2NZ 2F
- ENT1 ROOTS
- J3NZ 1F
- MOVE INF(6)
- JMP 3F
- 1H MOVE NO(3)
- JMP 3F
- 2H ENNA 0,3
- SRA 5
- ENTX 0,3
- ST2 0
- DIV 0
- ENT5 XEQ
- JMP INT
- 3H OUT BUF(DEVICE)
- JBUS *(DEVICE)
- ECALC JMP *
- START NOP
- ENT2 -11
- ENT3 33
- JMP CALC
- ENT2 3
- ENT3 6
- JMP CALC
- ENT2 10
- ENT3 0
- JMP CALC
- ENT2 0
- ENT3 1
- JMP CALC
- ENT2 0
- ENT3 0
- JMP CALC
- HLT
- BUF ALF A=
- AEQ ALF
- ALF B=
- BEQ ALF
- ROOTS ALF X=
- XEQ ALF
- ORIG BUF+25
- INF ALF IN
- ALF FINIT
- ALF E NUM
- ALF BER O
- ALF F ROO
- ALF TS
- NO ALF NO
- ALF ROOT
- ALF S
- END START
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement