{"text_format":"1","workbook":"xlsx","n_sheets":6,"sheets":["IMPORT","EXPANDED","STAGING","SAVE","DECODE","CALENDAR"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":4,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"IMPORT","index":0,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}

{"sheet":"EXPANDED","index":1,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}

{"sheet":"STAGING","index":2,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}

{"sheet":"SAVE","index":3,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}

{"sheet":"DECODE","index":4,"n_rows":31,"n_cols":18,"rows_kept":31,"cut":false,"hidden":false,"merged":[[25,2,25,10]]}
[]
[null,null,"x0","x1","x2","x3","x4","x5","x6","x7","x8","x9","xA","xB","xC","xD","xE","xF"]
[null,"0y","HALT","XAE","CCL","SCL","DINT","IEN","CSA","CAS","NOP","-","-","-","-","-","-","-"]
[null,"1y","-","-","-","-","-","-","-","-",null,"SIO","-","-","SR","SRL","RR","RRL"]
[null,"2y","-","-","-","-","TTY_RX","-","-","-","-","-","-","-","TTY_TX","-","-","-"]
[null,"3y","XPAL 0","XPAL 1","XPAL 2","XPAL 3","XPAH 0","XPAH 1","XPAH 2","XPAH 3","-","-","-","-","XPPC 0","XPPC 1","XPPC 2","XPPC 3"]
[null,"4y","LDE","-","-","-","-","-","-","-","-","-","-","-","-","-","-","-"]
[null,"5y","ANE","-","-","-","-","-","-","-","ORE","-","-","-","-","-","-","-"]
[null,"6y","XRE","-","-","-","-","-","-","-","DAE","-","-","-","-","-","-","-"]
[null,"7y","ADE","-","-","-","-","-","-","-","CAE","-","-","-","-","-","-","-"]
[null,"8y","-","-","-","-","-","-","-","-","-","-","-","-","-","-","-","DLY"]
[null,"9y","JMP (0)","JMP (1)","JMP (2)","JMP (3)","JP (0)","JP (1)","JP (2)","JP (3)","JZ (0)","JZ (1)","JZ (2)","JZ (3)","JNZ (0)","JNZ (1)","JNZ (2)","JNZ (3)"]
[null,"Ay","-","-","-","-","-","-","-","-","ILD (0)","ILD (1)","ILD (2)","ILD (3)","-","-","-","-"]
[null,"By","-","-","-","-","-","-","-","-","DLD (0)","DLD (1)","DLD (2)","DLD (3)","-","-","-","-"]
[null,"Cy","LD (0)","LD (1)","LD (2)","LD (3)","LDI","LD @(1)","LD @(2)","LD @(3)","ST (0)","ST (1)","ST (2)","ST (3)","-","ST @(1)","ST @(2)","ST @(3)"]
[null,"Dy","AND (0)","AND (1)","AND (2)","AND (3)","ANI","AND @(1)","AND @(2)","AND @(3)","OR (0)","OR (1)","OR (2)","OR (3)","ORI","OR @(1)","OR @(2)","OR @(3)"]
[null,"Ey","XOR (0)","XOR (1)","XOR (2)","XOR (3)","XRI","XOR @(1)","XOR @(2)","XOR @(3)","DAD (0)","DAD (1)","DAD (2)","DAD (3)","DAI","DAD @(1)","DAD @(2)","DAD @(3)"]
[null,"Fy","ADD (0)","ADD (1)","ADD (2)","ADD (3)","ADI","ADD @(1)","ADD @(2)","ADD @(3)","CAD (0)","CAD (1)","CAD (2)","CAD (3)","CAI","CAD @(1)","CAD @(2)","CAD @(3)"]
[]
[]
[]
[]
[]
[null,null,"Acknowledgement :"]
[]
[null,null,"http://www.dougrice.plus.com/dev/seg_mk14_scmp_ins.png"]
[]
[]
[null,null,"Two new SC/MP opcodes added to support Telnet access"]
[null,null,"TTY_TX sends a single byte from AC to connected Telnet client"]
[null,null,"TTY_RX receives a single byte into AC from connected Telnet client"]

{"sheet":"CALENDAR","index":5,"n_rows":94,"n_cols":2,"rows_kept":94,"cut":false,"hidden":false,"merged":[]}
["1 REM *** CALENDAR PROGRAM ***"," <<< Copy Column A to your clipboard before starting the emulator"]
["5 GOTO 800","<<< Paste it into a plain text file first."]
["10 K=-2:L=-1:M=0:PR \"YEAR\";:INPUT C"," <<< You can then paste it all into NIBL-E via your Telnet client"]
["12 IF C<1582 PR\"I CAN'T REMEMBER AS FAR AS\",C:GOTO 10"]
["15 IF C>2100 PR C,\"IS TOO FAR INTO THE FUTURE!\":GOTO 10"," Acknowledgement  = https://www.dos4ever.com/SCMP/SCMP.html"]
["20 PR\"                    CALENDAR       \",C:PR\"\""]
["30 FOR I=1 TO 4"]
["40 K=K+3:L=L+3:M=M+3"]
["50 GOSUB 740"]
["60 A=1:B=K"]
["70 GOSUB 390"]
["80 IF Y=1 O=A :GOTO 100"]
["90 A=A+1: GOTO 70"]
["100 A=30:D=32"]
["110 GOSUB 390"]
["120 IF D=A E=D:GOTO 140"]
["130 A=A+1:GOTO 110"]
["140 A=1:B=L"]
["150 GOSUB 390"]
["160 IF Y=1 P=A:GOTO 180"]
["170 A=A+1:GOTO 150"]
["180 A=29:D=32"]
["190 GOSUB 390"]
["200 IF D=A F=D:GOTO 220"]
["210 A=A+1:GOTO 190"]
["220 A=1:B=M"]
["230 GOSUB 390"]
["240 IF Y=1 Q=A :GOTO 260"]
["250 A=A+1:GOTO 230"]
["260 A=30:D=32"]
["270 GOSUB 390"]
["280 IF D=A G=D:GOTO 300"]
["290 A=A+1:GOTO 270"]
["300 FOR J=0 TO 6"]
["310 GOSUB 660"]
["320 R=O:S=8-O:D=E:GOSUB 560"]
["330 O=O+1:R=P:S=8-P:D=F:GOSUB 560"]
["340 P=P+1:R=Q:S=8-Q:D=G:GOSUB 560"]
["350 Q=Q+1:PR\"\":NEXT J"]
["355 PR\"\""]
["360 NEXT I"]
["370 END"]
["380 REM SUBR. CALCULATE DAY"]
["390 IF B=2 IF A>29 GOTO 500"]
["400 IF B=2 IF A=29 IF MOD(C,4)>0 GOTO 500"]
["410 IF B=2 IF A=29 IF C=1700 GOTO 500"]
["420 IF B=2 IF A=29 IF C=1800 GOTO 500"]
["430 IF B=2 IF A=29 IF C=1900 GOTO 500"]
["440 IF A=31 IF B=4 GOTO 500"]
["450 IF A=31 IF B=6 GOTO 500"]
["460 IF A=31 IF B=9 GOTO 500"]
["470 IF A=31 IF B=11 GOTO 500"]
["480 IF A>0 IF A<32 IF B>0 IF B<13 GOTO 510"]
["500 D=A:RETURN"]
["510 IF B>2 GOTO 530"]
["520 X=C+A+31*(B-1)+(C-1)/4-3*((C-1)/100+1)/4:GOTO 540"]
["530 X=C+A+31*(B-1)-(4*B+23)/10+C/4-3*(C/100+1)/4"]
["540 Y=MOD(X,7):RETURN"]
["560 REM SUBR. PRINT TABLE"]
["570 Z=1:IF R-J=1 GOTO 610"]
["580 IF S>0 H=0: GOTO 600"]
["590 H=-S*4+4"]
["600 PR$(TOP+H);:Z=Z+1"]
["610 H=R*4"]
["620 PR$(TOP+H);:Z=Z+1:R=R+7"]
["630 IF R<D GOTO 610"]
["640 IF Z>6 PR$(TOP+128);:RETURN"]
["650 H=0:GOTO 620"]
["660 REM SUBR. PRINT DAY OF THE WEEK"]
["670 IF J=0 PR \"SU \";:RETURN"]
["680 IF J=1 PR \"MO \";:RETURN"]
["690 IF J=2 PR \"TU \";:RETURN"]
["700 IF J=3 PR \"WE \";:RETURN"]
["710 IF J=4 PR \"TH \";:RETURN"]
["720 IF J=5 PR \"FR \";:RETURN"]
["730 IF J=6 PR \"SA \";:RETURN"]
["740 REM SUBT. PRINT MONTH"]
["750 IF K=1 PR\"        JANUARY            FEBRUARY             MARCH\""]
["760 IF K=4 PR\"         APRIL               MAY                JUNE\""]
["770 IF K=7 PR\"         JULY              AUGUST            SEPTEMBER\""]
["780 IF K=10 PR\"       OCTOBER            NOVEMBER           DECEMBER\""]
["790 RETURN"]
["800 REM TAB ASCII-CODE"]
["810 C=#20:D=#0D:E=TOP"]
["820 FOR I=0 TO 3"]
["830 A=#30:A=A+I"]
["840 IF I=0 A=#20"]
["860 FOR J=0 TO 9"]
["870 B=#30:B=B+J"]
["880 @E=A:@(E+1)=B:@(E+2)=C:@(E+3)=D:E=E+4"]
["890 NEXT J"]
["900 NEXT I"]
["910 @TOP=#20:@(TOP+1)=#20:@(TOP+128)=#20:@(TOP+129)=#0D"]
["920 GOTO 10"]