Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ORG 000
- RET: WORD ?
- HLT
- BR INT
- ORG 041
- X: WORD 0000
- BEGIN: EI
- LOOP: CLA
- DI
- ADD X
- INC
- JSR ODZ
- EI
- MOV X
- BR LOOP
- ORG 666
- VALUE: WORD FFE5
- TEMP: WORD ?
- ODZ: WORD ?
- MOV TEMP
- BEQ OK
- BMI COMP
- ADD VALUE
- BMI OK
- BPL MIN
- COMP: SUB VALUE
- BPL OK
- MIN: CLA
- ADD VALUE
- BR (ODZ)
- OK: CLA
- ADD TEMP
- BR (ODZ)
- ORG 777
- TEMP_A: WORD ?
- TEMP_C: WORD ?
- CONST: WORD 0007
- INT: MOV TEMP_A
- ROL
- MOV TEMP_C
- CHECK1: TSF 1
- BR CHECK3
- WORK1: CLA
- ADD X
- ADD X
- ADD X
- ADD X
- ADD X
- SUB CONST
- OUT 1
- CLF 1
- BR RES
- CHECK3: TSF 3
- BR CLEAN
- WORK3: CLA
- IN 3
- CLF 3
- ADD X
- JSR ODZ
- MOV X
- BR RES
- CLEAN: CLF 2
- CLF 4
- CLF 5
- CLF 6
- CLF 7
- CLF 8
- CLF 9
- RES: CLA
- ADD TEMP_C
- ROR
- CLA
- CMA
- AND TEMP_A
- HLT
- EI
- BR (RET)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement