mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-01-16 08:16:04 +00:00
c465da8eef
2. Commit assembly listing for WINTER.PI program. 3. Commit minor cosmetic changes for BALGOL-Main and BALGOL-Overlay.
81 lines
5.1 KiB
Plaintext
81 lines
5.1 KiB
Plaintext
61000040500 61000040500
|
|
00000100571 100571 CAD FLIM
|
|
00000400565 400565 STA C C=FLIM
|
|
00000100563 100563 CAD A
|
|
00001480010 1480010 SRT 10
|
|
00000150575 150575 DIV FIVE A DIV 5
|
|
00000420565 420565 LDB C FOR (B=C; B>=0; --B)
|
|
10000401000 10000401000 STA - F F[B]=A DIV 5
|
|
00001210506 1210506 DBB *-1,1
|
|
00000100565 100565 L1 CAD C START OF OUTER LOOP
|
|
00000140574 140574 MUL TWO
|
|
00001400568 1400568 STR G G=C*2
|
|
00000370562 370562 BFR ENDL1,00,00 IF G EQL 0, BRANCH OUT OF LOOP
|
|
00000460566 460566 CLL D D=0
|
|
00000100565 100565 CAD C
|
|
00000400564 400564 STA B B=C
|
|
00000420564 420564 LDB B
|
|
10000101000 10000101000 DO CAD - F START OF INNER LOOP
|
|
00000140563 140563 MUL A F[B]*A
|
|
00001490010 1490010 SLT 10 SHIFT PRODUCT TO RA
|
|
00000120566 120566 ADD D
|
|
00000400566 400566 STA D D+=F[B]*A
|
|
00001480010 1480010 SRT 10 SAVE NEW D IN RR
|
|
00001270568 1270568 DFL G,00,1 G-=1
|
|
00000150568 150568 DIV G D DIV G
|
|
10001401000 10001401000 STR - F F[B]=D MOD G
|
|
00000400566 400566 STA D D=D DIV G
|
|
00001270568 1270568 DFL G,00,1 G-=1
|
|
00000100564 100564 CAD B
|
|
00000130573 130573 SUB ONE
|
|
00000400564 400564 STA B B-=1
|
|
00000360534 360534 BFA ENDDO,00,00 IF B EQL 0, BRANCH OUT OF INNER LOOP
|
|
00000140566 140566 MUL D
|
|
00001400566 1400566 STR D D*=B
|
|
00001210516 1210516 DBB DO,1 DECREMENT RB, REPEAT INNER LOOP IF >= 0
|
|
00014270565 14270565 ENDDO DFL C,00,14 C-=14
|
|
00000100566 100566 CAD D
|
|
00001480010 1480010 SRT 10
|
|
00000150563 150563 DIV A D DIV A
|
|
00000120567 120567 ADD E RA=E+D DIV A
|
|
00001400567 1400567 STR E E=D MOD A
|
|
00001480003 1480003 SRT 3 ISOLATE HIGH-ORDER DIGIT IN A
|
|
00000120576 120576 ADD N80 CONVERT 1ST DIGIT TO ALPHA
|
|
00000490001 490001 SLA 1
|
|
00001490001 1490001 SLT 1
|
|
00000120576 120576 ADD N80 CONVERT 2ND DIGIT TO ALPHA
|
|
00000490001 490001 SLA 1
|
|
00001490001 1490001 SLT 1
|
|
00000120576 120576 ADD N80 CONVERT 3RD DIGIT TO ALPHA
|
|
00000490001 490001 SLA 1
|
|
00001490001 1490001 SLT 1
|
|
00000120576 120576 ADD N80 CONVERT 4TH DIGIT TO ALPHA
|
|
00000490002 490002 SLA 2 INSERT TRAILING SPACE
|
|
00002430000 2430000 LSA 2 SET SIGN TO TWO FOR ALPHA WORD
|
|
00000400564 400564 STA B STORE IN WORD BUFFER
|
|
00010090564 10090564 SPO B,1
|
|
00405260569 405260569 IFL COL,04,5 CHECK FOR FULL LINE ON SPO
|
|
00000100569 100569 CAD COL
|
|
00000180570 180570 CFA ECOL
|
|
00001340508 1340508 BCL L1 IF COL < ECOL, BRANCH
|
|
00010090577 10090577 SPO CR,1 OUTPUT NEWLINES
|
|
00000460569 460569 CLL COL CLEAR COLUMN COUNTER
|
|
00000300508 300508 BUN L1
|
|
00000007557 7557 ENDL1 HLT 7557
|
|
00000010000 10000 A CNST 10000
|
|
00000000000 0 B CNST 0
|
|
00000000000 0 C CNST 0
|
|
00000000000 0 D CNST 0
|
|
00000000000 0 E CNST 0
|
|
00000000000 0 G CNST 0
|
|
00000000000 0 COL CNST 0
|
|
00000000050 50 ECOL CNST 50
|
|
00000002800 2800 FLIM CNST 2800
|
|
00000000000 0 ZERO CNST 0
|
|
00000000001 1 ONE CNST 1
|
|
00000000002 2 TWO CNST 2
|
|
00000000005 5 FIVE CNST 5
|
|
00000000080 80 N80 CNST 80
|
|
2___|| 2___|| CR CNST 20202021616 NEWLINES
|
|
60000300500 60000300500
|